bonjour a tous
j'ai connecté a une base de données oracle avec odac pour delphi 7, et je peut faire une extraction d'une table vers un fichier texte, veuillez nous aidez SVP
Merci d'avance.
bonjour a tous
j'ai connecté a une base de données oracle avec odac pour delphi 7, et je peut faire une extraction d'une table vers un fichier texte, veuillez nous aidez SVP
Merci d'avance.
Bonjour,
ci_dessous deux procédure pour qui font le besoin :
ou :
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 var Stream: TFileStream; i: Integer; OutLine: string; sTemp: string; begin Stream := TFileStream.Create('C:\Data\YourFile.csv', fmCreate); try while not Query1.Eof do begin // You'll need to add your special handling here where OutLine is built OutLine := ''; for i := 0 to Query.FieldCount - 1 do begin sTemp := Query.Fields[i].AsString; // Special handling to sTemp here OutLine := OutLine + sTemp + ','; end; // Remove final unnecessary ',' SetLength(OutLine, Length(OutLine) - 1); // Write line to file Stream.Write(OutLine[1], Length(OutLine) * SizeOf(Char)); // Write line ending Stream.Write(sLineBreak, Length(sLineBreak)); Query1.Next; end; finally Stream.Free; // Saves the file end; end;
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 procedure WriteDataSetToCSV(DataSet: TDataSet, FileName: String); var List: TStringList; S: String; I: Integer; begin List := TStringList.Create; try DataSet.First; while not DataSet.Eof do begin S := ''; for I := 0 to DataSet.FieldCount - 1 do begin if S > '' then S := S + ','; S := S + '"' + DataSet.Fields[I].AsString + '"'; end; List.Add(S); DataSet.Next; end; finally List.SaveToFile(FileName); List.Free; end; end;
Salam ,
Merci beaucoup de cette réponse,... Résolue
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager