U moet eerst de tekst database tabel die uw Visual Basic-programma wordt geopend en query. Maak een map genaamd " C : \\ DB " en maak een nieuwe , platte tekst bestand in die map genaamd " MyTable.txt . " Open dat bestand en voer deze gegevens :

Titel
, Jaar , DirectorStar Wars , 1977 , George LucasExcalibur , 1980 , John Boorman
Maak de Visual Basic -project

Sluit het bestand , te openen " Visual Basic IDE " ( integrated development environment ) en maak een nieuw standaard-EXE- project ( file > New project , Standard EXE ) . In het ontwerp -venster vorm , sleept u een opdracht knop op de werkbalk en zet het op het formulier . Dubbelklik op de knop om de Command1_Click evenement meedoet , en voer deze code in die subroutine :

Private Sub Command1_Click ( ) op Dim connectionText als Nieuwe ADODB.ConnectionDim recordSetObj Als Nieuw ADODB.RecordsetDim pad As String

path = " C : \\ DB \\ "

connectionText.Open " Provider = Microsoft.Jet.OLEDB.4.0 ; data Source = "
_ & path & " ; Uitgebreide eigenschappen = 'text ; HDR = YES ; FMT = Delimited ' "

recordSetObj.Open
" Selecteer * Van myTable.txt WHERE Jaar = 1977 ; " , _connectionText , adOpenStatic , adLockReadOnly , adCmdTextDo Terwijl Niet recordSetObj.EOFMsgBox recordSetObj ( 0 ) & " , " & recordSetObj ( 1 ) & " , " & recordSetObj ( 2 ) recordSetObj.MoveNextLoop

End Sub
Voer het programma

Start het programma door Als u op " F5 . " Druk op de knop van het formulier als het formulier wordt weergegeven . Beëindig het programma en terugkeren naar de code -omgeving te verkennen en begrijpen van de code .

De " connectionText.Open " -methode legt de verbinding met de database . Let op de verschillende puntkomma's in de connectie string . Deze tekens gescheiden paren velden die de Microsoft Jet Database Engine nodig heeft om verbinding te maken met de database. Elk paar bestaat uit een naam en de waarde van die naam , bijv. Provider , en Microsoft.Jet.OLEDB.4.0 . Een ander paar is Data Source en Pad , waar het pad geeft de map ( C : \\ DB ) uw tekstbestand database tabel is opgeslagen in de Microsoft Jet Database Engine ziet die map als database

recordSetObj . . Open verklaring doet de daadwerkelijke SQL- tabel query. U kunt deze query te zien zoals het openen van een set van records uit de tabel . Wanneer de instructie Open voltooid , wordt die set in de recordSetObj . De Do While lus loopt door de recordset , met behulp van de MoveNext methode om van de ene set naar de volgende tot het EOF toestand is bereikt .
Wijzig de Query

Probeer het veranderen van de SQL-query een WHERE-component , zoals onder meer WAAR Jaar = 1977 . Maak vervolgens uw eigen database en query's het gebruik van dit programma als model .