Работа с методом Find... помогите....

[Scania]

Есть база данных в Access 97, в базе только одна таблица. Формы сделаны в VB 6. Столкнулся с такой проблемой. Надо организовать поиск по фамилии. В проекте есть форма для занесения данных, и форма с элементом Datagrid. на этой форме расположены Adodc, Datagrid и 2 кнопки: "Поиск" и "Выход". При нажатии кнопки "Поиск" загружается форма на которой размещены 2 кнопки:"Поиск"(Command1) и "Выход"(Command2) и текстовое поле text1. Смысл такой: ввожу в поле критерий поиска, нажимаю поиск, и в Dаtagridе отображается нужная мне информация.

Вот такой код у меня получился:

Private Sub Command1_Click()
Dim strSurname As String
strSurname = "[Фамилия]= " + Text1.Text
SearchForm!Data1.Recordset.MoveFirst
SearchForm!Data1.Recordset.Find strSurname
Unload Me
End Sub

Но при выполнении выдает ошибку:

Код ошибки 3001: Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом, устанавливая фокус на эту строчку:

SearchForm!Data1.Recordset.Find strSurname

VB 6 начал не так давно изучать, может у кого есть другие варианты решения этой задачи?? Поделитесь пожалуйста.....

[HandKot]

скорее всего, т.к. Вы ищете текст, то его надро оборачивать в кавычки (одинартные или двойные не помню)
примертно так (для одиночных кавычек)

Код:

strSurname = "[Фамилия]= '" + Text1.Text + "'"

[Scania]

Спасибо большое!!!!!!!!!!! ) Сработало!!!!!!!!!!!!!!!!! ) ) )

[Scania]

Скажи, а можно сделать так, что бы после поиска в DATAGRIDe, отображались только те данные которые удовлетворили условию поиска???

[HandKot]

тогда надо не поиск использовать, а выставлять св-во Filtr у рекордсета
хотя такое св-во может быть и у датагрида

[Scania]

Чего-то с Filter не получается..... в принципе что хотел, сделал.... Спасибо за помощь ) Дальше буду сам разбираться. Не подскажешь, где можно нарыть нормальную литературу по VB. У меня есть несколько букварей, но толку от них никакого

[HandKot]

Чего-то с Filter не получается

там достаточно все просто

У меня есть несколько букварей, но толку от них никакого

точно не скажу, но вот тема "чтиво"
+ МСДН

[Scania]

Если я правильно понял, то с фильтром примерно так должна выглядеть строчка:

SearchForm!Data1.Recordset.Filter (strSurname, Фамилия)

HandKot У тебя есть материалы как настроить занесение графического изображения (в частности фотографии) в базу данных через приложение доступа к БД??? Пробовал через OLE-объект, но не получается его связать с источником данных, с Picturebox таже ерунда. В базе есть соотвествующее поле типа:"объект OLE".

[HandKot]

по поводу фильра, то похоже
по поводу фотографий - никогда не работал с фотками я-ля ОЛЕ-объект, поищите в гугле или яндех
в своих проектах для объектов вида фотографии использовал либо STREAM, либо ф-ции AppendChunk, GetChunk