Hallo,
Ik wil een Access database prijslijst.accdb gaan importeren en wil die opennen met een ADOConnection maar blijf stoeien met de connectionstring.
heb al veel geprobeerd maar ik zit vast, heb hieronder een voorbeeld gemaakt zoals ik het nu doe.
Code:
procedure TDatamodule.DataConnectAccessACCDB(const sDir, sData, sUser, sPwd: string);
begin
sConnectString := ''
+ 'Provider=Microsoft.ACE.OLEDB.16.0;'
+ 'Data Source=h:\prijslijst.accdb;'
+ 'User ID=admin;'
+ 'OLEDB:Database Password=;'
+ 'Mode=Share Deny None;'
+ 'Persist Security Info=False;'
+ 'Jet OLEDB:Engine Type=6;'
+ 'Jet OLEDB:Database Locking Mode=1;'
+ '';
ADOConnection1.ConnectionString := sConnectString;
try
ADOConnection1.Connected := True;
except
on E : Exception do
begin
raise Exception.Create(E.ClassName + ' ' + E.Message);
end;
end;
end;
Heeft iemand een idee want ik krijg de melding: kan de voorziening niet vinden
Bookmarks