Добавлено: 23 ноя 2006, 23:05
Пример подключения к dbf через VBA из умной книжки:
dim cn as ADODB.Connection
dim adoRS as ADODB.Recordset
pathDBF="C:\dbf\"
strSQL = "SELECT * FROM T2.dbf"
Sey cn= New ADODB.Connection
cn.Provider="Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "Data Source=" & pathDBF & "; Extended Properties=dBase III"
cn.Open
Set adoRS = New ADODB.Recordset
adoRS.CursorType=adOpenKeyset
adoRS.LockType=adLockOptimistic
adoRS.Open strSQL, cn
Если формат dBase 4 и 5, то Extended Properties смотри в ветке реестра -
HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\4.0\ISAM Formats
dim cn as ADODB.Connection
dim adoRS as ADODB.Recordset
pathDBF="C:\dbf\"
strSQL = "SELECT * FROM T2.dbf"
Sey cn= New ADODB.Connection
cn.Provider="Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "Data Source=" & pathDBF & "; Extended Properties=dBase III"
cn.Open
Set adoRS = New ADODB.Recordset
adoRS.CursorType=adOpenKeyset
adoRS.LockType=adLockOptimistic
adoRS.Open strSQL, cn
Если формат dBase 4 и 5, то Extended Properties смотри в ветке реестра -
HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\4.0\ISAM Formats