关于vb查询SQL server2000中表是否存在的有关问题

关于vb查询SQL server2000中表是否存在的问题
直接贴代码

VB code

Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim str As StringDim cn1 As New ADODB.ConnectionDim cmd As New ADODB.CommandDim rs1 As New ADODB.Recordsetcn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=" & Trim(txtXLS.Text) & ";Extended Properties='Excel 8.0;HDR=Yes'"cn.Openrs.Open "select * from [" & Trim(cmbSheet.Text) & "$]", cn, adOpenKeyset, adLockOptimisticstr = "Driver={SQL Server};Server=" & Trim(txtServerName) & ";DataBase=" & Trim(txtDatabaseName) & ";UID=" & Trim(txtUsername) & ";PWD=" & Trim(txtPassword) & ";"cn1.Open str'On Error GoTo FindTableDim TableStr As StringTableStr = Trim(txtDatabaseName) & ".Owner." & Trim(txtTableName)Dim aSQL As StringaSQL = "select count(*) from sysobjects where id = object_id('" & Trim(TableStr) & "')"If cn1.Execute(aSQL) = 0 Then MsgBox "1"

运行后错误出现在,最后一行说cn1.execute类型不匹配
有人知道怎么解决吗?

[解决办法]
Execute 方法 (ADO Connection)


执行指定的查询、SQL 语句、存储过程或特定提供者的文本等内容。

语法

对于非按行返回的命令字符串：

connection.Execute CommandText, RecordsAffected, Options 

对于按行返回的命令字符串：

Set recordset = connection.Execute (CommandText, RecordsAffected, Options)

返回值

返回 Recordset 对象引用。

查看更多 下一篇