| Код |
procedure TfrmMain.ReloadDB(Path: ShortString);
begin
ShowNone;
with dmData do
begin
acnTesting.Connected := false;
acnTesting.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+Path+';Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";'+'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;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';
acnTesting.Connected := true;
atbCathegories.Active := true;
atbSubcathegories.Active := true;
atbQuestions.Active := true;
end;
end;
|
Но он выдает ошибку,что аргументы неверных типов,либо конфликтуют между собой.
Хотя я просто лишь скопировал все из уже действующей связи,где просто заменил путь на Path.
Что не так?
PS.MSAccess/ADO/OLE Jet 4.0 DB Provider |