vb 中 怎么从ADODB.RecordSet 中遍历出 从表中得到的 信息

Question

[size=24px]ADODB.RecordSet  后 我想做这样一个逻辑
String a ;
For(int i =0, i<10, i++){
      if(item(i)!=strState){
             if(strCountry="CH"){
                  a = "kk";
              }else{
                   a="";
           }
       }else{
           a="";
       }
}用vb方式实现大神们帮帮忙

Answer 1

BOF、EOF 和 Book 属性范例
该范例使用 BOF 和 EOF 属性，在用户试图移过 Recordset 的第一个和最后一个记录时显示一条信息。它通过 Book 属性使用户对 Recordset 中的记录进行标记，稍后再返回给它。Public Sub BOFX()   Dim rstPublishers As ADODB.Recordset
   Dim strCnn As String
   Dim strMessage As String
   Dim intCommand As Integer
   Dim varBook As Variant   ' 使用来自出版商表的数据打开记录集。
   strCnn = "Provider=sqloledb;" & _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
   Set rstPublishers = New ADODB.Recordset
   rstPublishers.CursorType = adOpenStatic
   ' 使用客户端游标启用 AbsolutePosition 属性。
   rstPublishers.CursorLocation = adUseClient
   rstPublishers.Open "SELECT pub_id, pub_name FROM publishers " & _
      "ORDER BY pub_name", strCnn, , , adCmdText   rstPublishers.MoveFirst   Do While True
      ' 显示关于当前记录的信息并让用户输入。
      strMessage = "Publisher: " & rstPublishers!pub_name & _
         vbCr & "(record " & rstPublishers.AbsolutePosition & _
         " of " & rstPublishers.RecordCount & ")" & vbCr & vbCr & _
         "Enter command:" & vbCr & _
         "[1 - next / 2 - previous /" & vbCr & _
         "3 - set book / 4 - go to book]"
      intCommand = Val(InputBox(strMessage))      Select Case intCommand
         ' 向前或向后移动，捕获 BOF 或 EOF。
         Case 1
            rstPublishers.MoveNext
            If rstPublishers.EOF Then
               MsgBox "Moving past the last record." & _
                  vbCr & "Try again."
               rstPublishers.MoveLast
            End If
         Case 2
            rstPublishers.MovePrevious
            If rstPublishers.BOF Then
               MsgBox "Moving past the first record." & _
                  vbCr & "Try again."
               rstPublishers.MoveFirst
            End If         ' 保存当前记录的书签。
         Case 3
            varBook = rstPublishers.Book         ' 转到由存储的书签所指示的记录。
         Case 4
            If IsEmpty(varBook) Then
               MsgBox "No Book set!"
            Else
               rstPublishers.Book = varBook
            End If         Case Else
            Exit Do
      End Select   Loop   rstPublishers.CloseEnd Sub该范例使用 Book 和 Filter 属性创建记录集的限定视图，将只允许访问书签数组所引用的记录。Public Sub BOFX2()Dim rs As New ADODB.Recordset
Dim bmk(10)rs.CursorLocation = adUseClient
rs.ActiveConnection = "Provider=sqloledb;" & _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=;" rs.Open "select * from authors", , adOpenStatic, adLockBatchOptimistic
Debug.Print "Number of records before filtering: ", rs.RecordCountii = 0
While rs.EOF <> True And ii < 11
    bmk(ii) = rs.Book
    ii = ii + 1
    rs.Move 2
Wend
rs.Filter = bmk
Debug.Print "Number of records after filtering: ", rs.RecordCountrs.MoveFirst
While rs.EOF <> True
    Debug.Print rs.AbsolutePosition, rs("au_lname")
    rs.MoveNext
Wend
    
End Sub

Answer 2

Count 属性范例
该范例使用雇员数据库中的两个集合说明 Count 属性。该属性获得每个集合中的对象数并对枚举这些集合的循环设置上限。另一种不通过使用 Count 属性来枚举这些集合的方法是使用 For Each...Next 语句。Public Sub CountX()   Dim rstEmployees As ADODB.Recordset
   Dim strCnn As String
   Dim intloop As Integer   ' 使用雇员表中的数据打开记录集。
   strCnn = "Provider=sqloledb;" & _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
   Set rstEmployees = New ADODB.Recordset
   rstEmployees.Open "employee", strCnn, , , adCmdTable   ' 打印有关字段集合的信息。
   Debug.Print rstEmployees.Fields.Count & _
      " Fields in Employee"
   For intloop = 0 To rstEmployees.Fields.Count - 1
      Debug.Print "   " & rstEmployees.Fields(intloop).Name
   Next intloop   ' 打印属性集合的信息。
   Debug.Print rstEmployees.Properties.Count & _
      " Properties in Employee"
   For intloop = 0 To rstEmployees.Properties.Count - 1
      Debug.Print "   " & rstEmployees.Properties(intloop).Name
   Next intloop   rstEmployees.CloseEnd Sub

Answer 3

没有必要吧，SQL 查询加上 Where 子句就可以了。

Answer 4

即便是已有的 Recordset，也可以利用其 Filter 属性进行信息筛选。

Answer 5

使用ole很方便