Программно изменить Data.RecordSource

[GAL]

Привет!
Нужна помощь..
Пишу базу данных с использованием *.mdb, Data и Text - думаю схема базы понятна, в этой базе создал 2 таблицы Basetable и Basetable2, есть Combo с его помощь хочу переходить от одной таблицы к другой изменяя Data1.RecordSource = BaseTable на BaseTable2. Но текстовые поля не отображают значения таблиц, а становятся пустыми.
Почему так? Подскажите, пожалуйста...

[Konst_One]

это глюк биндинга, который описан у микрософта (какой Q, я сейчас не вспомню)

[GAL]

Ну, а идеи какие-нибудь есть?
Обойти.. Или еще что..

[Alex_2005]

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

[Alex_2005]

ага, теперь понял, ну , для начала тебенужно отказаться от Data1 а использовать лучьше ADO а если с Access работаешь, то тогда ещё луьше DAO.

[Alex_2005]

ща примерчик настрочу....

[Igor_123]

Alex_2005 а ... Data1 это разве не DAO???

GAL а Refresh или закрыть базу(трансакцию), переназначить источники и снова открыть не поможет?

[GAL]

У меня голова пухнет, если честно...
Использую Access'совскую базу *.mdb.
Источники переназначал - глухо, не помогает.
Насчет Refresh'а поясни, а то я не совсем понял.

[Konst_One]

это не лечится, микрософт предлагает один раз назначать источник в дезайнтайме

[GAL]

Не лечится? ... М-да..
Почему-то хочется ругаться..

[Konst_One]

переходи на ADO, избавишься от многих проблем , правда приобретешь другие

[Alex_2005]

DAO то оно и есть Data просто я имел в виду библиотеку а не контрол.
ЛАдно, вот примерчик. если конечно я всё правильно понял, так как из меня тугодум редкостный.

[Alex_2005]

ктати 2 Gal чтоб проект работал тебе нужно в референсах указать Microsoft DAO 3.6 Object Library или какую - нибудь другую версию

[GAL]

Alex_2005, большое человеческое спасибо..
Попрубую, может получится..

[Alex_2005]

ну шо, подошло?

[Alex_2005]

2 GAL ты хоть дать знай то это вобще или не то, а может то, только не это?

[MeMBus]

Коль я понял задачу все должно решиться с помощью ADO:
Делаем выборку из условий комбобокса. Для первого варианта:

Set pAdoConUsers = New ADODB.Connection
Set pAdoRecUsGrp = New ADODB.Recordset
pAdoConUsers.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='" & Путь до БД и имя & "'"
pAdoConUsers.Open
If pAdoRecUsGrp.State = 1 Then
pAdoRecUsGrp.Close
End If
pAdoRecUsGrp.Open "SELECT * FROM Таблица1",pAdoConUsers, adOpenKeyset, adLockOptimistic

Для второго варианта:

pAdoConUsers.ConnectionString "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='" & Путь до БД и имя & "'"
pAdoConUsers.Open
If pAdoRecUsGrp.State = 1 Then
pAdoRecUsGrp.Close
End If
pAdoRecUsGrp.Open "SELECT * FROM Таблица2", pAdoConUsers, adOpenKeyset, adLockOptimistic

Конец выбора вариантов... Дальше просто работаем...

With pAdoRecUsGrp

[MeMBus]

P.S. Думаю о технологиях ADO и DAO ты слышал, так вот, это лучший способ работать с БД (тем паче Access, для этого VB по-моему просто заточен).

[GAL]

MeMBus, я вот как раз этим и занимаюсь..
Спасибо.