麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 數據庫 > Access > 正文

如何在Recordset對象中查詢記錄

2024-09-07 19:03:53
字體:
來源:轉載
供稿:網友

無論是 DAO 還是 ADO 都有兩種從 Recordset 對象中查詢記錄的方法: Find 方法和 Seek 方法。在這兩種方法中可以讓你指定條件進行查詢與其相應的記錄 , 一般而言,在相同條件下, Seek 方法提供了比 Find 方法更好的性能,因為 Seek 方法是基于索引的。因為這個原因基本提供者必須支持 Recordset 對象上的索引,可以用 Supports ( adSeek ) 方法確定基本提供者是否支持 Seek ,用 Supports ( adIndex ) 方法確定提供者是否支持索引。(例如, OLE DB Provider for Microsoft Jet 支持 Seek 和 Index 。),請將 Seek 方法和 Index 屬性結合使用。如果 Seek 沒有找到所需的行,將不會產生錯誤,該行將被放在 Recordset 的結尾處。執行此方法前,請先將 Index 屬性設置為所需的索引。此方法只受服務器端游標支持。如果 Recordset 對象的 CursorLocation 屬性值為 adUseClient ,將不支持 Seek 。只有當 CommandTypeEnum 值為 adCmdTableDirect 時打開 Recordset 對象,才可以使用此方法。

用 ADO Find 方法

DAO 包含了四個“ Find ”方法: FindFirst,FindLast,FindNext 和 FindPrevious .

DAO 方法 ADO Find 方法

下面的一個例子示范了如何用 ADO Find 方法查詢記錄:

以下為引用的內容:
Sub FindRecord(strDBPath As String, _
strTable As String, _
strCriteria As String, _
strDisplayField As String)
' This procedure finds a record in the specified table by
' using the specified criteria.
' For example, to use this procedure to find records
' in the Customers table in the Northwind database
' that have " USA " in the Country field, you can
' use a line of code like this:
' FindRecord _
' "c:Program FilesMicrosoft OfficeOfficeSamplesNorthwind.mdb", _
' "Customers", "Country=' USA '", "CustomerID"
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
' Open the Connection object.
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open strDBPath
End With
Set rst = New ADODB.Recordset
With rst
' Open the table by using a scrolling
' Recordset object.
.Open Source:=strTable, _
ActiveConnection:=cnn, _
CursorType:=adOpenKeyset, _
LockType:=adLockOptimistic
' Find the first record that meets the criteria.
.Find Criteria:=strCriteria, SearchDirection:=adSearchForward
' Make sure record was found (not at end of file).
If Not .EOF Then
' Print the first record and all remaining
' records that meet the criteria.
Do While Not .EOF
Debug.Print .Fields(strDisplayField).Value
' Skip the current record and find next match.
.Find Criteria:=strCriteria, SkipRecords:=1
Loop
Else
MsgBox "Record not found"
End If
' Close the Recordset object.
.Close
End With
' Close connection and destroy object variables.
cnn.Close
Set rst = Nothing
Set cnn = Nothing
End Sub

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 中文字幕免费一区 | 精国产品一区二区三区 | h视频在线观看免费 | 成人视屏免费看 | 韩国三级日本三级香港三级黄 | 黄色免费av| 天天草天天干天天射 | 欧美视频黄色 | 国产精品免费久久久久久 | 久久久久久久免费看 | 看个毛片| 国产精品久久久久永久免费 | 久青草免费视频 | 久久精品视频在线免费观看 | 一级免费在线视频 | 欧美一级做一级爱a做片性 91在线视频观看 | 久久久久久久久亚洲精品 | 欧美a级在线免费观看 | 91精品国产乱码久久久久久久久 | www.17c亚洲蜜桃| 欧美成人三级视频 | 国产亚洲精彩视频 | 国产高潮好爽受不了了夜色 | 亚洲第一视频 | 日韩视频在线观看免费视频 | 性欧美一区二区 | 欧美精品成人一区二区三区四区 | 久久人体 | 精品国产一区二区三区久久久蜜月 | 国产91九色 | 香蕉国产在线视频 | 欧美成人免费电影 | 羞羞色院91精品网站 | 久久96国产精品久久久 | 亚洲视屏在线 | 欧美综合在线观看视频 | av在线免费播放网站 | 免费小毛片 | 免费国产自久久久久三四区久久 | 国产精品免费麻豆入口 | 在线成人免费网站 |