Строка подключения ADO+DBase

[_SERGEYX_]

Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data 
Source=d:\kvartplata\saldo\5\;Mode=ReadWrite;Extended
 Properties=dBase 5.0;Jet OLEDB:System database="";Jet OLEDB:Registry 
Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=18;Jet 
OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet 
OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet 
OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet 
OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica 
Repair=False;Jet OLEDB:SFP=False

Вот такой строкой подключаюсь к dbf-файлу (уже не помню откуда я ее взял, но работает нормально). Точнее, работает, если строку вставить сразу в дизайн-тайме. Если же попытаться присвоить ее динамически (например, для того, чтобы путь взять из edit1.text)

ADOConnection1.Connected:= False;
ADOConnection1.ConnectionString:='... бла-бла...';
ADOConnection1.Connected:= true;

то начинают сыпаться ошибки
- не пройдена проверка подлинности...
или
- таблица не найдена ядром базы данных...
или
- непредвиденная ошибка драйвера...
и тому подобная ересь.

У кого-нибудь было такое? Если да, то как боролись?
Спасибо.

[Аватар]

Вот такой вариант, с другим провайдером правда, работает без проблем

ADOConnectionDbf.ConnectionString:= Format('Provider=VFPOLEDB.1;Data Source=%s;Mode=ReadWrite;Password=" ";Collating Sequence=MACHINE;DELETED=False;CODE PAGE=866',[Path]);

Jet для dbf тоже использовал, но с dBase 4.0 и без этой здоровенной кучи параметров

ADD

И есть подозрение, что при динамической настройке что-то не то делаете

[_SERGEYX_]

Спасибо, попробую этой строкой соединиться...
//************************

[Serge_Bliznykov]

Спасибо, попробую этой строкой соединиться...

имхо, для этой строчки в системе должен быть установлен провайдер:
Microsoft OLE DB Provider for Visual FoxPro

[_SERGEYX_]

Да, это я понял...

Хм, а если мою строку запихнуть динамически через FORMAT(), то все работает нормально.
Типа этого (строку более 255 символов принимать не хочет, поэтому составляю ее кусками):

var s: string;
begin
s:='';
s:=s+'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=%s;';
s:=s+'Mode=ReadWrite;Extended Properties=dBase 5.0;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";';
s:=s+'Jet OLEDB:Engine Type=18;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;';
s:=s+'Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';

dm.ADOConnection1.Connected:= False;
dm.ADOConnection1.ConnectionString:=Format(s,[edit1.text]);
dm.OldKVART.Connected:= True;
end;

Странно...

[Аватар]

Длинные тексты удобней так склеивать

s:='...'+
   '...'+
   '...';