VBNet - Форум - Combo и база данных

Вопрос: Combo и база данных Добавлено: 01.06.05 14:33

Автор вопроса: portC | Web-сайт: feshin.info

Есть база данных, в которой имеется таблица с одним полем, в которое вносится информация из формы. Информация произвольного характера, например: Имя, Фамилия, Отчество и тд.
Как передать данные в Combo из этой самой таблицы, чтобы не вносить код в виде:
Combo1.Clear
Combo1.AddItem "Имя"
Combo1.AddItem "ОФамилия"
Combo1.AddItem "Отчество"
Combo1.AddItem "так далее"
И произвести поиск в другой таблице, имеющей такие же поля?
Ответить

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

Номер ответа: 1 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #1	Добавлено: 01.06.05 21:28
	прямер выкидует всю таблицу в listView DAO ! Public Sub WritetoListView(ListView As ListView, DBPath$, Password$, Table$) '+ 'Отображает базу в ListView Dim Db As Database, rs As Recordset ListView.View = lvwReport Set Db = OpenDatabase(DBPath$, False, False, "MS Access;pwd=" & Password$) Set rs = Db.OpenRecordset("select * from [" & Table$ & "]" For i = 0 To rs.Fields.Count - 1 'Создаём столюцы ListView.ColumnHeaders.Add , , rs.Fields(i).Name Next If rs.EOF = False Then 'Заполняем значениями столбцы While Not rs.EOF Set lvItm = ListView.ListItems.Add(, , IIf(IsNull(rs(0)), "", rs(0))) For i = 1 To rs.Fields.Count - 1 lvItm.SubItems(i) = IIf(IsNull(rs(i)), "", rs(i)) Next sno = sno + 1 DoEvents rs.MoveNext Wend End If End Sub Переделать в комбобокс - как 2 байта передать. А вообще имейте совесть, у форма есть поиск! Я эту функцию раз 5 точно писал уже... Ответить

Номер ответа: 2 Автор ответа: portC Вопросов: 14 Ответов: 101	Web-сайт: feshin.info Профиль \| \| #2	Добавлено: 04.06.05 00:50
	Ну а Combo Box? Ответить

Номер ответа: 3 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #3	Добавлено: 04.06.05 01:54
	а самому влом, да? While Not rs.EOF Set lvItm = ListView.ListItems.Add(, , IIf(IsNull(rs(0)), "", rs(0))) Combo1.Add IIf(IsNull(rs(i)), "", rs(0)) Next sno = sno + 1 oEvents rs.MoveNext Wend шо то типа этого, я не тестиртовал Ответить

Номер ответа: 4 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #4	Добавлено: 04.06.05 01:55
	блин, ну и Set lvItm = ListView.ListItems.Add(, , IIf(IsNull(rs(0)), "", rs(0))) соответственно не нужно Ответить

Страница: 1 |