Discussion :

[jackrabbit]

J'utilise une base ACCESS avec DELPHI 4 et j'aurais besoin d'effectuer des commandes SQL (Insert / Delete / Update). Je préfère ne pas utilise les composantes graphiques car c'est un traitement batch dans la BD.

Pour accéder à mes données, j'utilise le code suivant et ça fonctionner très bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
var
  rs: OleVariant;
  sConn, sql: string;
begin
  sConn := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=abc.mdb';
  sql := 'select name, length from Tracés';
  rs := CreateOleObject('ADODB.RecordSet');
  rs.CursorLocation := 3;
  rs.Open(sql, sConn);

Par contre, je n'ai pas trouvé d'équivalent pour exécuter une commande SQL. J'ai trouvé plein d'exemple sur ce site et sur internet (avec tADOQuery, etc) mais ça ne compile pas et je n'ai rien trouvé dans l'aide DELPHI. J'ai besoin d'un truc facile avec DELPHI 4.

[Le Lézard]

Voila ce que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;