Microsoft Visual Basic 6.0 er et udviklingsmiljø til opbygning af business-applikationer med forskellige behov, herunder dataadgang. Visual Basic har flere funktioner til at forespørge databasetabeller. Disse funktioner er metoder til database klasser indbygget i Visual Basic. Det er en enkel sag at lave en SQL-forespørgsel på en tekstfil bord. Opret Text Database
Du bliver først nødt til at oprette en tekst database tabellen , at din Visual Basic-program åbnes, og forespørgslen. Opret en mappe kaldet "C: \\ DB" og oprette en ny , almindelig tekst -fil i denne mappe kaldet " MyTable.txt ". Åbn denne fil og indtaste disse data : Hej
Titel , År , DirectorStar Wars , 1977, George LucasExcalibur , 1980, John Boorman
Opret Visual Basic Project
Luk filen , åbne " Visual Basic IDE " ( integreret udviklingsmiljø ), og oprette et nyt standard-EXE -projekt (Filer > Nyt projekt , Standard EXE) . I form design vinduet , skal du trække en kommandoknap på værktøjslinjen , og slip det på skemaet. Dobbeltklik på knappen for at komme ind i Command1_Click begivenhed, og indtaste denne kode i denne subrutine : Hej
Private Sub Command1_Click ( ) Dim connectionText Da New ADODB.ConnectionDim recordSetObj Som New ADODB.RecordsetDim sti As String
< p > path = " C: \\ DB \\ "
connectionText.Open " Provider = Microsoft.Jet.OLEDB.4.0 ; datakilde = " _ & path & " Udvidede Properties = ' tekst; HDR = JA ; FMT = Afgrænset ' "
recordSetObj.Open " Vælg * Fra myTable.txt WHERE År = 1977 " , _connectionText , adOpenStatic , adLockReadOnly , adCmdTextDo While Not recordSetObj.EOFMsgBox recordSetObj (0) &" , "& recordSetObj ( 1 ) & " ," & recordSetObj (2) recordSetObj.MoveNextLoop
End Sub
Kør programmet
Kør programmet ved trykke " F5 ". Tryk formularens knappen, når formularen vises . Afslut programmet og vender tilbage til den kode miljø til at udforske og forstå koden .
" ConnectionText.Open " metoden etablerer forbindelsen til databasen. Bemærk de mange semikoloner i forbindelsen strengen . Disse tegn adskilte par af felter, Microsoft Jet-databaseprogram brug for at oprette forbindelse til databasen . Hvert par består af et navn og værdien for denne betegnelse , f.eks Udbyder, og Microsoft.Jet.OLEDB.4.0 . Et andet par er datakilde og sti , hvor stien angiver mappe ( C: \\ DB ) din tekstfil database tabel er gemt i. Microsoft Jet database engine ser, at mappe som en database
recordSetObj . . åben erklæring gør selve SQL-tabel forespørgsel. Du kan se denne forespørgsel som åbner et sæt af poster fra tabellen. Når Open-sætningen færdig, er det sæt indeholdt i recordSetObj . Den Do While løkken går gennem postsættet , ved hjælp af MoveNext metode til at flytte fra det ene sæt til den næste , indtil EOF tilstand er nået .
Change Query
Prøv ændre SQL-forespørgslen til at omfatte en WHERE , fx HVOR År = 1977. Derefter oprette din egen database og forespørge det med dette program som en model.