Ako Access VBA , SQL dotaz

Visual Basic for Applications ( VBA ) je programovací jazyk navrhnutý spoločnosťou Microsoft a použiť na automatizáciu rutinných úloh v programe Access . Access je relačný databázový systém zahrnuté do balíka Microsoft Office . Structured Query Language ( SQL ) dotaz slúži na načítanie dát z databázovej tabuľky . Výsledky výstup z SQL dotazu sú prístupné pomocou objektu Recordset . V niekoľkých krokoch môžete písať kód VBA na vytvorenie dotazu SQL a zobraziť záznamy načítané . Pokyny dovolená 1

Otvorte databázu Northwind aplikácie Microsoft Office Access . Databáza Northwind je súčasťou balíka Microsoft Office .
2

Kliknite na " Databázové nástroje " , potom vyberte " Visual Basic " , otvorte Visual Basic okno Microsoft . Kliknite na " Vložiť " poľa a zvoľte " modul " .
3

Skopírujte a vložte nasledujúci kód do nového modulu pre zobrazenie prvého mená a obchodné telefónne číslo v " zákazníka " tabuľky :

Private Sub customerQuery ( )

Dim strSQL As String Dim

custRst As Recordset

Dim dbs ako databáza

Dim rstCntr as Integer

Dim custStr as String

Set DBS = CurrentDb

strSQL = " SELECT Zákazníci . [ First Name ] , "

strSQL = strSQL & " Zákazníci , [ Telefón ] . "

strSQL = strSQL & " FROM Customers ; "

Set custRst = dbs.OpenRecordset ( strSQL )

custRst.MoveLast

custRst.MoveFirst

rstCntr = 0 To custRst.RecordCount - . 1

custStr = custStr & custRst.Fields ( 0 ) Hodnota & _

" je zákazníkov a ich podnikanie je telefón " a custRst.Fields ( 1 ) . Hodnota & vbCr

custRst.MoveNext

Ďalšie rstCntr

MsgBox custStr

custRst.Close

dbs.Close

End Sub
4

Spustiť podprogram stlačením tlačidla " F5 " .

• Predchádzajúca strana: Ako spúšťať parametre v DAO dotazu v programe Access VBA 
• Ďalšia strana: Ako zastaviť vlákno v jazyku Visual Basic 2005