Discussion :

[denza1]

Delphi 6 ado personel Sql server2000

Bonjour
Pour importer et exporter les donneés des tables sous sql server il existe l'assistant DTS,
Mon problem est :
Comment faire sa sous delphi ? (l'utilisateur ne connait pas sql server)
Exporter les données de 43 tables vers un fichier et ensuite les importer vers une autre base distant par flashdisk meme structure que la 1ere bd
Je suis ouvert pour toutes propositions
Merci d'avance

[Pascal Jankowski]

Bonjour,

J'ai une petite question avant tout.

Dois-tu recopier entièrement toutes les données d'une première base vers une seconde ? ou ne reprendre l'information de quelques tables de ta première base de données ?

Cordialement

[denza1]

Bonjour
Reponse:
recopier entièrement toutes les données d'une première base vers une seconde

[frantzgac]

Ce petit bout de code copie une table (associée au datasource1) dans un fichier au format CSV (en fait le sépratateur est ici une tabulation). Il faut préalablement charger la liste des noms de champs de la table dans un TstringList nommé lfield. Ca conviendra pour l'export et peut se généraliser à toutes les tables sans difficulté. Cependant s'il faut à l'import, créer les tables (structures) cela ne suffira pas.

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
procedure TForm1.Button4Click(Sender: TObject);
var sl:TstringList;
    s:string;
    i:integer;
begin
sl:=TstringList.create;
 
with DataSource1 do begin
     s:=''; // copier les entete de colonne
     for i:=low(lfield) to high(lfield) do 
         s:=s+chr($9)+lfield[i];
     sl.add(s);
 
     Enabled:=false;
     DataSet.first;
     while not DataSet.Eof do begin
         s:='';
         for i:=low(lfield) to high(lfield) do begin
         s:=s+chr($9)+dataset.fieldbyname(lfield[i]).asstring;
         end;
         for i:=1 to length(s) do begin
             if (s[i] = chr($d)) or (s[i] = chr($a)) then
                s[i]:=' ';
         end;
     sl.add(s);
     Dataset.next;
     end;
     Enabled:=True;
     end; // with
 
sl.SaveToFile('Patient.txt');
sl.destroy;
end;