Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Oldman
В статье
http://hiprog.com/index.php?option=com_content&task=view&id=251661555&Itemid=35

очень подробно описано, как связать таблицы двух БД Access.
А как тот же трюк проделать с субж?
Пытался делать так на Дельфи
procedure TfSdachaAdd.LinkTables(ConnectStr: String);
var
TableNames: TStrings;
i,s:Integer;
tabl, cat: OLEVariant;

begin
cat:=CreateOleObject('ADOX.Catalog');
tabl:=CreateOleObject('ADOX.Table');
cat.ActiveConnection:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DCTempConnStr;
tabl.ParentCatalog:=cat;
tabl.Name:='work_T_Deliveri_Bill';
tabl.Properties['Jet OLEDB:Link Provider String'].Value:='DSN=PRODUCTIVE;APP=Microsoft Office 2003;WSID=1715W;DATABASE=WORK;AutoTranslate=No;Trusted_Connection=Yes';
tabl.Properties['Jet OLEDB:Remote Table Name'].Value:='tech.T_Deliveri_Bill';
tabl.Properties['Jet OLEDB:Create Link'].Value:=True;
cat.Tables.Append(tabl);
....
,
но на строке cat.Tables.Append(tabl); подучал ошибку, что MicrosoftJet не может определить сервер ISAM...
Замена tabl.Properties['Jet OLEDB:Link Provider String'].Value на tabl.Properties['ODBC OLEDB:Link Provider String'].Value ни к чему, кроме ошибки не привели.

Что делать? Руками из БД - никаких проблем, программно - болт!!!


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.