vb+access 在代码中对access数据库创建新表

Question

如题，点按钮时，先判断数据库里有没有这个表名，如果没有就创建，如果有，就弹出提示说已经有此表了。

Answer 1

Private Sub command1_click()
    If 数据库里有没有这个表名 Then
        创建这个表
    Else
        MsgBox "已经有此表了"
    End If
End Sub

Answer 2

nian = Trim(Combo1.Text)
    On Error Resume Next
     Adodc2.RecordSource = "select   *   into " & nian & "  from  2009  where 1=2"
     Adodc2.CommandType = adCmdText
     Adodc2.Refresh我用这个来复制表，让新表和2009的表一样，创建了，但弹出“对象关闭时，不允许操作”，如何解决？

Answer 3

抱歉，没这样用过。我都是用execute方法来执行strsql

Answer 4

可以用 select * from [sys].[objects] where [name]='表名' 来返回一个记录集。如果有记录说明，表存在。但这是在SQL里的用法，ACCESS里没用过。
如果ACCESS里行不通，你可以用一个变通的方法，就用 Select打开你要测式的表，如果表不存在，则会报错。这样在Select 前设置 一个错误陷井on error goto XXXX，只要进入这个陷井就代表这个表不存在了。