[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方式實作
大神們幫幫忙
uj5u.com熱心網友回復：
BOF、EOF 和 Bookmark 屬性范例
該范例使用 BOF 和 EOF 屬性，在用戶試圖移過 Recordset 的第一個和最后一個記錄時顯示一條資訊。它通過 Bookmark 屬性使用戶對 Recordset 中的記錄進行標記，稍后再回傳給它。
Public Sub BOFX()
Dim rstPublishers As ADODB.Recordset
Dim strCnn As String
Dim strMessage As String
Dim intCommand As Integer
Dim varBookmark 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 bookmark / 4 - go to bookmark]"
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
varBookmark = rstPublishers.Bookmark
' 轉到由存盤的書簽所指示的記錄。
Case 4
If IsEmpty(varBookmark) Then
MsgBox "No Bookmark set!"
Else
rstPublishers.Bookmark = varBookmark
End If
Case Else
Exit Do
End Select
Loop
rstPublishers.Close
End Sub
該范例使用 Bookmark 和 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.RecordCount
ii = 0
While rs.EOF <> True And ii < 11
bmk(ii) = rs.Bookmark
ii = ii + 1
rs.Move 2
Wend
rs.Filter = bmk
Debug.Print "Number of records after filtering: ", rs.RecordCount
rs.MoveFirst
While rs.EOF <> True
Debug.Print rs.AbsolutePosition, rs("au_lname")
rs.MoveNext
Wend
End Sub
uj5u.com熱心網友回復：
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.Close
End Sub
uj5u.com熱心網友回復：
沒有必要吧，SQL 查詢加上 Where 子句就可以了。uj5u.com熱心網友回復：
即便是已有的 Recordset，也可以利用其 Filter 屬性進行資訊篩選。uj5u.com熱心網友回復：
使用ole很方便轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/51434.html