génération script sql

Salut,
Comment générer un script SQL des données d'une requette

Voilà si vous utilisez delphi, sinon vous pouvez facilement le convertir.
Vous devez exécutez la requête puis appelez cette fonction avec comme paramètre le nom de la requête.

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
35
36
37
38
39
40
41
42
43
44
45
46
47
 
procedure Formuler(Query1:TDataSet);
var Insert    : String;
    Fields    : String;
    Params    : String;
    field     :string;
    I         : Integer;
    req       :TSTringList;
Begin
  req:=TStringList.create;
  Insert := 'INSERT INTO  (';
 
  For I:=0 To Query1.Fields.Count-1 Do
  Begin
    IF (Query1.Fields[I].FieldKind = fkData) Then
    Begin
      IF ( I > 0 ) Then
        Fields := Fields + ', ';
      Fields := Fields + Query1.Fields[I].FieldName;
    End;
  End;
 
  Fields := Fields + ')';
 
Query1.First;
While Not(Query1.Eof) Do
Begin
  req.Add( Insert );
  req.Add( Fields );
  Params := 'VALUES (';
  For I:=0 To Query1.Fields.Count-1 Do
  Begin
    IF (Query1.Fields[I].FieldKind = fkData) Then
    Begin
      IF ( I > 0 ) Then Params := Params + ', ';
      if (Query1.Fields[I] is TStringField) then field:='"'+Query1.Fields[i].AsString+'"'
                                            else field:=Query1.Fields[i].AsString;
      Params := Params + field;
    End;
  End;
  Params := Params + ')';
  req.Add( Params );
  Query1.Next;
End;
req.SaveToFile('c:\resultat.sql');
req.free;
end;

Merci :ccool: