如何知道在一个database文件中是否含有一个已知的table?

[sdeng]

比如我要在一个名为x.mdb中建立2个table, 那怎么知道我现在所需要建立的这个table是否已经存在呢？

[射天狼]

你通过SQL语句建表的时候,如果表存在,则不执行,没有什么影响,还判断干什么,判断反而会降低效率~~

[strongfisher]

'----------------------------------------------------------------------------
'
'Author:lihonggen0
'Date:2003-6-19
'功能：获取access库中表的个数及表的名称
'用ado怎样实现
'工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）
'----------------------------------------------------------------------------
Private Sub Form_Load()
Dim adoCN As New ADODB.Connection '定义数据库的连接

[strongfisher]

Dim strCnn As New ADODB.Recordset
Dim I As Integer
str1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Northwind.MDB;Persist Security Info=False"
adoCN.Open str1

Set rstSchema = adoCN.OpenSchema(adSchemaTables)

Do Until rstSchema.EOF
If rstSchema!TABLE_TYPE = "TABLE" Then
out = out & "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr
I = I + 1
End If
rstSchema.MoveNext
Loop
MsgBox I
rstSchema.Close

adoCN.Close
Debug.Print out
End Sub

[射天狼]

Dim cn As New ADODB.Connection, rs As New ADODB.Recordset

cn.ConnectionString = "dsn=" & cboDSN1.Text & ";uid=" & txtUID1.Text & ";pwd=" & txtPWD1.Text
cn.Open


Set rs = cn.OpenSchema(adSchemaTables)

Do Until rs.EOF
If Trim(rs!TABLE_TYPE) = "TABLE" Then msgbox Trim(rs!TABLE_NAME)
rs.MoveNext
Loop

[射天狼]

如果你非要判断的话,可以用这种方法~~