连接上SQL数据库后的如何判断SQL语句的执行结果
Dim Rst ,Cnn ,strCnn,sql1strCnn="Provider=SQLOLEDB.1;Password=wshyzhywx26;Persist Security Info=True;User ID=sa;Data Source=WWW-AD24BF4DC0C"
Set Cnn=CreateObject("ADODB.Connection") '生成数据库连接对象
Cnn.Open strCnn '打开数据库
Set Rst=CreateObject("ADODB.Recordset") '生成记录集对象
If cnn.State=0 Then
Reporter.ReportEvent micFail, "testing", "连接数据库失败"
Else
Reporter.ReportEvent micPass, "testing", "连接数据库成功"
End IF
sql1="select * from users where name='张三'"
根据这段代码 可以正常连上SQL数据库了,并且执行了select * from syscolumns where name='张三'这条语句
这条语句有一条返回值, 请问我如何判断这条语句是否执行正确???怎么样判断张三条记录是存在的呢?? 应该如何写代码解决? 执行SELECT的语句在哪？
从你上面这段看是肯定没执行SELECT语句，sql1='""只不过赋个值
//
rst.open sql1,strcnn,2,2
msgbox rst("字段名") Rst.open sql1 ,cnn,1,1
if not Rst.eof then
msgbox "记录存在"
else
msgbox "记录不存在"
end if
页:
[1]
