1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| procedure TDacAdoQuery.Prepare;
procedure RefreshFromOleDB;
...
end;
begin
FRecordSet := nil;
FProvider := UpperCase(FDatabase.FDatabase.ConnectionString);
if Pos('MSDAORA', FProvider) > 0 then
FProvider := 'MSDAORA'; // Used when setting string params for ORACLE
if Pos('ORAOLEDB', FProvider) > 0 then
FProvider := 'ORAOLEDB'; // Used when setting string params for ORACLE
if Pos('SQLOLEDB', FProvider) > 0 then
FProvider := 'SQLOLEDB';
if Pos('JET.OLEDB', FProvider) > 0 then
FProvider := 'JET';
//if (FProvider = 'SQLOLEDB') or (FProvider = 'JET') then
// FCommand.Prepared := True
//else
RefreshFromOleDB;
FCommand.CommandTimeOut := FDatabase.FDatabase.CommandTimeOut;
end; |