Здравствуйте. У меня следующая проблема.
Имеется на форме listbox и textbox-ы, а так же уже готовая база данных с 2 таблицами (*.mdb)
После загрузки, в список добавляются названия имеющихся таблиц в базе. Щёлкаем на название и в текстовые поля выводится информация.
Но выводится данные только с той таблицы, которая стоит в свойстве (не в коде) RecordSource объекта Data.
Если убрать название одной из таблиц из свойства, то программа вообще перестаёт работать, несмотря на написанный код, т.е. не видит RecordSource. Помогите разобраться. Заранее спасибо.
**************************************
И если кто знает, не могли бы подсказать, как на основе этой программы сделать тоже самое, только загружать данные не из таблиц, а из разных уже созданных баз данных. Там такой же косяк, что когда задаёшь свойство DatabaseName и указываешь одну из баз не в коде - программа выводит информацию только с той базы, которая заданна и не реагирует на код. Если прописываю программно:
Data1.RecordSource = "date_table"
Data1.DatabaseName = data_name
Программа перестаёт работать тоже. Надеюсь с вашей помощью найду ответы.
Dim data_name As String
Private Sub Form_Load()
List1.AddItem "Data_test"
List1.AddItem "Data_test1"
End Sub
Private Sub loading()
Data1.RecordSource = data_name
Data1.DatabaseName = "data.mdb"
Text1.DataField = "Number"
Text2.DataField = "Question"
Text3.DataField = "Answer1"
Text4.DataField = "Answer2"
Text5.DataField = "Answer3"
Text6.DataField = "Answer4"
Text7.DataField = "Ball1"
Text8.DataField = "Ball2"
Text9.DataField = "Ball3"
Text10.DataField = "Ball4"
End Sub
Ответить
|