1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
var
cnt : Connection_;
res : recordset;
nb : OleVariant;
begin
... // Il faut initialiser la connexion dans cnt et l'ouvrir ...
res := cnt.Execute('select * from Table1', nb, adOptionUnspecified);
try
....
finally
res.Close; // Il faut fermer le recordset avant de pouvoir réappeler Execute.
res := nil; // Attention, res := nil ne ferme pas le recordset automatiquement, il faut appeler res.Close explicitement.
end;
res := cnt.Execute('select * from Table2', nb, adOptionUnspecified); |
Partager