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 26 27 28 29 30 31 32 33 34
|
var
Qry1: TAdoQuery;
ADOCnx: TADOConnection;
sConn, sql: string;
begin
AdoCnx := TAdoConnection.Create(nil);
AdoCnx.LoginPrompt := False;
AdoCnx.CursorLocation := clUseClient;
sConn := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=abc.mdb';
AdoCnx.ConnectionString := sConn;
AdoCnx.Connected := true;
Qry1 := TADOQuery.Create(nil);
Qry1.Connection := AdoCnx;
Qry1.Active := False;
Qry1.SQL.Clear;
sql := 'select name, length from Tracés';
Qry1.SQL.Add(sql);
Qry1.Active := true; // si la requête est un select...
// Qry1.ExecSql; // si la requête est un insert, ou update, ou autre commande de modification
// Traitement sur le résulat de la requête ici
//-------------------------------------------------
//
//
//-------------------------------------------------
Qry1.Active := false;
Qry1.free;
AdoCnx.Connected := false;
AdoCnx.free;
End; |
Partager