List и БД

[serix]

Пытаюсь сделать вывод в TextBox поля из базы данных по клику на ListBox
вот код

Код: Выделить всё

Private Sub List1_Click()
Dim pDB As String
Dim subj As String
pDB = Trim(List1.Text)
subj = "caption='" & pDB & "'"
Data1.Recordset.FindFirst subj
End Sub


Но при запуске вылазит сообщение

Object doesn't support this proprerty or method

P.S. это происходит из-за того что я при загрузке формы загоняю в ListBox данные из БД

Код: Выделить всё

While Not Data1.Recordset.EOF
List1.AddItem Data1.Recordset.Fields(4)
Data1.Recordset.MoveNext
Wend


Как бы сделать чтоб при клике на ListBox ошибки не выскакивало...
Псибо...

[hCORe]

Чтобы игнорировать ошибки, в начале вызова ставь

Код: Выделить всё

On Error Resume Next

а в конце

Код: Выделить всё

Err.Clear

ЗЫ. Вообще это плохо, что ошибки в твоей программе возникают во время работы. Такого быть не должно (или почти не должно )

[serix]

Все бы это конечно хорошо, я согласен,

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

, но предлеженный способ, к сожалению, не помог, осталось то же сообщение об ошибке( я еще забыл сказать что при нажатии OK это сообщение выскакивает снова и снова...).
Непонятно то, что если данные в ListBox внести ручками( т.е. самаму загнать) то все замечательно работает, но вот если их вводить через цЫкл то происходит такая мастдайная шляпа...

[hCORe]

Эврика! Через цЫкл ты перебираешь их всех и используешь

Код: Выделить всё

Data1.Recordset.MoveNext

После окончания цикла ты доходишь до конца. Попробуй вызвать

Код: Выделить всё

Data1.Recordset.MoveFirst

Должно помочь.

ЗЫ. И есть еще одно НО: существует специальный контрол (MSовский), который работает с БД дружественнее Microsoft Data List называется.

ЗЗЫ. Работоспособность приведенного кода не гарантируется, вирусы на мыло мне НЕ СЛАТЬ

[serix]

Пасиба бальшая, MoveFirst работает
З.Ы. Есть еще одна проблемка: при загрузке данных из БД в ListBox, непонятно как и зачем, VB меняет названия некоторых элементов списка, т.е., например, если сначала был список:
Эл-т 1
Эл-т 2
Эл-т 3
Эл-т 4
То он может стать таким:
Эл-т 1
Эл-т 2
Эл-т 1
Эл-т 3
Причем vb вносит изменения в сам файл БД, так что с каждым новым запуском дублированных элементов становится все больше и больше....
Если защитить файл БД от записи, то VB выдает ошибку.
Подскажи пжаллста что можно сделать...

вирусы на мыло мне НЕ СЛАТЬ

З.Ы. Если бы я не был чайником и знал как эти вирусы пишутся, то отправил бы с удовольствием ...

[hCORe]

Извини, я в БД такой чайник, что тебе и не снилось
Поэтому про это явление ничего не знаю (к сожалению).

Эй! Может кто поможет человеку хорошим советом! Есть же на форуме добрые люди, работавшие с базами данных

[Rainbow]

Да не, не VB это, я так думаю...
Ты же сам своими руками заполняешь листбокс

1) Возьми свой запрос, который ты используешь для инициализации ListBox'а, выполни его в базе и посмотри, все ли там правильно (что элементы разные)
2) если запрос правильный - закомментируй всю работу с листбоксом по поиску и тд (оставь только заполнение) - проверь именно его (что-нибудь, где-нибудь сам обновляешь).

А данные в базе у тебя как обновляются?