Э...даже не знаю.
Какие-то FireBird изучать неохота.
Но сделал эксперимент:
вникнул в свои старые коды:
взял первую попавшуюся mdb, накатал вот это в чистом проекте:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub Main()
Dim AdoConnection ' As ADODB.Connection
Dim RSBaza ' As ADODB.Recordset
Dim ConnectionString As String
Dim Baza As String
Dim Table As String
Dim kritBD As String
Baza = "test.mdb"
Table = "АвтоСписок"
kritBD = "Выполнено = 'нет'"
Set AdoConnection = CreateObject("ADODB.Connection")
Set RSBaza = CreateObject("ADODB.Recordset")
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Baza & ";Mode=Share Deny None;Persist Security Info=False"
AdoConnection.Open ConnectionString
'RSBaza.CursorType = adOpenStatic
'RSBaza.LockType = adLockOptimistic
RSBaza.Open "SELECT * FROM " & Table & " WHERE " & kritBD, AdoConnection
RSBaza.MoveFirst
MsgBox RSBaza.Fields("Телефон")
End Sub
Накатывая, подключил какую-то (для удобства, использовалась в этих старых проектах)
C:\Program Files\Common Files\system\ado\msado25.tlb
Microsoft ActiveX Data Objects 2.5 Library
Потом правда закомментировал как приведено и сомнительную tlb из ссылок убрал, и сделал exe-шник.
Потом проверил пару exe-mdb на нескольких системах.
Win XP 32-бит (где делал)
Server 2003 32-бит
Server 2008 64-бит
Win 7 32-бит
Win 7 64-бит
Везде сработало. Не ожидал даж такого эффекта.
Хотя...не знаю, на Win 7 64-бит Office 2000 включая Access установлен зачем-то был, нечистый какой-то эксперимент. Надо чистую ставить...
Не знаю пока стоит ли возиться... раньше следующего года вряд ли буду заниматься переделками.
Вообще конечно CreateObject кажется очень хороший метод, пусть система сама думает че там создавать в рамках своей испорченности, че нибудь да создаст, пусть сама разбирается со своей многобитностью и версиями.
