Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Работа с данными

Страница: 1 |

 

  Вопрос: Открытие и Чтение информации из разных баз данных Добавлено: 21.12.10 00:02  

Автор вопроса:  selelo
Здравствуйте. У меня следующая проблема.
Имеется на форме 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  

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 selelo



Вопросов: 1
Ответов: 1
 Профиль | | #1 Добавлено: 21.12.10 00:22
забыл

  1.  
  2. Private Sub List1_Click()
  3. data_name = List1.Text
  4. loading
  5. End Sub

Ответить

Номер ответа: 2
Автор ответа:
 SHDZ



ICQ: 209382104 

Вопросов: 39
Ответов: 244
 Профиль | | #2 Добавлено: 24.02.11 13:24
Data1 - это что?

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам