Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Office Access 2007 a kliknite na tlačidlo " Prázdna databáza " a vyberte " Vytvoriť " . Kliknite na " Databázové nástroje " a vyberte " Visual Basic " . Zvoľte menu " Vložiť " a kliknite na " modul " .
2
Skopírujte a vložte nasledujúci kód vytvoriť novú tabuľku , pridať dva záznamy a odstrániť záznam , kde " Ulica " sa rovná " Main " .
Private Sub deleteQuery ( )
Dim sqlStr As String
sqlStr = " CREATE TABLE addressTbl ( číslo domu TEXT ( 25 ) , ulice TEXT ( 25 ) ) ; "
DoCmd.RunSQL ( sqlStr )
sqlStr = " INSERT INTO addressTbl ( [ číslo domu ] , [ Street ] ) "
sqlStr = sqlStr a " VALUES ( '2541 ' , ' Lancaster ' ) ; " Spojené
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlStr )
sqlStr = " INSERT INTO addressTbl ( [ číslo domu ] , [ Street ] ) "
sqlStr = sqlStr & " VALUES ( '2458 ' , ' Hlavný ' ) ; " Spojené
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlStr )
sqlStr = " Zmazať addressTbl.HouseNumber , addressTbl.Street "
sqlStr = sqlStr & " Z addressTbl "
sqlStr = sqlStr & " WHERE ( ( ( addressTbl.Street ) = " Main " ) ) . "
DoCmd.RunSQL ( sqlStr )
End Sub
3
Stlačte " F5 " vykonať svoje podprogram