在VB中动态创建数据库

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【在VB中动态创建数据库】，下面是详细的分享！

在VB中动态创建数据库

以下为引用的内容：
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 "成功删除全部记录"
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(10),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(10),Field2 Short)"
    myDB.Execute str_SQL
    myDB.Close
    MsgBox "成功创建mydb3.mdb数据库外加一条记录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 "成功插入一条记录liqiao 20"
End Sub

以上所分享的是关于在VB中动态创建数据库，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：如何用vb动态创建数据库的表？

　　答：For i = 2 To 6 tbl.Columns.Append "MyField" & i, adInteger '表的第i个字段 Next i 可以使用循环语句创建表 >>详细

　　相关问题：VB6.0动态创建数据库和表

　　答：引用：Microsoft DAO 3.6 Object Library 创建数据库： Set f = DBEngine.CreateDatabase(App.Path + "\DB.mdb", dbLangChineseSimplified)'（仅适用于Access） 创建表要用到SQL语句，如果你有这方面的基础就会很容易做到的。 首先，连接到数据... >>详细

　　相关问题：如何用VB编写可以动态生成数据库和表的程序？？？

　　答：那只是创建表.还不算动态,动态要二维数组,表达行和列. 如: Dim myDB As DAO.Database Set myDB = DAO.Workspaces(0).CreateDatabase("d:\md\lll.mdb", dbLangGeneral) myDB.Execute "Create Table " & 表名 & "(" & "id Counter," & mm1 & " Tex... >>详细