| Вопрос: Вопрос по ADO | Добавлено: 10.04.08 13:17 |
Автор вопроса:  Ig0r
|
|
Помогите!!!!
Dim cn as new ADODB.Connection cn.ConnectionString = "Provider = Microsoft.jet.OLEDB.4.0;" _ "Data Source = c:\1.mdb" cn.Open Dim rs as new ADODB.recordset rs.Open "Клиенты",cn . . . Как сделать чтобы данные из БД(Таблицы "Клиенты") отображались в ComboBOx'e? |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  J. Smith ICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #1 | Добавлено: 10.04.08 13:42 |
|
В разделе ~Библиотека кодов~ смотрел?
Там тема ~Базы данных (DAO, ADO, ODBC) (7) Создание базы данных, изменение ее структуры. Доступ по паролю, шифрование базы и т.д.~ |
||
|
Номер ответа: 2 Автор ответа: Ig0r Вопросов: 9 Ответов: 18 |
Профиль | | #2 | Добавлено: 10.04.08 14:27 |
| Там нет нужного примера. | ||
|
Номер ответа: 3 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 13.04.08 22:23 |
| Нужного нет, но есть подобные. Покажи код как ты пробовал, мы подправим если что не так. | ||
|
Номер ответа: 4 Автор ответа: Ig0rВопросов: 9 Ответов: 18 |
Профиль | | #4 | Добавлено: 13.04.08 22:31 |
|
Private Sub UserForm_Initialize()
Dim con As ADODB.Connection Dim rs As ADODB.Recordset Dim sql As String sql = "SELECT Current FROM Contactor" Set con = New ADODB.Connection With con .Provider = "Microsoft.Jet.OLEDB.4.0" .Open "  :\InOut\Etal.mdb"
End With Set rs = New ADODB.Recordset rs.CursorLocation = adUseServer rs.Open Source:=sql, ActiveConnection:=con, CursorType:=adOpenForwardOnly, LockType:=adLockOptimistic, Options:=adCmdText Dim myVar() Dim i myVar = rs.GetRows For i = 0 To UBound(myVar, 2) ComboBox1.AddItem myVar(0, i) Next UserForm2.Show rs.Close con.Close End Sub Нашел вот такой код,но у меня он что-то не работает!!!И можно как-то обойтись без sql-запроса? |
||
|
Номер ответа: 5 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 15.04.08 03:20 |
| Имя таблицы, столбца правильное? | ||
|
Номер ответа: 6 Автор ответа: Ig0rВопросов: 9 Ответов: 18 |
Профиль | | #6 | Добавлено: 15.04.08 15:54 |
|
Имя таблицы, столбца правильное?
Без понятия(Только месяц как начал учить VBA)Делаю дипломную работу и у меня есть простая Бд из 2 таблиц(клиенты и адрес клиента),как вывести данные из БД - в Combobox?
|
||
Страница: 1 |