On Error Resume Next
Dim rstSchema As New ADODB.Recordset
Dim adoCN As New ADODB.Connection
Dim findTable As String
findTable = "dbo.SZUsrtable"
adoCN.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sz!2345;Initial Catalog=master;Data Source=(local)"
adoCN.Open
Set rstSchema = adoCN.OpenSchema(adSchemaTables)
rstSchema.Find "TABLE_Name='" & findTable & "'"
If rstSchema.EOF Then
MsgBox "没有"
Else
MsgBox "有"
End If
rstSchema.Close------------运行后老是显示没有,无论表是否存在
Dim rstSchema As New ADODB.Recordset
Dim adoCN As New ADODB.Connection
Dim findTable As String
findTable = "dbo.SZUsrtable"
adoCN.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sz!2345;Initial Catalog=master;Data Source=(local)"
adoCN.Open
Set rstSchema = adoCN.OpenSchema(adSchemaTables)
rstSchema.Find "TABLE_Name='" & findTable & "'"
If rstSchema.EOF Then
MsgBox "没有"
Else
MsgBox "有"
End If
rstSchema.Close------------运行后老是显示没有,无论表是否存在
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货