| |
|
|
| | Такая ситуация, есть файлик contract.dbf эту таблицу надо программно подключить через ODBC (тоесть ткнул кнопку на форме таблица подцепилась)
Настройки таблицы:
ODBC;DSN=Mop-Ekat-orig;SourceDB=\\server\DBFS;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;;TABLE=contract
Кто поможет, Тому БАЛЬШОЕ СПАСИБО.
Надо очень. | |
| |
| |
| |
|
|
| | предположу что access не даст использовать ODBC для подключения DBF | |
| |
| |
| |
|
|
| | access нормально подключает через ODBC таблицу после установки нужного драйвера, но в том то и дело что в ручную, а надо автоматом :( | |
| |
| |
| |
|
|
| | вот странно... у меня всегда ругется. Говорит что нелья зиспользовать ODBC для подключения баз данный ISAM. И вот Help по этой ошибке
Не допускается использование ODBC для импорта, экспорта или присоединения таблицы из внешней базы данных Microsoft Jet или базы данных ISAM. (Ошибка 3423)
Попытка выполнить импорт, экспорт или присоединение для таблицы внешней базы данных Microsoft Jet или внешней базы данных ISAM (например, dBASE, Microsoft® FoxPro®, Paradox или Btrieve), однако в качестве источника данных указана <База данных SQL>. Необходимо указать соответствующий тип источника данных для присоединения.
|
| |
| |
| |
| |
|
|
| | http://www.connectionstring.com
может, что-нибудь удастся нарыть | |
| |
| |
| |
|
|
| | Всем спасибо, это оказалось проще чем я думал
Sub Link()
Dim dbCurrent As Database
Dim tdTarget As TableDef
Dim fldLoop As Field
Set dbCurrent = CurrentDb()
Set tdTarget = dbCurrent.CreateTableDef("clients")
tdTarget.Connect = "ODBC;DSN=Mop-Ekat-orig;UID=;SourceDB=p:\mop\Екатеринбург\OPER\DBFS;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
tdTarget.SourceTableName = "clients"
dbCurrent.TableDefs.Append tdTarget
dbCurrent.Close
Set tdTarget = Nothing
End Sub | |
| |
| |
