| Вопрос: Кто знает как связать VB6 и Access2000? | Добавлено: 10.05.04 23:38 |
Автор вопроса:  Aid.CCCP
|
| Кто знает как связать базу созданную в access200 с VB6 ...... мож утилиты где какие скачать?? |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа: Alex(S) Вопросов: 8 Ответов: 31 |
Web-сайт: Профиль | | #1 | Добавлено: 11.05.04 00:45 |
| Необходимо подключить библиотеку Microsoft DAO 3.6 Object Library. | ||
|
Номер ответа: 2 Автор ответа:  Leshiy ICQ: 357641387 Вопросов: 4 Ответов: 6 |
Профиль | | #2 | Добавлено: 11.05.04 05:07 |
|
Вообще у VB есть собственное средство Data, методами этого объекта можно подключиться к базе Access97. Двухтонную базу предется преобразовать через "Сервис" - "Служебные программы" - "Преобразовать базу данных" - "в формат Access 97...", а потом подключаться к ней. Но я прописываю пути в ini-файле к базе данных и через библиотеку ADO подключаюсь к базе Access97: Dim rsFlex As New ADODB.Recordset 'создается экземпляр Recordset Dim Connection As New ADODB.Connection Dim MSFlex As String 'инструкции SQL Const CONNECT_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" Call Connection.Open(CONNECT_STRING & strDBName) Call rsFlex.Open(MSFlex, Connection, adOpenDynamic, adLockOptimistic) |
||
|
Номер ответа: 3 Автор ответа: LeshiyICQ: 357641387 Вопросов: 4 Ответов: 6 |
Профиль | | #3 | Добавлено: 11.05.04 05:14 |
|
Вообще у VB есть собственное средство Data, методами этого объекта можно подключиться к базе Access97. Двухтонную базу предется преобразовать через "Сервис" - "Служебные программы" - "Преобразовать базу данных" - "в формат Access 97...", а потом подключаться к ней. Но я прописываю пути в ini-файле к базе данных и через библиотеку ADO подключаюсь к базе Access97: Dim rsFlex As New ADODB.Recordset 'создается экземпляр Recordset Dim Connection As New ADODB.Connection Dim MSFlex As String 'инструкции SQL Const CONNECT_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" Call Connection.Open(CONNECT_STRING & strDBName) Call rsFlex.Open(MSFlex, Connection, adOpenDynamic, adLockOptimistic) ... ... rsFlex.Close Connection.Close Set rsFlex = Nothing Set Connection = Nothing |
||
|
Номер ответа: 4 Автор ответа: Aid.CCCPВопросов: 3 Ответов: 1 |
Профиль | | #4 | Добавлено: 11.05.04 08:45 |
| Братья!! как к access97 подключить я знаю а вот access2000 нет. Если есть какие нибудь соображения поделитесь плиззз | ||
|
Номер ответа: 5 Автор ответа:  Svetlana ICQ: 262385618 Вопросов: 43 Ответов: 205 |
Профиль | | #5 | Добавлено: 11.05.04 09:47 |
| Если особо париться не хочется, то можно использовать глучный Adodc (работать как с Data можно), либо подключиться в коде с помощью Adodb.Recordset. | ||
|
Номер ответа: 6 Автор ответа: astoroICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #6 | Добавлено: 12.05.04 14:40 |
|
Отлично работает через Microsoft DAO 3.6 Object Library. Public rs as dao.recordset sub form_load() ssql="SELECT * FROM Table" ' SQL - запрос set rs=db.openrecordset(ssql) if rs.recordcount<>0 then rs.movefirst do while not rs.eof debug.print rs!Field1 + ", " + rs!Field2 rs.movenext loop end if end sub |
||
|
Номер ответа: 7 Автор ответа: astoroICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #7 | Добавлено: 12.05.04 14:42 |
|
Прошу прощения, еще нужно: public db as dao.database set db=dao.opendatabase ("c:\database.mdb") |
||
Страница: 1 |