Нужно, чтобы значения для ComboBox1 были названия таблиц, а для ComboBox2 строчки таблицы

@hiphone · Регистрация: 28.01.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте. Пользуюсь VB 2010.

Нужно, чтобы значения для ComboBox1 были названия таблиц, а для ComboBox2 строчки, которые находятся внутри этой таблицы.

Заранее спасибо за помощь.

@Юпатов Дмитрий · 30.01.2012, 10:37

по поводу названий таблиц:

VB.NET

Friend Sub FillTables() 
            Dim alTBL As New DataTable 
            Dim i As Integer 
            cn.Open() 
            alTBL =cn.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"}) 
            cn.Close() 
            Me.cbxTables.Items.Clear() 
            For i = 0 To alTBL.Rows.Count - 1 
Me.cbxTables.Items.Add(alTBL.Rows(i).Item("TABLE_NAME").ToString) 
            Next 
End Sub

cbxTables - элемент ComboBox
cn - объект OleDb.OleDbConnection с уже заявленными параметрами
остальное тут

@hiphone · 30.01.2012, 17:29 **[ТС]**

VB.NET

1 2	Dim cn As OleDb.OleDbConnection Dim cbxTables As ComboBox

прописал, но выдает ошибку в:

VB.NET

1	Me.cbxTables

@Юпатов Дмитрий · 30.01.2012, 17:33

Сообщение от Юпатов Дмитрий

cbxTables - элемент ComboBox

это комбобокс, который заполняется именами таблиц. Ну у тебя, наверное это ComboBox1

@hiphone · 30.01.2012, 17:39 **[ТС]**

вот вообще с подключением к БД ничего не получается.

вынес

VB.NET

1
2
3

Dim cn As OleDb.OleDbConnection
    Dim cbxTables As ComboBox
    Dim alTBL As New DataTable

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

Если к cbxTables добавлять 1, то пишет что cbxTables1 не является членом

Добавлено через 3 минуты
Можно тебе скинуть проект, а ты поможешь сделать? Так для меня понятнее будет и запомнить смогу

@Юпатов Дмитрий · 30.01.2012, 17:46

VB.NET

Friend Sub FillTables() 
            Dim alTBL As New DataTable 
            Dim i As Integer 
            cn.Open() 
            alTBL =cn.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"}) 
            cn.Close() 
            Me.ComboBox1.Items.Clear() 
            For i = 0 To alTBL.Rows.Count - 1 
msgbox(alTBL.Rows(i).Item("TABLE_NAME").ToString)
Me.ComboBox1.Items.Add(alTBL.Rows(i).Item("TABLE_NAME").ToString) 
            Next 
End Sub

а так?
Только тут я вставил месиджбокс, который появляется перед добавлением очередной строки в комбобокс.

Сообщение от hiphone

Если к cbxTables добавлять 1, то пишет что cbxTables1 не является членом

Не по теме:

это точно, студия верно говорит (так сомбобокс обидеть) :)

cbxTables - это ИМЯ элемента комбобокс, в который добавляются названия. У тебя он называется иначе (надо полагать ComboBox1). Вот и все, надо только имя подрихтовать было.

cn - объект OleDb.OleDbConnection с уже заявленными параметрами. У тебя ж уже есть где-то соединение в коде? вот надо чтоб функция видела это соединение

Добавлено через 4 минуты

Сообщение от hiphone

Можно тебе скинуть проект, а ты поможешь сделать? Так для меня понятнее будет и запомнить смогу

нет, тут сам разбирайся. Если уж совсем не понимаешь, о чем речь, то проект по работе с БД - не твой уровень. Ну и плюс запасайся литературой, гугл тоже никто не отменял. Если я сделаю проект, то ты гарантированно не запомнишь

@hiphone · 30.01.2012, 18:07 **[ТС]**

Собственно ошибок нет, но и в комбобокс тоже пусто.

Не по теме:

Ну я много по этой теме прочитал, но так врубится и не смог

Я понимаю, что с БД не мой уровень, но это мне очень нужно

@Юпатов Дмитрий · 30.01.2012, 18:14

Ну тогда сдаюсь! Однозначно где-то брачек. У тебя CN до начала выборки имен таблиц как-то инициируется? Ему надо предварительно передать параметры провайдера и путь к БД.
Давай так - прикрепляй проект на форум к сообщению. Постараюсь выбрать время и посмотреть

@hiphone · 30.01.2012, 18:38 **[ТС]**

лови, спасибо

@Юпатов Дмитрий · 30.01.2012, 20:13

Ну конечно, соединение инициироваться должно по-щучьему велению. Равно как и вызов процедуры получения списка таблиц. Измени событие загрузки формы

VB.NET

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TopMost = False
        Me.cn = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "E:\Скачанное\Прогнозирование\Прогнозирование\Database21.accdb")
        Me.FillTables()
    End Sub

Ну от а дальше сам!

@hiphone · 30.01.2012, 20:59 **[ТС]**

Тему можно закрывать, я решил отказаться от этой идеи

@hiphone 13 / 13 / 7 Регистрация: 28.01.2012 Сообщений: 549
	30.01.2012, 20:59 [ТС]	11
	Тему можно закрывать, я решил отказаться от этой идеи 0

@Юпатов Дмитрий 1708 / 1196 / 227 Регистрация: 23.12.2010 Сообщений: 1,526
	30.01.2012, 17:33	4
	Сообщение от Юпатов Дмитрий cbxTables - элемент ComboBox это комбобокс, который заполняется именами таблиц. Ну у тебя, наверное это ComboBox1 0

@hiphone 13 / 13 / 7 Регистрация: 28.01.2012 Сообщений: 549
	30.01.2012, 18:07 [ТС]	7
	Собственно ошибок нет, но и в комбобокс тоже пусто. Не по теме: Ну я много по этой теме прочитал, но так врубится и не смог Я понимаю, что с БД не мой уровень, но это мне очень нужно 0

@Юпатов Дмитрий 1708 / 1196 / 227 Регистрация: 23.12.2010 Сообщений: 1,526
	30.01.2012, 18:14	8
	Ну тогда сдаюсь! Однозначно где-то брачек. У тебя CN до начала выборки имен таблиц как-то инициируется? Ему надо предварительно передать параметры провайдера и путь к БД. Давай так - прикрепляй проект на форум к сообщению. Постараюсь выбрать время и посмотреть 0

Опции темы