ADO语句请教

小陈　发表于：2013-05-06 15:05:44 　

在本论坛下载了“检查表中是否有负数”例子学习，例子中用DAO语句，我想对比学ADO语句。请问，如果要实现例子的功能，用ADO语句如何写？原语句如下：

Private Sub cmd_judge_Click()
Dim rst As DAO.Recordset
Dim k As Integer
Dim str As String
Set rst = CurrentDb.OpenRecordset("tbl1", dbReadOnly)
If rst.RecordCount > 0 Then rst.MoveFirst
k = 0
Do Until rst.EOF
If rst!a < 0 Then
k = k + 1
str = str & CStr(rst!a) & Chr(32)
End If
rst.MoveNext
Loop
If k > 0 Then
MsgBox "表中有数据为负数，数据分别是：" & "" & str & "", vbInformation, "提示"
Else
MsgBox "表中没有负数存在！", vbInformation, "提示"
End If
rst.Close
Set rst = Nothing

End Sub

Top

西出阳关无故人发表于：2013-05-06 15:46:49

Dim k As Integer
Dim str As String

dim rst as dodb.recordset
rst.open "",application.currentproject, adOpenKeyset, adLockOptimistic, adCmdTableDirect

if rst.RecordCount > 0 Then rst.MoveFirst
k = 0
Do Until rst.EOF
If rst!a < 0 Then
k = k + 1
str = str & rst.Fields("a") & Chr(32)
End If
rst.MoveNext
Loop
If k > 0 Then
MsgBox "表中有数据为负数，数据分别是：" & "" & str & "", vbInformation, "提示"
Else
MsgBox "表中没有负数存在！", vbInformation, "提示"
End If
rst.Close
Set rst = Nothing