如何复制Access数据库中的一个数据表？

Question

我用Access数据库，在vb中怎么实现对数据库中的一个数据表进行换名复制？
也就是说，我又一个数据库，其中一个数据表AA，我想在这个数据库中创建一个新数据表，结构与AA相同，在Access环境下很容易实现，VB中怎么用程序实现？

Answer 1

如果表BBB不存在：
Select * Into BBB From AAA
如果表BBB已存在:
Insert Into BBB Select * from AAA

Answer 2

复制表结构：
select * into BB from AA where False

Answer 3

VB中SQL语句和ACCESS中的一样，如楼上所说。
VB要引用ADO对象，声明一个Connection连接数据库，用EXECUTE方法执行上面的SQL语句就可以了

Answer 4

'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection
    '有密码的连接方式
    'cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Jet OLEDB:DataBase password=12345;"
    '无密码的连接方式
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Persist Security Info=False"
    cn.CursorLocation=adUseClient'设置客户端游标
    cn.Open
    '如果表BBB不存在：
    'cn.Execute "Select * Into BBB From AAA"
    '如果表BBB已存在:
    cn.Execute "Insert Into BBB Select * from AAA"
    cn.Close
    Set cn=Nothing
    Exit Sub
err:
    MsgBox err.Description
End Sub