请教使用 adodc控件 ，如何查询access数据库中某个表是否存在，不存在则新建？

Question

想把采集的数据放到access数据库中，把每个月采的值分别放到以年和月命名的表中（不知道这样妥不妥，有无必要？），软件重启怕覆盖原来的数据，使用的adodc控件，不知道怎么查询表是否已经存在，用过的各位可否提供方法，特请教！

Answer 1

给个地址,要是能行,别忘了加分
http://topic.csdn.net/u/20070806/15/723993cb-69dd-4709-9495-cb6656721e82.html

Answer 2

'添加Command1Private Sub Command1_Click()
   On Error Resume Next
   Set Conn = CreateObject("ADODB.Connection")
   Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:\bwscale.mdb"
   Set rs = Conn.execute("bwcust")
   MsgBox IIf(Err.Number <> 0, "表不存在", "表存在")
End Sub

Answer 3

使用ADODC的话可以枚举这个mdb里面所有的表比对一下也可以'引用 Microsoft ADO Ext 2.5 for ddl and security
'部件 Microsoft Ado Data Control 6.0(OLEDB)Private Sub Command1_Click()
   call OpenConnection
End SubSub OpenConnection()
   Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:\bwscale.mdb;Persist Security Info=False"
   Dim cat As New ADOX.Catalog
   cat.ActiveConnection = Adodc1.ConnectionString
   For i = 0 To cat.Tables.Count - 1
      If Left(cat.Tables(i).Name, 4) <> "MSys" Then Print cat.Tables(i).Name
   Next i
   Adodc1.RecordSource = "select * from bwmain"
   Set DataGrid1.DataSource = Adodc1
End Sub