Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Office Access 2007 , vyberte " Prázdna databáza " a kliknite na tlačidlo " Vytvoriť " . Kliknite na " Databázové nástroje " a vyberte " Visual Basic " pre otvorenie aplikácie Microsoft Visual Basic .
2
Zvoľte menu " Vložiť " a kliknite na " modul " . Zadajte nasledujúci príkaz na vytvorenie novej podprogram :
Private Sub querySQLDate ( )
Stlačte tlačidlo " ENTER " .
3
Zadajte nasledujúce deklarovať svoj premenné :
Dim strSQL As String
Dim rst ako Recordset
Dim dbs ako databáza
Dim X As Integer
4
Zadajte nasledujúci nastaviť databázu a prepojiť " objednávky " tabuľku z databázy Northwind na serveri SQL Server :
Set DBS = CurrentDb
DoCmd.TransferDatabase acLink , " ODBC Database " , _
" ODBC ; DSN = LOCAL ; LANGUAGE = us_english ; DATABASE = Northwind " , _
acTable , " Objednávky " , " dbo.Orders "
Edit " ODBC ; DSN = LOCAL " a zadajte názov vášho servera SQL Server DSN
5
Zadajte nasledujúce definovať svoj dotaz pomocou . " pole DodatDne " a zobraziť iba auguste 1996 :
strSQL = " SELECT dbo_Orders.CustomerID , dbo_Orders.EmployeeID , dbo_Orders.OrderDate , dbo_Orders.RequiredDate "
strSQL = strSQL & " Z dbo_Orders "
strSQL = strSQL & " WHERE ( ( ( dbo_Orders.RequiredDate ) Medzi # 01/08/1996 # a # 8/31/1996 # ) ) ; "
6
zadajte nasledujúce slučky cez Recordset a zobrazovať dáta cez okne s hlásením :
Set rst = dbs.OpenRecordset ( strSQL )
rst.MoveLast
rst.MoveFirst
X = 0 RST . RecordCount - . 1
MsgBox rst.Fields ( " DodatDne " ) Hodnota
rst.MoveNext
Ďalšie X
Stlačte " F5 " na vykonanie vaše podprogram .