Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
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 " a potom vyberte " Visual Basic " , otvorte okno Basic Visual Microsoft . Kliknite na " Vložiť " poľa a zvoľte " Module " .
3
Skopírujte a vložte nasledujúci kód do nového modulu používať " dodávateľ A " ako premennú výberového dotazu a zobrazenie meno a priezvisko " Dodávateľ a " :
Private Sub userQueryVariables ( )
Dim strSQL As String
Dim rst Ako Recordset
Dim dbs Ako databáza
Dim dodávateľ As String
dodávateľmi = " dodávateľ A "
Nastavte DBS = CurrentDb
strSQL = " SELECT Suppliers.Company , Dodávatelia . [ Priezvisko ] , dodávatelia . [ First Name ] "
strSQL = strSQL & " zo strany dodávateľov "
strSQL = strSQL & " WHERE ( ( ( Suppliers.Company ) = ' " & ( dodávateľ ) & " " ) ) ; "
Set rst = dbs.OpenRecordset ( strSQL )
rst.MoveLast
rst.MoveFirst
Debug . Print ( dodávateľ a " Informácie " )
robiť , keď nie je rst.EOF
Debug.Print ( " Meno : " . & rst.Fields ( 2 ) Value )
Debug.Print ( " Last Name : " . & rst.Fields ( 1 ) Hodnota )
rst.MoveNext
Loop
End Sub
4
Stlačte " F5 " spustiť podprogram .