一个关于数据库查询的问题---在线等,揭贴

Question

在vb里用什么来分析查询到的记录(比如我要查找age=20的记录 
可以这样select *from table where age=20 但是只是分析返回值(不用显示)怎么做呢?

Answer 1

'例如:Private Sub Command1_Click()
        Dim Rs As New ADODB.Recordset
        Dim Cnn As New ADODB.Connection
        Dim StrSql As String
        Dim ConStr As String
        Dim I As Long
        
        ConStr = "Provider=" & Provider & _
                 "Data Source=" & MdbPath & ";" & _
                 "Jet OLEDB:Database Password=" & UserWord & ";" & _
                  "User ID=" & UserID & ";"        Cnn.ConnectionString = ConStr
        Cnn.Open
        
        StrSql = "select *from table where age=20"
        Rs.Open StrSql, Cnn, adOpenKeyset, adLockBatchOptimistic
        If Not (Rs.EOF And ros.BOF) Then
           Rs.MoveFirst
           For I = 0 To Rs.Fields.Count - 1
               Debug.Print Rs.Fields(I)
           Next
        End If
        Rs.Close
        Set Rs = Nothing
        Cnn.Close
        Set Cnn = Nothing
End Sub

Answer 2

不想显示的话，就不要用显示数据的控件(如DataGrid)显示呀
只对recordset结果集进行操作就行了比如结果集是rs那么 rs.Field("字段名称").Value就是当前纪录所对应的字段的值了

Answer 3

多谢楼上的
不好意思 我没说清楚 我的意思是不如查找一个条件记录是否存在 满足条件的记录有几个之类的 对返回值查看 不用显示 谢谢
另外 debug.print是什么意思 输出到屏幕?

Answer 4

debug.print是在即時運行窗口打印出結果For I = 0 To Rs.Fields.Count - 1
               Debug.Print Rs.Fields(I)
           Next
就是打印字段的名稱。
說實在話，那程序等於baida
有人會扁我了-_-

Answer 5

不好意思 我没说清楚 我的意思是不如查找一个条件记录是否存在 满足条件的记录有几个之类的 对返回值查看 不用显示 谢谢
另外 debug.print是什么意思 输出到屏幕?select count(*) from table where age=20
 

Answer 6

to  daisy8675(莫依)
人民会记的你的:)
谢谢关注!小弟日前正在学用vb写数据库 遇到困难多多 可不可以加我qq 我好讨教啊!
我的qq是:259531824 决不耽误你时间哈!
基本上有点眉目了!

Answer 7

sql中好多数据库查询函数 如exist isnull在vb中都不能用 vb是如何解决的呢?或着说我应该怎么做 有没有什么简单的办法?

Answer 8

标准和SQL语句用连接的EXECUTE都可以实现
cnn.execute sqlstring

Answer 9

set rs=cn.exectue(select * from table where age=20)
if rs.eof or rs.bof then msgbox "没有找到"
msgbox "有  " & str(rs.recordcount) & "条记录"