Цитата:
Сообщение от Kaktuz
...Связанно это с тем что когда код записан в событие Form1.Action, а не напрямую в объекте.
Код:
Form1.ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+WorkingFolder+'db1.mdb;Persist Security Info=False';
|
Если коннектстрочку задаёте кодом, тогда для упрощения удалите ADOConnection1 совсем, а в FormCreate запишите
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.ADOQuery1.SQL.Add('SELECT * FROM data');
ADOQuery1Text1.OnGetText := ADOQuery1MemoFieldGetText;
ADOQuery1Text2.OnGetText := ADOQuery1MemoFieldGetText;
WorkingFolder := ExtractFilePath(ParamStr(0));
Form1.ADOQuery1.ConnectionString :=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
WorkingFolder +
'db1.mdb;Mode=ReadWrite;Persist Security Info=False';
Form1.ADOQuery1.Active := True;
ScanningFolder(WorkingFolder, nil);
end;