Shtirlits63 писал(а):Да не нужны мне ясновидцы )
Расскажи лучше что в твоем примере за опострофы в кавычках ?
и зачем там нужна команда заменить в поле text1.text один апостроф 2я ?
ведь по идее все ок с ней - просто где то что то не совпадает (
А названия верны там имя столбца "Название" имя первой записи которую ищем "ООО Борец"
зыы извените пхелпа у меня тока всплывающими подсказками огранниченна ......... начинаю тихо ненавидеть пиратов (
Купи себе MSDN и будет тебе щастье. Вот пример оттуда:
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