直接贴代码
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
Dim cn1 As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs1 As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=" & Trim(txtXLS.Text) & ";Extended Properties='Excel 8.0;HDR=Yes'"
cn.Open
rs.Open "select * from [" & Trim(cmbSheet.Text) & "$]", cn, adOpenKeyset, adLockOptimistic
str = "Driver={SQL Server};Server=" & Trim(txtServerName) & ";DataBase=" & Trim(txtDatabaseName) & ";UID=" & Trim(txtUsername) & ";PWD=" & Trim(txtPassword) & ";"
cn1.Open str
'On Error GoTo FindTable
Dim TableStr As String
TableStr = Trim(txtDatabaseName) & ".Owner." & Trim(txtTableName)
Dim aSQL As String
aSQL = "select count(*) from sysobjects where id = object_id('" & Trim(TableStr) & "')"
If cn1.Execute(aSQL) = 0 Then MsgBox "1"运行后错误出现在,最后一行说cn1.execute类型不匹配
有人知道怎么解决吗?
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
Dim cn1 As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs1 As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=" & Trim(txtXLS.Text) & ";Extended Properties='Excel 8.0;HDR=Yes'"
cn.Open
rs.Open "select * from [" & Trim(cmbSheet.Text) & "$]", cn, adOpenKeyset, adLockOptimistic
str = "Driver={SQL Server};Server=" & Trim(txtServerName) & ";DataBase=" & Trim(txtDatabaseName) & ";UID=" & Trim(txtUsername) & ";PWD=" & Trim(txtPassword) & ";"
cn1.Open str
'On Error GoTo FindTable
Dim TableStr As String
TableStr = Trim(txtDatabaseName) & ".Owner." & Trim(txtTableName)
Dim aSQL As String
aSQL = "select count(*) from sysobjects where id = object_id('" & Trim(TableStr) & "')"
If cn1.Execute(aSQL) = 0 Then MsgBox "1"运行后错误出现在,最后一行说cn1.execute类型不匹配
有人知道怎么解决吗?
解决方案 »
- 求助,VB将当前时间导入ACCESS
- 请问vb怎样实现让ie以全屏幕方式打开指定网页
- 能用CreateObject getobject打开记事本吗?
- 如何要让SQL认为'A' 与'a'不是一个字符呢?通常用在密码方面的
- 有序导出Excel有错 或 清空存在的Excel表
- 在<TextBox>中鼠标右击,弹出ContentMenu
- 打印机问题
- 引用了DirectX7 VB开发库(dx7vb.dll)的程序,用VB自带的打包工具打包后,为什么不能在别的电脑安装?
- 特急!!!关于EXCEL(解决马上给分)
- 如何得到文本框中光标的位置,急!
- 关于数值表达式比较
- Type XX ... End type参数数量是否有限制?
执行指定的查询、SQL 语句、存储过程或特定提供者的文本等内容。语法对于非按行返回的命令字符串:connection.Execute CommandText, RecordsAffected, Options 对于按行返回的命令字符串:Set recordset = connection.Execute (CommandText, RecordsAffected, Options)返回值返回 Recordset 对象引用。
if rs1 is nothing then ..
或者
if rs1.eof then ..
判断不过也很谢谢你.+满分