怎么往ACCESS数据库里面添加一个新表

Question

如题，不同的页面要在这个表中添加不同的字段

Answer 1

Option Explicit
    Public mCnnString As StringPrivate Sub Command1_Click()
Dim mRst As New ADODB.Recordset
mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"
mRst.Open "Select * Into 目的表 From 源表", mCnnString, adOpenStatic, adLockBatchOptimistic, adCmdText
End Sub

Answer 2

我是要把一些在LISTBOX中选择的数据添加到新的表中
这样怎么实现啊

Answer 3

引用微软 ADO Ext.2.6 for dll and Security
ms acticex data object 2.6 library
  
在VB程序中删除、增加、修改Access数据库的查询和表结构；
采用ADO直接连结Access数据库Sub CreateDatabase()
Dim cat As New ADOX.Catalog
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Password=aaa;Data Source=c:\new.mdb;" 
End SubSub CreateTable()
Dim tbl As New Table
Dim cat As New ADOX.Catalogcat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Password=aaa;Data Source=c:\new.mdb;" 
tbl.Name = "MyTable"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tbl
End SubSub CreateIndex()
Dim tbl As New Table
Dim idx As New ADOX.Index
Dim cat As New ADOX.Catalogcat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Password=aaa;Data Source=c:\new.mdb;" ' 定义表并将其追加到目录
tbl.Name = "MyTable"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tbl

Answer 4

我是要把一些在LISTBOX中选择的数据添加到新的表中
这样怎么实现啊使用insert语句
strsql = "insert into table (字段1，字段2) Values ('" & List1.Text & "','" & List1.Text & "')"