Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Силblч
'-- далее, в зависимости от типа настройки Select Case .Fields("lnkType") '-- Link ODBC---------------------------------------------------------- Case 3 If .Fields("dstPath") = "CurrentDB" Then Set dbd = cbd Else Set dbd = DBEngine.Workspaces(0).OpenDatabase(.Fields("dstPath")) End If '-- удалить связь On Error Resume Next dbd.TableDefs.Delete .Fields("lnkNam") dbd.TableDefs.Refresh On Error GoTo ErrRefreshLinkTables '-- создать по новой, если bLink<>0 If .Fields("bLink") <> 0 And .Fields("aLink") <> 0 Then Set dtf = dbd.CreateTableDef(.Fields("lnkNam")) '--"ODBC;DSN=<ВашСервер>;UID=UserID;PWD=PASSWORD;DATABASE=DBNAME;AutoTranslate=No" dtf.Connect = .Fields("srcPath") dtf.SourceTableName = .Fields("objNam") 'добавляем таблицу в семейство TableDefs dbd.TableDefs.Append dtf dbd.TableDefs.Refresh End If
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.