Visual Basic 6.0 SQL Tutorial

Microsoft Visual Basic 6.0 je vývojové prostredie pre tvorbu podnikových aplikácií s rôznymi potrebami , vrátane prístupu k dátam . Visual Basic má niekoľko funkcií pre dotazovanie databázových tabuliek . Tieto funkcie sú metódy databázových tried zabudovaných do jazyka Visual Basic . Je to jednoduchá záležitosť , aby sa SQL dotazu na stole textového súboru . Vytvorenie textovej databázy

budete musieť najprv vytvoriť tabuľku databázy texte , že Visual Basic program sa otvorí a dotazu. Vytvorte adresár s názvom " C : \\ DB " a vytvoriť novú , prostý textový súbor v tomto adresári nazvanom " MyTable.txt . " Otvorte tento súbor a zadajte tieto údaje :

Názov , Rok , DirectorStar Wars , 1977 , George LucasExcalibur , 1980 , John Boorman
Vytvorenie projektu Visual Basic

Zatvorte súbor , otvorte " Visual Basic IDE " ( integrované vývojové prostredie ) a vytvorenie nového projektu štandardné EXE ( súbor > Nový projekt , štandardné EXE ) . V okne návrhu formulára , presuňte príkazové tlačidlo z panela nástrojov a umiestnite ho na formulári . Dvakrát kliknite na tlačidlo pre vstup do udalosti Command1_Click , a zadajte tento kód v tomto podprograme :

Private Sub Command1_Click ( ) Dim connectionText As New ADODB.ConnectionDim recordSetObj As New ADODB.RecordsetDim cesta As String

path = " C : \\ DB \\ "

connectionText.Open " Provider = microsoft.jet.oledb.4.0 ; Data Source = " _ & path & " ; Extended Properties = ' text ; HDR = YES , FMT = oddelený ' "

recordSetObj.Open " Select * From myTable.txt WHERE rok = 1977 ; " , _connectionText , adOpenStatic , adLockReadOnly , adCmdTextDo keď nie recordSetObj.EOFMsgBox recordSetObj ( 0 ) & " , " & recordSetObj ( 1 ) & " , " & recordSetObj ( 2 ) recordSetObj.MoveNextLoop

End Sub
spustite program

spustite program Stlačením tlačidla " F5 " . Stlačte tlačidlo vo formulári , ak sa objaví formulár . Ukončenie programu a návrat do kódu životného prostredie preskúmať a pochopiť kód .

Metóda " connectionText.Open " nadviaže pripojenie k databáze . Všimnite si niekoľko bodkočiarkami v pripájacom reťazci . Tieto znaky oddelené dvojice polí , ktoré databázový stroj Microsoft Jet potrebuje pre pripojenie k databáze . Každý pár sa skladá z názvu a hodnoty pre tento názov , napr Poskytovateľ , a microsoft.jet.oledb.4.0 . Ďalšia dvojica je zdroj a cesta dát , kde sa cesta ukazuje , zložky ( C : \\ DB ) Váš textový súbor databázy tabuľka je uložená dovnútra databázový stroj Microsoft Jet vidí , že zložky ako databáza

recordSetObj .. otvoriť výpis robí skutočné tabuľky dotazu SQL . Môžete si nechať zobraziť tento dotaz ako otvorenie sadu záznamov z tabuľky . Po dokončení príkazu Otvoriť , že súbor je obsiahnutý v recordSetObj . Do while prechádza záznamov pomocou metódy MoveNext presunúť z jedného súboru do druhého , až kým sa nedosiahne EOF stav .
Zmeniť dotaz

Vyskúšajte zmenou SQL dotazu zahrnúť klauzulu WHERE , napr WHERE rok = 1977 . Potom , vytvoriť si vlastnú databázu a dotaz pomocou tohto programu ako model .

• Predchádzajúca strana: Word Návody S VB 
• Ďalšia strana: Ako automaticky skopírovať z programu Excel do programu PowerPoint pomocou VBA makier