Créer des applications de base de données dans VB |
|
|
Brève introduction aux utilisations des bases de données d'Access
|
Ce que je pense est la chose la plus contraignante au sujet de de base visuel est lui est manière facile de modifier et d'accéder à des bases de données. Est ce ce que je pense que vous devriez apprendre après et vous trouverez beaucoup de demandes de cette connaissance. Sans employer une base de données pour le stockage de données, je ne fais presque jamais le programme.
Il y a beaucoup de manières de travailler avec les bases de données en de base visuel, et je penserais que vous avez au moins jeté un coup d'oeil sur la commande de données et puisqu'il est si facile d'employer et trop limité pour être intéressant pour un réalisateur professionnel, il ne mentionnera pas même la commande de données plus loin en ce texte. (Correct, il y a quelques exceptions à ceci.)
Ce que je t'enseignerai qu'employer en ce texte est DAO (Access de données objecte) et vous obtiendrez au courant d'ouvrir une base de données et s'ajouter/recherche/supprimer/mettant à jour enregistre des tables. J'emploierai seulement une base de données d'Access (*.mdb) dans mes exemples et puisque c'est le système de gestion de bases de données le plus utilisé (système de gestion de base de données) pour de plus petites demandes faites en de base visuel. Nous volonté à la fin de cette leçon avons fait un simple mais fonctionnel, application de livre de téléphone.
|
Objet de base de données
|
La première chose que vous devez faire dans votre application est d'ouvrir une base de données où vos tables sont stockées et vous devez déclarer une variable pour tenir votre base de données afin de faire ceci. Ceci est fait avec le rapport suivant :
|
|
Ceci te donne un objet/variable qui peuvent tenir une référence à votre base de données. Pour ouvrir une base de données simple d'Access appelée « MyDatabase.mdb » et faire ceci :
|
Set dbMyDB = OpenDatabase("MyDatabase.mdb")
|
|
Vous devriez vraiment indiquer le chemin complet au DB et si votre annuaire courant est l'annuaire où la base de données est située, ceci fonctionnera.
Ainsi, maintenant vous avez ouvert une base de données et ceci ne te donnera aucune donnée. Ce que vous devez faire est d'ouvrir une table dans la base de données elle-même. Vous n'êtes pas limités pour ouvrir une table simple et parfois vous avez deux tables ou plus qui sont reliées entre eux et liées ensemble des clefs étrangères d'ith de W, et il y a des manières de manipuler
|
Objet de RecordSet
|
Pour tenir votre table, les utilisations de base visuelles un objet ont appelé RecordSet. Pour déclarer un tel objet et pour ouvrir la table, écrire le rapport suivant :
|
Dim rsMyRS As RecordSet
Set rsMyRS = dbMyDB.OpenRecordSet("MyTable", dbOpenDynaset)
|
|
Que s'est produit là ? Bien, j'ai déclaré un objet de RecordSet et avais l'habitude la méthode d'OpenRecordSet de l'objet de base de données pour ouvrir une table de type Dynaset et vous pouvez ouvrir un RecordSet en plusieurs modes. Le dossier en ligne de l'aide de VB explique les différents modes et pour ce qui ils l'ar e. Le mode de Dynaset est le mode que j'emploie la plupart du temps et il te donne un RecordSet que vous pouvez ajouter, supprimer et modifier les disques po.
|
Disques de accès
|
Maintenant que nous avons ouvert une table (désignée sous le nom de RecordSet dorénavant) que nous voulons accéder aux disques dans lui et l'objet de RecordSet nous permet de nous déplacer lui en employant les méthodes MoveFirst, MoveNext, MovePrevious, MoveLast (entre d'autres). J'emploierai certaines de ces derniers pour remplir une boîte de liste de disques de notre RecordSet.
Pour obtenir cet exemple pour travailler, faire une base de données (avec l'Access) « MyDatabase.mdb » appelé avec la table « MyTable » à elle et cette table devrait avoir les champs « identification » du type « contre- » ce vous réglé pour être la clef primaire, le champ « nom » du type texte et un champ « pierre à aiguiser de P » de type texte. Ajouter quelques disques à elle et mettre une boîte de liste sur une forme et l'appeler des « lstRecords ».
|
Dim dbMyDB As Database
Dim rsMyRS As RecordSet
Private Sub Form_Load()
Set dbMyDB = OpenDatabase("MyDatabase.mdb")
Set rsMyRS = dbMyDB.OpenRecordSet("MyTable", dbOpenDynaset)
If Not rsMyRS.EOF Then rsMyRS.MoveFirst
Do While Not rsMyRS.EOF
lstRecords.AddItem rsMyRS!Name
lstRecords.ItemData(lstRecords.NewIndex) = rsMyRS!ID
rsMyRS.MoveNext
Loop
End Sub
|
|
Recherche du RecordSet
|
Vous pourriez s'être demandés pourquoi j'ai mis la valeur du champ « identification » dans la propriété d'ItemData de boîte de liste et j'ai fait ceci de sorte que nous sachions la clef primaire pour tous disques afin de rechercher un disque.
Mettre une boîte des textes quelque part sur la forme et l'appeler « txtPhone ». Copier alors le code suivant au projet.
|
Private Sub lstRecords_Click()
rsMyRS.FindFirst "ID=" & Str(lstRecords.ItemData(lstRecords.ListIndex))
txtPhone.Text = rsMyRS!Phone
End Sub
|
|
Mise à jour de la base de données
|
En faire la base de données programmant, vous voudrez probablement pouvoir mettre à jour une certaine valeur d'un certain champ. Ceci est fait avec éditent et mettent à jour et nous essayerons de changer la valeur du gisement de « téléphone » en éditant le texte dans la boîte des textes et en cliquant un bouton.
Mettre un bouton de commande sur la forme et l'appeler « cmdUpdate ». Copier alors le code suivant au projet
|
Private Sub cmdUpdate_Click()
rsMyRS.Edit
rsMyRS!Phone = txtPhone.Text
rsMyRS.Update
End Sub
|
|
Supprimant et ajoutant des disques
|
Supprimer
|
Supprimer des disques ne pourrait pas être plus simple et supprimer le disque courant que vous appelez juste la méthode d'effacement d'objet de RecordSet. Nous mettrons ce dispositif dans notre petit projet et faire un plus de bouton de commande appelé « cmdDelete » et le code suivant effectuera le travail de supprimer notre personne actuellement choisie.
|
Private Sub cmdDelete_Click()
rsMyRS.Delete
lstRecords.RemoveItem lstRecords.ListIndex
End Sub
|
|
S'ajouter
|
Ajouter des disques est tout comme updateing, à moins que vous employiez AddNew au lieu de éditiez et ajoutons un plus de bouton de commande à notre application. Appelons-le… l'errh… m'a laissé voir… le yea ! « cmdNew » =). Voici le code qui ajoute un nouveau disque.
|
Private Sub cmdNew_Click()
rsMyRS.AddNew
rsMyRS!Name = "A New Person"
lstRecords.AddItem rsMyRS!Name
lstRecords.ItemData(lstRecords.NewIndex) = rsMyRS!ID
rsMyRS!Phone = "Person's Phone Number"
rsMyRS.Update
End Sub
|
|
Keywords:
Creating database applications in VB,
visual basic applications,
visual basic database,
how to database,
vb source code,
visual basic vb,
vb ms access,
visual basic net applications,
microsoft access database,
ms access database,
asp net database,
sql server database,
connect to database,
vb asp net,
vb array,
database tutorial,
text creating,
xml database,
asp database,
php database,
c# database
|