如果验证查询结果是否正确？

rivermen

可以连接数据库查询！
Dim conn,sql,res
conn="Provider=MSDASQL.1;Persist Security Info=False;Data Source=QT_Flight32"
sql="select  *  from Orders"
Set res=nothing

' 调用外部子程序 OpenDB 进行连接数据库
        OpenDB conn,sql,res
                'msgbox res.RecordCount&"行," & res.fields.count & "列"
                res.MoveFirst
           ' res.MoveNext    没有它的话，记录就成了死循环
          
                'reporter.ReportEvent 2,"测试连接数据库","数据库获取数据：" & res.fields(0)

        RowCount=res.RecordCount
        ColumnCount=res.fields.count
        While not res.eof
                Record=""
                For i=0 to ColumnCount-1
                        Record=Record & "：" &res.fields(i)
                Next
                        Record=mid(Record,2)
                        reporter.ReportEvent 2,"数据库记录：",Record
                res.MoveNext
        Wend
  
' 调用外部子程序 CloseDB关闭数据库
        CloseDB



'#################################################################
'#################################################################
' 连接数据库子程序
' 第一个参数：根据数据库的类型，设计连接字符串（参见udl文件）
' 第二个参数：连接数据库之后，进行查询的相应语句
' 第三个参数：查询记录返回到res
Sub OpenDB(conn,sql,res)
   Set cnn=CreateObject("adodb.connection")
   cnn.open conn
   Set res=CreateObject("adodb.recordset")
   res.open sql,cnn,1,1
   
End Sub
'#################################################################




'#################################################################
'#################################################################
' 关闭数据库的连接
sub CloseDB
   Set res=nothing
        Set cnn=nothing
end sub
'#################################################################