Ako spúšťať parametre v DAO dotazu v programe Access VBA

Microsoft Office Access je relačný databázový systém sa bežne používa u menších a lokálnych databáz . Visual Basic for Applications , tiež známy ako VBA , je počítačový programovací jazyk použiť na automatizáciu rutinných procesov . Otázka sa používa na načítanie dát z databázových tabuliek . Môžete si vytvoriť dotaz tiež aktualizovať dáta v databázovej tabuľke . V niekoľkých krokoch môžete písať kód VBA na vykonanie aktualizačného dotazu a taktiež vytvoriť výberový dotaz pre zobrazenie aktualizáciu . 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 okno Basic Visual 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 aktualizovať tabuľku Zamestnanci a zobraziť aktualizácie pomocou výberového dotazu.

Public Sub DAOQuery ( )

Dim názov As String

Dim db Ako DAO.Database

Dim rst Ako DAO.Recordset

Dim QRY As String

title = " DAO Query "

Set db = CurrentDb ( )

QRY = " UPDATE Zamestnanci SET zamestnanca . [ mobilný telefón ] = '210 -999 až 999 ' "

QRY = QRY & " WHERE ( ( ( Employees. [ Priezvisko ] ) = " Cencini " ) ) ; " Spojené

DoCmd.SetWarnings False

DoCmd.RunSQL ( QRY )

Debug.Print title & " : SQL aktualizácia paramenter otázka: " & _

vbNewLine & " " & QRY

QRY = " SELECT zamestnancov . [ priezvisko ] , Zamestnanci . [ mobilný telefón ] "

QRY = QRY & " FROM Zamestnanci "

QRY = QRY a " WHERE ( ( ( Employees. [ priezvisko ] ) = " Cencini " ) ) ; "

Debug.Print titul a " : SQL dotaz : " & _

vbNewLine & " " & QRY

" Spustiť QRY a vytvoriť rekord

Set rst = db.OpenRecordset ( QRY )

Debug.Print titulnej & " : Načítanie informácií o schéme pre danú množinu výsledkov : "

i = 0 To rst.Fields.Count - 1

Debug.Print "

• Predchádzajúca strana: Ako hľadať reťazec v súbore 
• Ďalšia strana: Ako Access VBA , SQL dotaz