Как правильно обработать метод Find в ADO? - VB
Формулировка задачи:
Т.е rs.Find что-то
что писать если ничего не найдено или найдено??
В DAO быо свойство NoMatch.. А как дело обстоит в АДО??
Решение задачи: «Как правильно обработать метод Find в ADO?»
textual
Листинг программы
Public Sub Main() FindX End Sub Public Sub FindX() Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim mark As Variant Dim count As Integer count = 0 cnn.Open 'DSN=Pubs; Provider=MSDASQL; uid=sa; pwd=;' rst.Open 'SELECT title_id FROM titles', cnn, _ adOpenStatic, adLockReadOnly, adCmdText ' The default parameters are sufficient to search forward ' through a Recordset. rst.Find 'title_id LIKE 'BU%'' ' Skip the current record to avoid finding the same row repeatedly. ' The bookmark is redundant because Find searches from the current ' position. Do While rst.EOF <> True 'Continue if last find succeeded. Debug.Print 'Title ID: '; rst!title_id count = count + 1 'Count the last title found. mark = rst.Bookmark 'Note current position. rst.Find 'title_id LIKE 'BU%'', 1, adSearchForward, mark Loop rst.Close cnn.Close Debug.Print 'The number of business titles is ' & count End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д