Visual Basic 6.0 SQL Tutorial

Microsoft Visual Basic 6.0 er et utviklingsmiljø for å bygge forretningsapplikasjoner med ulike behov, inkludert datatilgang. Visual Basic har flere funksjoner for spørring databasetabeller. Disse funksjonene er metoder for database klasser innebygd i Visual Basic. Det er en enkel sak å lage en SQL-spørring på en tekstfil bord.

Lag Tekst Database

Du må først opprette tekstdatabasetabellen som Visual Basic programmet vil åpnes og spørring. Lag en katalog som heter "C: \ DB" og opprette en ny, ren tekst fil i den katalogen som heter "MyTable.txt." Åpne filen og skriv inn disse dataene:

Tittel, År, direktør
Star Wars, 1977, George Lucas
Excalibur, 1980, John Boorman

Opprette Visual Basic-prosjektet

Lukke filen, åpne "Visual Basic IDE" (integrert utviklingsmiljø) og opprette et nytt Standard EXE-prosjekt (Fil> Nytt prosjekt, Standard EXE). I utformingen vinduet form, dra en kommandoknapp på verktøylinjen og slipp det på skjemaet. Dobbeltklikk på knappen for å gå inn i Command1_Click hendelsen, og skriv inn denne koden i at subrutine:

Private Sub Command1_Click ()
Dim connectionText som ny ADODB.Connection
Dim recordSetObj som ny ADODB.Recordset
Dim vei Som String

path = "C: \ DB \"

connectionText.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" _
& Bane & "; Extended Properties = 'tekst; HDR = JA; FMT = Avgrenset'»

recordSetObj.Open "Velg * Fra myTable.txt WHERE år = 1977;", _

connectionText, adOpenStatic, adLockReadOnly, adCmdText

Gjør Mens Ikke recordSetObj.EOF
MsgBox recordSetObj (0) & "," & recordSetObj (1) & "," & recordSetObj (2)

recordSetObj.MoveNext

Loop

End Sub

Kjør Program

Kjør programmet ved å trykke på "F5". Trykk på skjemaets knappen når skjemaet vises. Avslutt programmet og gå tilbake til koden miljø å utforske og forstå koden.

Den "connectionText.Open" metode etablerer forbindelsen til databasen. Legg merke til de mange semikolon i tilkoblingsstrengen. Disse tegnene skille par felt som Microsoft Jet-databasemotoren trenger for å koble til databasen. Hvert par består av et navn og verdien for det navnet, f.eks Provider, og Microsoft.Jet.OLEDB.4.0. Et annet par er datakilde og bane, hvor stien indikerer mappen (C: \ DB) tekstfilen database tabell er lagret i Microsoft Jet-databasemotoren ser at mappen som en database..

Den recordSetObj.Open uttalelsen gjør selve SQL tabell-spørring. Du kan se dette søket som å åpne et sett med poster fra tabellen. Når Åpne uttalelsen er fullført, er det sett som finnes i recordSetObj. Do Mens løkken går gjennom postsettet, ved hjelp av MoveNext metoden for å flytte fra ett sett til den neste inntil EOF tilstanden er nådd.

Endre Query

Prøv å endre SQL-spørring for å inkludere et WHERE-ledd, f.eks HVOR år = 1977. Deretter oppretter din egen database og spørre det å bruke dette programmet som modell.