ado+access
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 3
• Страница 1 из 1
- i'm pissed
- Продвинутый пользователь
-
- Сообщения: 194
- Зарегистрирован: 23.10.2004 (Сб) 12:01
- Откуда: irkutsk
ado+access
i'm pissed » 13.12.2004 (Пн) 20:06
ДАйте plz исходнячок (пример) подключения БД (Access) через ado
by_pissed
- Olga
- Обычный пользователь
- Сообщения: 81
- Зарегистрирован: 08.09.2004 (Ср) 8:49
- Откуда: Москва
Olga » 15.12.2004 (Ср) 14:00
Лови
Dim d As ADODB.Connection
Set d = New ADODB.Connection
d.CursorLocation = adUseClient
d.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" + PATH_BD + "\db.mdb;Jet OLEDB:Database Password=1111;"
Dim ado As ADODB.Recordset
Set ado = New ADODB.Recordset
А дальше что-то вроде этого:
ado.Open "select * from Tabl1 Order by Pole1", d, adOpenStatic, adLockReadOnly
Dim d As ADODB.Connection
Set d = New ADODB.Connection
d.CursorLocation = adUseClient
d.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" + PATH_BD + "\db.mdb;Jet OLEDB:Database Password=1111;"
Dim ado As ADODB.Recordset
Set ado = New ADODB.Recordset
А дальше что-то вроде этого:
ado.Open "select * from Tabl1 Order by Pole1", d, adOpenStatic, adLockReadOnly
- Andrey Fedorov
- Член-корреспондент академии VBStreets
- Сообщения: 3287
- Зарегистрирован: 21.05.2004 (Пт) 9:28
- Откуда: Москва
Andrey Fedorov » 15.12.2004 (Ср) 16:10
А так еще проще, причем базу можно менять в UDL-файле:
[/code]
- Код: Выделить всё
Dim cn As New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "File Name=" & App.Path & \My.udl"
[/code]Фиг Вам! - Сказал Чебурашка, обгладывая Крокодила Гену...
Сообщений: 3
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Yandex-бот и гости: 7