Create a database dynamically in VB
New project. Add control to write code
The following are the referenced contents: Private Sub Command2_Click () Dim MyDB as DAO. Database ' Set MyDB = DAO. OpenDatabase ("D:\mydb3.mdb") Set MyDB = DAO. OpenDatabase (App.Path + "/mydb.mdb") Dim D as String d = "Delete * from NewTable1" Mydb.execute D MsgBox "Delete all records successfully" End Sub
Private Sub Command3_Click () Dim MyDB as DAO. Database ' Set MyDB = DAO. OpenDatabase ("D:\mydb3.mdb") Set MyDB = DAO. OpenDatabase (App.Path + "/mydb.mdb") Dim e as String E = "Drop TABLE NewTable1" Mydb.execute E End Sub
Private Sub Form_Load () Dim MyDB as DAO. Database ' Set MyDB = DAO. Workspaces (0). CreateDatabase ("D:\mydb3.mdb", dblanggeneral) Set MyDB = DAO. Workspaces (0). CreateDatabase (App.Path + "/mydb.mdb", dblanggeneral) Dim Str_sql as String Str_sql = "Create Table NewTable1 (Field1 Text (), Field2 short)" Mydb.execute Str_sql Dim A as String A = "Insert into NewTable1 VALUES (' Litao ', ' 21 ')" Mydb.execute A
Str_sql = "Create Table NewTable2 (Field1 Text (), Field2 short)" Mydb.execute Str_sql Mydb.close MsgBox "successfully created Mydb3.mdb database plus a record Litao 21" End Sub
Private Sub Command1_Click () Dim MyDB as DAO. Database ' Set MyDB = DAO. OpenDatabase ("D:\mydb3.mdb") Set MyDB = DAO. OpenDatabase (App.Path + "/mydb.mdb") Dim C as String c = "Insert into NewTable1 VALUES (' Liqiao ', ' 20 ')" Mydb.execute C MsgBox "successfully insert a record Liqiao 20" End Sub |