| Вопрос: Как подключить ADO к DataGrid | Добавлено: 10.01.03 11:52 |
Автор вопроса:  Gagarin
|
|
Dim cn As ADODB.Connection Dim rs As ADODB.RecordsetSet cn = New ADODB.Connection Set rs = New ADODB.Recordset With cn 'Если база 2000, то провайдер такой: .Provider = "Microsoft.Jet.OLEDB.4.0" 'а если база 97, то нужен более старый провайдер: '.Provider = "Microsoft.Jet.OLEDB.3.51" 'указываем путь к нашей базе .ConnectionString = App.Path & "\xxx.mdb" 'открываем конекшн .Open End With 'Устанавливаем свойства рекордсета и открываем его rs.ActiveConnection = cn rs.LockType = adLockOptimistic rs.CursorType = adOpenDynamic rs.Source = "SELECT * FROM Цвет ORDER BY ЦветXXX" rs.Open как теперь подключит к RecordsetSet DataGrid1 |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Alex&r Вопросов: 10 Ответов: 105 |
Профиль | Цитата | #1 | Добавлено: 10.01.03 14:23 |
| Set DataGrid1.DataSource = rs | ||
Страница: 1 |