|
Microsoft Visual Basic 6.0 est un environnement de développement pour créer des applications d'entreprises ayant des besoins divers , y compris l'accès aux données . Visual Basic dispose de plusieurs fonctions permettant d'interroger les tables de base de données . Ces fonctions sont des méthodes de classes de bases de données intégrées à Visual Basic. C'est une simple question de faire une requête SQL sur une table dans un fichier texte . Créer le texte de base de données
Vous devrez tout d'abord créer la table de base de données de texte que votre programme Visual Basic s'ouvre et requête. Créer un répertoire nommé "C: \\ DB" et créer un nouveau fichier, en texte clair dans ce répertoire appelé " MyTable.txt . " Ouvrez ce fichier et entrez ces données :
titre, année , DirectorStar Wars 1977, George LucasExcalibur 1980, John Boorman
créer le projet Visual Basic
fermez le fichier , ouvrir " Visual Basic IDE » ( environnement de développement intégré ) et créez un nouveau projet EXE standard ( > New Project fichier , EXE standard) . Dans la fenêtre de création de formulaire , faites glisser un bouton de commande de la barre d'outils et déposez-le sur le formulaire. Double-cliquez sur le bouton pour entrer dans l'événement Command1_Click , et entrez ce code dans ce sous-programme :
Private Sub Command1_Click () connectionText As New ADODB.ConnectionDim recordSetObj As New chemin ADODB.RecordsetDim As String
path = " C: \\ DB \\ "
connectionText.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " _ & chemin & " Extended Properties = text '; HDR = YES ; FMT = délimité »
recordSetObj.Open " SELECT * FROM myTable.txt où l'année = 1977; », _connectionText , adOpenStatic , adLockReadOnly , adCmdTextDo While Not recordSetObj.EOFMsgBox recordSetObj (0) & ", "& recordSetObj ( 1) & "," & recordSetObj (2) recordSetObj.MoveNextLoop
End Sub
exécuter le programme
exécuter le programme en appuyant sur la touche "F5 ". Appuyez sur le bouton du formulaire lorsque le formulaire s'affiche . Terminez le programme et retourner à l'environnement de code pour explorer et comprendre le code.
La méthode " connectionText.Open " établit la connexion à la base de données. Remarquez les différents points-virgules dans la chaîne de connexion . Ces caractères paires séparées de champs que le moteur de base de données Microsoft Jet a besoin de se connecter à la base de données . Chaque paire est constituée d'un nom et la valeur de ce nom, par exemple, Fournisseur , et Microsoft.Jet.OLEDB.4.0 . Une autre paire est la source et le chemin de données , où le chemin indique le dossier (C: \\ DB ) votre texte table de base de données de fichier est stocké po Le moteur de base de données Microsoft Jet ne voit ce dossier comme une base de données
recordSetObj . . ouvert déclaration fait la requête réelle de la table SQL. Vous pouvez voir cette requête comme l'ouverture d'un jeu d'enregistrements de la table. Lorsque l'instruction Open est terminé, cet ensemble est contenu dans le recordSetObj . La boucle Do While marche à travers le jeu d'enregistrements en utilisant la méthode MoveNext pour passer d'un jeu à l'autre jusqu'à ce que la condition EOF est atteint.
Modifier la requête
Essayer modifier la requête SQL pour inclure une clause WHERE, par exemple, Où l'année = 1977. Ensuite , créez votre propre base de données et de requête à l'aide de ce programme comme un modèle.
|
