Microsoft Visual Basic 6.0 er et utviklingsmiljø for å bygge forretningsapplikasjoner med ulike behov , herunder datatilgang. Visual Basic har flere funksjoner for spørring databasetabeller. Disse funksjonene er metoder for databasen klasser innebygd i Visual Basic. Det er en enkel sak å lage en SQL- spørring på en tekstfil tabellen . Opprett Text Database
Du må først lage teksten database tabellen at Visual Basic programmet vil åpnes og spørring. Lag en katalog som heter " C : \\ DB " og opprette en ny , ren tekstfil i den katalogen som heter " MyTable.txt . " Åpne filen og skriv inn disse dataene : en
Tittel , År , DirectorStar Wars, 1977 , George LucasExcalibur , 1980 , John Boorman
Opprett Visual Basic-prosjekt
Lukk filen , åpne " Visual Basic IDE " (integrert utviklingsmiljø ) og opprette et nytt Standard EXE -prosjekt ( File > New Project, Standard EXE ) . I skjemaet utforming vinduet, drar en kommandoknapp fra verktøylinjen og slipp det på skjemaet . Dobbeltklikk på knappen for å gå inn i Command1_Click hendelsen , og skriv inn denne koden i den subrutinen : en
Private Sub Command1_Click ( ) Dim connectionText som ny ADODB.ConnectionDim recordSetObj som ny ADODB.RecordsetDim vei Som String
< p > path = "C : \\ DB \\"
connectionText.Open " Provider = Microsoft.Jet.OLEDB.4.0 ; datakilde = " _ & banen & "; Utvidede Properties = 'text ; HDR = JA ; FMT = skilletegn ' "
recordSetObj.Open " Velg * Fra myTable.txt HVOR år = 1977 ; " , _connectionText , adOpenStatic , adLockReadOnly , adCmdTextDo Mens Ikke recordSetObj.EOFMsgBox recordSetObj ( 0 ) &" , "& recordSetObj ( 1 ) & " , " & recordSetObj ( 2 ) recordSetObj.MoveNextLoop
End Sub
Kjør program
Kjør programmet ved å trykke " F5 ". Trykk skjemaets knappen når skjemaet vises. Avslutt programmet og gå tilbake til koden miljø for å utforske og forstå koden .
" ConnectionText.Open "-metoden etablerer forbindelsen til databasen . Legg merke til de mange semikolon i forbindelse streng. Disse tegn separate par felt som Microsoft Jet -databasemotor trenger for å koble til databasen . Hvert par består av et navn og verdien for det navnet, f.eks Leverandør , og Microsoft.Jet.OLEDB.4.0 . Et annet par er datakilde og bane , der bane indikerer mappen ( C: \\ DB ) tekstfilen database tabellen er lagret i. Microsoft Jet -databasemotor ser at mappen som en database
recordSetObj . . åpen uttalelse gjør selve SQL tabell-spørring . Du kan se denne spørringen som å åpne et sett med poster fra tabellen. Når Åpen uttalelsen er fullført, er det settet som finnes i recordSetObj . The Do While løkken går gjennom postsettet , ved hjelp av MoveNext metode for å flytte fra ett sett til den neste inntil EOF tilstanden er nådd.
Endre Query
Prøv endre SQL-spørringen til å inkludere en WHERE klausulen, for eksempel HVOR år = 1977 . Deretter oppretter du din egen database og spørre på den ved hjelp av dette programmet som modell.
