vb6 执行 SQL 语句后,怎么得到返回值

Ez330阿牛发布于 2014-05-22 22:21， 4851 次点击

程序代码：

TableExecuteSQL "C:\Test.mdb", "select * from TestTable where 姓名='张三'"
Sub TableExecuteSQL(strDBPath, strSQLCode)
    Dim connObj
    Set connObj = CreateObject("ADODB.Connection")
    connObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source = " & strDBPath
    connObj.execute strSQLCode
End Sub

我怎么判断这个sql语句返回的真假呢,我用open老是会遇到到错误,想问问有没有别的方法,我程序是在vb6.0的环境下执行的,请有相着代码回复,谢谢合作

5 回复

w3609894262014-05-22 23:30

用adodc控件

风吹过b2014-05-23 08:59

execute 命令用错了。

'刚网上抄的代码，未测试。你慢慢看。就是改了一行命令。
Public Function TableExecuteSQL(strDBPath, strSQLCode) As Recordset
    Dim connObj
    Set connObj = CreateObject("ADODB.Connection")
    connObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source = " & strDBPath
    TableExecuteSQL = connObj.execute(strSQLCode)
End Function

afeibfp2014-05-23 16:46

楼上正解，可以返回一个 Recordset对象

lowxiong2014-05-23 19:15

Execute方法只能返回记录的快照，不能用于数据记录更新、修改、添加，一般该命令不作为提供记录集使用，多用于一次性执行sql语句，如delete、insert、update等。再就是在vb6里对类对象赋值需加set，net里不再使用set了。

Ez330阿牛2014-05-24 16:26

回复 3 楼风吹过 b

提示用户自定义类型未定义 ,这个Recordset怎么来的,