Спасибо Королевству Дельфи!
Вот кусок кода из моей программы, если кому нужно :)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
procedure ActivateAllTables(Connection: TADOConnection);
var
i: integer;
begin
if not Connection.connected then connection.Open;
with Connection do begin
for i:= 0 to DataSetCount- 1 do begin
try
with DataSets[i] do if not Active then begin
AfterPost:=SetQueryProperties;
AfterOpen:=SetQueryProperties;
Open;
end;
except
end;
end;
end;
end;
procedure SetQueryProperties(DataSet: TDataSet);
begin
if DataSet is TADOQuery then with (DataSet as TAdoQuery) do begin
Properties['Update Criteria'].Value:= adCriteriaKey;
Properties['Update Resync'].Value:= adResyncAutoIncrement + adResyncInserts;
end;
end;
