HELP MDB + VB

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
SK | Heaton
Обычный пользователь
Обычный пользователь
 
Сообщения: 63
Зарегистрирован: 16.08.2005 (Вт) 10:10

HELP MDB + VB

Сообщение SK | Heaton » 18.08.2005 (Чт) 6:49

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



Помогите
============================
Учимся кодить
============================

Алексей К.
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 419
Зарегистрирован: 12.05.2004 (Ср) 9:41
Откуда: Ульяновск

Сообщение Алексей К. » 18.08.2005 (Чт) 7:32

Попробуй так:
Код: Выделить всё

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
Обычный пользователь
Обычный пользователь
 
Сообщения: 63
Зарегистрирован: 16.08.2005 (Вт) 10:10

Сообщение SK | Heaton » 18.08.2005 (Чт) 8:06

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

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

Помогите кто нить..... :cry: :cry: :cry:
============================
Учимся кодить
============================

Алексей К.
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 419
Зарегистрирован: 12.05.2004 (Ср) 9:41
Откуда: Ульяновск

Сообщение Алексей К. » 18.08.2005 (Чт) 8:16

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

SK | Heaton
Обычный пользователь
Обычный пользователь
 
Сообщения: 63
Зарегистрирован: 16.08.2005 (Вт) 10:10

Сообщение SK | Heaton » 18.08.2005 (Чт) 8:24

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

Al Khamid
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 274
Зарегистрирован: 11.02.2004 (Ср) 10:00
Откуда: Москва, Ховрино

Сообщение Al Khamid » 18.08.2005 (Чт) 15:06

..
Последний раз редактировалось Al Khamid 04.12.2007 (Вт) 12:36, всего редактировалось 1 раз.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 18.08.2005 (Чт) 15:11

AddNew должен.
А Edit в ADO отсутствует, просто начинаешь редактировать запись.
Lasciate ogni speranza, voi ch'entrate.

SK | Heaton
Обычный пользователь
Обычный пользователь
 
Сообщения: 63
Зарегистрирован: 16.08.2005 (Вт) 10:10

Сообщение SK | Heaton » 19.08.2005 (Пт) 6:37

:D
============================
Учимся кодить
============================


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

    TopList