|
Presque tous les programmes informatiques utiles nécessitent une base de données de quelque sorte. Microsoft a reconnu ce fait dès le début et a fait le moteur de base de données Microsoft Access disponibles pour une utilisation avec des programmes développés en Visual Basic , en commençant par VB 3. Un programme VB 6 peut utiliser le moteur de base de données Access via un composant appelé " Microsoft Data Access Objects » ou DAO . En utilisant ce composant, vous pouvez interroger , insérer, mettre à jour et supprimer au sein de la base de données d'accès. Choses que vous devez
Visual Basic 6.0
Microsoft Access ( Office 97 ou version ultérieure)
Microsoft Data Access Objects ( téléchargement gratuit sur Microsoft.com )
Afficher plus Instructions
1 Démarrez un nouveau projet EXE standard dans Visual Basic 6 (VB) en commençant VB et en sélectionnant " EXE standard " de la nouvelle fenêtre de projet qui apparaît. Dans le menu projet, sélectionnez « Références ». Dans la liste des références disponibles , recherchez l'entrée " xxx DAO Object Library ", où xxx est le numéro de version ( 3.6 par exemple ) . Cliquez sur la case à côté de l'entrée , puis cliquez sur OK.
2 Ouvrez la base de données Access . Pour ce faire , la dimension d'un objet de base de données de type. Par exemple:
db As Database
Ensuite, utilisez l'espace de travail par défaut pour ouvrir un fichier de base de données . Par exemple:
Set db = Workspaces (0) OpenDatabase . ("C: \\ temp \\ congress.mdb " )
L'objet db est maintenant une base de données complètement initialisé prêt à être interrogé ou mis à jour.
3 Ouvrez un jeu d'enregistrements à partir de la base de données et de parcourir les dossiers. Pour ce faire , la dimension d'un objet d'enregistrements et utiliser l'objet de base de données pour l'initialiser :
Dim rs comme RecordsetSet rs = db.OpenRecordset ( " Cong105 " , dbOpenDynaset )
Dans cet exemple, le table " Cong105 " est ouvert comme une feuille de réponse dynamique . Une feuille de réponse dynamique dans ce cas signifie que le jeu d'enregistrements sera modifiable - dossiers peuvent être ajoutés, mis à jour et supprimés. Un jeu d'enregistrements peut également être ouvert que dsOpenReadOnly , ce qui rend le jeu d'enregistrements d'enregistrements en lecture only.The l'ouverture n'a pas besoin d' être tout le tableau. Une instruction SQL (Structured Query Language) peut être utilisé pour ouvrir un sous-ensemble de la table. Par exemple:
Set rs = db.OpenRecordset ( "select * from cong105 où home_state = ' NEW YORK ' " , dbOpenDynaset )
Cela va interroger la table Cong105 pour que les enregistrements avec un état d'origine du "New York ". itération sur le jeu d'enregistrements et de lire les valeurs en utilisant les MoveNext et EOF méthodes d' enregistrements. Par exemple, si la forme a une zone de texte appelée Texte1 ( avec la propriété multiline la valeur true et scrollbars valeur Vertical ) :
= Text1.Text "" While Not rs.EOFText1.Text = Text1.Text & ; ! rs Titre et "" ! & rs Fname & "" & rs LName & vbCrLfrs.MoveNextWend
4 Ajouter un enregistrement à un record établi en utilisant les méthodes AddNew et mise à jour . Appelez la méthode AddNew pour créer un dossier vide dans le jeu d'enregistrements . Définissez les valeurs des champs de l'enregistrement vide et ensuite appeler la méthode Update pour enregistrer ces nouvelles valeurs. Par exemple:
rs.AddNewrs FName = "Test " rs LName = "Test Last" rs jour
5 à jour un enregistrement existant en utilisant la commande Edition et les méthodes de mise à jour ! . Appelez la méthode Edit de mettre l'enregistrement en cours en mode édition. Définissez les valeurs des champs, puis appeler la méthode de mise à jour pour enregistrer les modifications . Par exemple: !
Rs.Editrs LName = rs LName & ". Jr" rs jour
|
