请问，一、如何用ADO查询数据库中某个表是否存在，二、如何在一个数据库中复制一个表

[little_tao_tao]

请问，一、如何用ADO查询数据库中某个表是否存在，二、如何在一个数据库中复制一个表

[lihonggen0]

这样的问题已经问过多次了

一

http://expert.csdn.net/Expert/topic/2012/2012840.xml?temp=.9738123

二、在一个数据库中复制一个表

select * into 新表 from 原表

[neo40]

用ADO查询数据库中某个表是否存在

Dim Ss As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Dim mytablename As String
mytablename = "tblname"

Ss.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\dbname.mdb;"
Ss.Open
Set Rs = Ss.OpenSchema(adSchemaTables)

Do Until Rs.EOF
If Rs!TABLE_NAME = mytablename Then

MsgBox "Table name: " & Rs!TABLE_NAME & vbCr & "Table type: " & Rs!TABLE_TYPE & vbCr

Rs.Close
Ss.Close
Unload Me
End

End If
Rs.MoveNext
Loop
MsgBox "没找到"
Rs.Close

Ss.Close
Unload Me
End

[neo40]

在一个数据库中复制一个表

Dim ss As New ADODB.Connection

ss.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\dbname.mdb;Persist Security Info=False"
ss.Open
ss.Execute "select * into " + App.Path + "\dbname.newtbl from oldtbl"