SQL avec Delphi 4

Voila ce que j'utilise :

Code:

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;

Synthèse :

Pour une requête de lecture (sans modif de la bd) Qry1.Active := true;
Pour une requête de modification (Update, insert, Create Table, etc) Qry1.ExecSql;