HELP MDB + VB

[SK | Heaton]

Мужики вот такая проблема у мя:
У мя две формы в одной ДатаГрит + Адод в другой Комбобокс + кнопа
При выборе из комбобокса в ДатаГриде должна изменится таблица.
У мя база МДБ-шка в базе 10 таблиц... У меня вот никак не получается.

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

If Combo1.ListIndex = 0 Then
frm.Adodc1.RecordSource = Combo1.Text
frm.Adodc1.Recordset.Update
End If
If Combo1.ListIndex = 1 Then
frm.Adodc1.RecordSource = Combo1.Text
frm.Adodc1.Recordset.Update
End If

Помогите

[Алексей К.]

Попробуй так:

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


If Combo1.ListIndex = 0 Then
frm.Adodc1.RecordSource = Combo1.Text
frm.Adodc1.Refresh
frm.Adodc1.Recordset.Update
End If
If Combo1.ListIndex = 1 Then
frm.Adodc1.RecordSource = Combo1.Text
frm.Adodc1.Refresh
frm.Adodc1.Recordset.Update
End If


[SK | Heaton]

Странно первые 2 комбо.индекс 0 и 1 работает при выборе в гриде табл меняется. а когда выбираю другие индексы 3.....9 то выдает ошибку

BOF или EOF имеет значение True, либо текущая запись удалена. для выполняемой операции требуется текущая запись..

Помогите кто нить.....

[Алексей К.]

На какой строке кода ругается? если ты просто выводишь таблички без выборки - то попробуй закоментарить строку апдейта рекордсета.

[SK | Heaton]

все получилось
с остальных индексов убрал frm.Adodc1.Recordset.Update
и получилось вуоля

[Al Khamid]

..

[alibek]

AddNew должен.
А Edit в ADO отсутствует, просто начинаешь редактировать запись.

[SK | Heaton]