Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Vyberte " Databázové nástroje . " Kliknite na " Visual Basic " , otvorí sa okno " Microsoft Visual Basic " .
Vytvoriť nový sub zadaním " Private Sub editRecordSet ( ) " a stlačením tlačidla " Enter " .
2
Zadajte nasledujúci príkaz na vytvorenie premennej a nastaviť aktuálnu databázu :
Dim sqlStr As String
Dim rst ako Recordset
Dim dbs ako databáza
Set DBS = CurrentDb
3
Zadajte nasledujúci vytvoriť novú tabuľku :
SQLString = " CREATE TABLE editRecord ( F_Name TEXT , L_Name TEXT ) "
DoCmd.SetWarnings False
DoCmd.RunSQL ( SqlString )
4
zadajte nasledujúce pridať tri záznamy dát do tabuľky :
strSQL = " Vložiť DO editRecord VALUES ( ' Sebastian ' , ' Puga ' ) "
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO editRecord VALUES ( ' Maria ' , ' GONZALEZ ' ) "
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO editRecord VALUES ( ' John ' , ' LOPEZ ' ) "
DoCmd.RunSQL ( strSQL )
5
Zadajte nasledujúci dotaz tabuľku a vráti všetky záznamy : ( . " SELECT * FROM editRecord editRecord " )
Set rst = dbs.OpenRecordset
6
Zadajte nasledujúce prejsť na rekordné číslo tri a aktualizovať pole " F_Name " na " JUAN " :
Set rst = dbs.OpenRecordset ( " . SELECT * FROM editRecord editRecord " )
rst . Move ( 2 ) Spojené
rst.Edit
rst.Fields ( " F_Name " ) . Value = " JUAN "
rst.Update
7
Zadajte nasledujúce zavrieť rekord a uvoľnite " DBS " premenné z pamäte :
rst.Close
Set DBS = Nothing
Stlačte " F5 " vykonať svoj nový podprogram .