Discussion :

[bour-geon]

Bonjour,

J'ai deux tables. Une table ARTISTES et une table OEUVRES. Je souhaite exporter les données de ces deux tables a l'aide d'une requête SQL dans DELPHI. Sauf que je ne sais pour quelle raison l'exportation a échoué. Merci

Voici mon code :

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
35
36
37
38
39
40
41
42
43
44
45
procedure TForm6.ExportData(sNomArtiste, sPrenomArtiste: String);
begin
    MyQuery1 := TADOQuery.Create(Self);
    MyQuery1.Connection := ADOConnection1;
 
    try
        MyQuery1.Close;
        MyQuery1.SQL.Clear;
        MyQuery1.Sql.Text := 'SELECT ARTISTES.*, OEUVRES.NOM, OEUVRES.DATE_SORTIE FROM ARTISTES ' +
                             'LEFT JOIN OEUVRES ' +
                             'ON ARTISTES.ID_ARTISTE = OEUVRES.ID_ARTISTE ' +
                             'WHERE ARTISTES.prenom = :PRENOM AND ARTISTES.nom = :NOM';     // Les : Doivent etre collés au parametre
        MyQuery1.Parameters[0].Value := sNomArtiste;
        MyQuery1.Parameters[1].Value := sPrenomArtiste;
        MyQuery1.Open;
 
        AssignFile(Fichier,ExtractFilePath(Application.ExeName)+'recupData.txt');
        Rewrite(Fichier);
 
        MyQuery1.first;
 
        While not MyQuery1.Eof do
        begin
           Append(Fichier); //Prépare un fichier existant pour l'ajout de texte
 
           Writeln(Fichier,'ID_ARTISTE: ', MyQuery1.Fields[0].AsInteger,',  ',
                           'NOM_ARTISTE: ',MyQuery1.Fields[1].AsString,',  ',
                           'PRENOM_ARTISTE: ',MyQuery1.Fields[2].AsString,',  ',
                           'DATE_NAISSANCE: ',FormatDateTime('yyyy-mm-dd',MyQuery1.Fields[3].AsDateTime),',  ',
                           'DATE_DECES: ',FormatDateTime('yyyy-mm-dd',MyQuery1.Fields[4].AsDateTime),',  ', //Faut regler le pb de Yasser Jradi, sa date de deces est nulle, mais ca lui affecte quand meme une date aléatoire!!!
                           'OEUVRES_NOM: ',MyQuery1.Fields[5].AsString,',  ',
                           'DATE_SORTIE:', FormatDateTime('dd-mmm-yyyy',MyQuery1.Fields[6].AsDateTime)); //Writeln écrit une marque fin de ligne
           CloseFile(Fichier);
 
           MyQuery1.Next;
        end;
 
    finally
        ShowMessage (MyQuery1.Parameters[0].Value);
        ShowMessage (MyQuery1.Parameters[1].Value);
        //ShowMessage (MyQuery1.Fields[0].AsInteger);
        ShowMessage ('échec de l''exportation');
    end;
 
end;

[Paul TOTH]

Bonjour,

J'ai deux tables. Une table ARTISTES et une table OEUVRES. Je souhaite exporter les données de ces deux tables a l'aide d'une requête SQL dans DELPHI. Sauf que je ne sais pour quelle raison l'exportation a échoué. Merci

difficile à dire, message d'erreur ? fichier vide ?

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
procedure TForm6.ExportData(sNomArtiste, sPrenomArtiste: String);
begin
    MyQuery1 := TADOQuery.Create(Self);
    MyQuery1.Connection := ADOConnection1;
 
    try
// aucun intérêt sur un Query qui vient d'être créé
//        MyQuery1.Close; 
//       MyQuery1.SQL.Clear;
 
        MyQuery1.Sql.Text := 'SELECT ARTISTES.*, OEUVRES.NOM, OEUVRES.DATE_SORTIE FROM ARTISTES ' +
                             'LEFT JOIN OEUVRES ' +
                             'ON ARTISTES.ID_ARTISTE = OEUVRES.ID_ARTISTE ' +
                             'WHERE ARTISTES.prenom = :PRENOM AND ARTISTES.nom = :NOM';     // Les : Doivent etre collés au parametre
        MyQuery1.Parameters[0].Value := sNomArtiste;
        MyQuery1.Parameters[1].Value := sPrenomArtiste;
        MyQuery1.Open;
 
// c'est quoi le type de 'Fichier' ?
        AssignFile(Fichier,ExtractFilePath(Application.ExeName)+'recupData.txt');
        Rewrite(Fichier);
 
// aucun intérêt sur un Query qu'on vient d'ouvrir
//        MyQuery1.first;
 
        While not MyQuery1.Eof do
        begin
// le fichier est déjà ouvert !
//           Append(Fichier); //Prépare un fichier existant pour l'ajout de texte
 
// il doit être du type TextFile
           Writeln(Fichier,'ID_ARTISTE: ', MyQuery1.Fields[0].AsInteger,',  ',
                           'NOM_ARTISTE: ',MyQuery1.Fields[1].AsString,',  ',
                           'PRENOM_ARTISTE: ',MyQuery1.Fields[2].AsString,',  ',
                           'DATE_NAISSANCE: ',FormatDateTime('yyyy-mm-dd',MyQuery1.Fields[3].AsDateTime),',  ',
                           'DATE_DECES: ',FormatDateTime('yyyy-mm-dd',MyQuery1.Fields[4].AsDateTime),',  ', //Faut regler le pb de Yasser Jradi, sa date de deces est nulle, mais ca lui affecte quand meme une date aléatoire!!!
                           'OEUVRES_NOM: ',MyQuery1.Fields[5].AsString,',  ',
                           'DATE_SORTIE:', FormatDateTime('dd-mmm-yyyy',MyQuery1.Fields[6].AsDateTime)); //Writeln écrit une marque fin de ligne
// pourquoi le fermer après chaque ligne ?!
//           CloseFile(Fichier);
 
           MyQuery1.Next;
        end;
 
// là il manque la fermeture du fichier  que l'on peut mettre dans un try/finally
    CloseFile(fichier)
 
// ce n'est pas un finally pour un échec !
//    finally
   except
    on e: Exception do
    begin
        ShowMessage (MyQuery1.Parameters[0].Value);
        ShowMessage (MyQuery1.Parameters[1].Value);
        //ShowMessage (MyQuery1.Fields[0].AsInteger);
        ShowMessage ('échec de l''exportation ' + e.Message);
    end
   end;
 
// il manque la libération du Query (qui elle se fait dans un try/finally
 
end;

[blonde]

C'est le contenu de ton fichier qui ne correspond pas à ce que tu attends ? ou ton fichier n'existe pas ?

Sinon, c'est le message "ShowMessage ('échec de l''exportation');" qui t'inquiète, c'est normal qu'il apparaisse, tu l'as glissé dans le Finaly.

Regarde bien le code de Paul, il a expliqué en commentaires ce que tu peux améliorer.

[hocine]

bonjour, vous allez peut être trouver ça bizard mais..
utilisez write(fichier,.....) au lieu de writeln pour remplir la ligne et après utlisez writeln(fichier) pour passer à la ligne suivante.

[ALWEBER]

Attention ! :

Code :

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

MyQuery1.Fields[0].AsInteger

Il serait préférable d'utiliser

Code :

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

MyQuery1.Fields[0].AsString

Peut être utiliser un TStringlist en lieu et place de AssignFile ...

[Andnotor]

Pour que la requête renvoie un résultat, ben il faudrait peut-être que les paramètres soient dans le bon ordre

Code :

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

1
2
3
4
5
6
MyQuery1.Sql.Text := 'SELECT ARTISTES.*, OEUVRES.NOM, OEUVRES.DATE_SORTIE FROM ARTISTES ' +
                     'LEFT JOIN OEUVRES ' +
                     'ON ARTISTES.ID_ARTISTE = OEUVRES.ID_ARTISTE ' +
                     'WHERE ARTISTES.prenom = :PRENOM AND ARTISTES.nom = :NOM';
MyQuery1.Parameters[0].Value := sPrenomArtiste sNomArtiste;
MyQuery1.Parameters[1].Value := sNomArtiste sPrenomArtiste;