Microsoft Visual Basic 6.0 är en utvecklingsmiljö för att bygga affärsapplikationer med olika behov , inklusive tillgång till data . Visual Basic har flera funktioner för att fråga databastabeller . Dessa funktioner är metoder för databasen klasser inbyggda i Visual Basic . Det är en enkel sak att göra en SQL-fråga på en textfil tabell. Skapa textdatabasen
Du behöver först skapa tabellen text databas som ditt Visual Basic-program öppnas och fråga . Skapa en katalog som heter " C : \\ DB " och skapa en ny , vanlig textfil i den katalogen som heter " MyTable.txt . " Öppna filen och skriv in dessa uppgifter :
titel, år , DirectorStar Wars , 1977 , George LucasExcalibur , 1980 , John Boorman
Skapa Visual Basic Project
Stäng filen , öppna " Visual Basic IDE " ( integrerad utvecklingsmiljö ) och skapa ett nytt Standard-EXE- projekt ( Arkiv > nytt projekt , Standard EXE ) . I form designen fönstret , drar en kommandoknapp från verktygsfältet och släpp den på formuläret . Dubbelklicka på knappen för att gå in i Command1_Click händelsen , och ange koden i den subrutinen :
Private Sub Command1_Click ( ) Dim connectionText Som New ADODB.ConnectionDim recordSetObj Som New ADODB.RecordsetDim väg As String
path = " C : \\ DB \\ "
connectionText.Open " Provider = Microsoft.Jet.OLEDB.4.0 , Data Source = " _ & path & "; Utökade Egenskaper = ' text , HDR = JA ; FMT = Avgränsat ' "
recordSetObj.Open " SELECT * FROM myTable.txt WHERE År = 1977 " , _connectionText , adOpenStatic , adLockReadOnly , adCmdTextDo Även om inte recordSetObj.EOFMsgBox recordSetObj ( 0 ) & " , " & recordSetObj ( 1 ) & " , " & recordSetObj ( 2 ) recordSetObj.MoveNextLoop
End Sub
Kör programmet
Kör programmet genom trycka " F5 ". Tryck formulärets knappen när formuläret visas . Avsluta programmet och återgå till koden miljö att utforska och förstå koden .
" ConnectionText.Open " metoden upprättar anslutningen till databasen . Lägg märke till de olika semikolon i anslutningen strängen . Dessa tecken separata fältpar att Microsoft Jet-databasmotorn behöver ansluta till databasen . Varje par består av ett namn och värde för det namnet , t.ex. Provider , och Microsoft.Jet.OLEDB.4.0 . Ett annat par är datakälla och sökväg där sökväg anger den mapp ( C : \\ DB ) textfilen databastabell lagras i. Microsoft Jet-databasmotorn ser att mappen som en databas recordSetObj
. . öppna uttalande gör den faktiska SQL tabellfråga . Du kan se denna fråga som att öppna en uppsättning poster från tabellen . När Open uttalande klar , är den som finns i recordSetObj . The Do Medan slingan går genom postmängden , med MoveNext metod för att flytta från en uppsättning till nästa tills EOF tillståndet nås .
Ändra frågan
Pröva ändra SQL-fråga för att inkludera en WHERE-sats , t.ex. VAR År = 1977. Sedan , skapa din egen databas och fråga det med det här programmet som en modell .
