Discussion :

[smail21]

Salut
j'ai une application qui a un alias Equipe, cette bases de données est installé sur plusieurs pc autonomes.
chaque fin du mois je dois faire le consolidé de ces bases de donnés dans mon PC après avoir ramené tous les répertoires BD des utilisateurs.et pour cela je dois programmer une application de consolidation avec un alias nouveau, disons Consolid
maintenant, j'aimerai savoir comment faire pour enregistrer toutes ces tables des utilisateurs dans une seule table dont l'alias est Consolid.

Donc j'ai :
1- une application avec alias Consolid
2- plusieurs répertoires contenants des tables sans alias.

quel est le meilleur moyen pour faire ce travail sans fixer le chemin des répertoires?

Merci d'avances

[Rayek]

Avec quelle base de données travailles tu ?
Quels sont les composants db que tu utilises ?

[smail21]

c'est une base de données Paradox
les composants que j'utilise sont ceux de delphi 5 (standard)

[Rayek]

Voici 3 possibilités possible :

1- Le TBatchMove (composant BDE) qui permet le transfert de données

2- Si tu es sûr qu'il n'y a pas de doublons (ou que la base de données accepte les doublons) tu peux faire de la manière suivante

Code SQL :

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

1
2
3
 
Insert into 'c:\monchemin\matableDestination.db' (champ1,Champ2,Champ3, ... , ChampX)
Select Champ1,Champ2,Champ3, ... , ChampX from 'c:\monchemin\MatableSource.db' Where MOnCritère = MaValeurCritère

Après il est simple de faire un code pour le transfert.

3- Il va te falloir faire une boucle sur la table source et insérer les données une a une dans la table de destination. (Dans ce cas la tu peux faire beaucoup plus de tests que sur les deux cas précédents)

[smail21]

salut et merci

pour la 1ère proposition: utiliser batchmove, veut dire que je dois copier les autres BD dans un repertoire fixe avec un alias fixe, et à chaque fois je remplace le contenu de ce repertoire par d'autres tables ?

2- dans ta seconde proposition, n'y a -t-il pas un moyen d'envoyer le chemin de matablesource en paramaètres ? parceque le chemin changera d'un repertoire à un autre

3- c'est la même chose que le problème de la première proposition, sauf que là c'est fait manuellement

[Rayek]

2- dans ta seconde proposition, n'y a -t-il pas un moyen d'envoyer le chemin de matablesource en paramaètres ? parceque le chemin changera d'un repertoire à un autre

Tu te fais une fonction/procedure

Code Delphi :

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
 
function Transfert (Source, Destination : String) : Boolean;
begin
  With Query do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Insert into ' + QuotedStr(Destination) + ' (champ1,Champ2, ...)');
    SQL.Add('Select Champ1,Champ2 , ... from ' + QuotedStr(Source));
    SQL.Add('Where Critere = Valeur');
    try
      Execute; // plus sur en BDE si c'est ca
      Result := True;
    Except on E:Exception do
      Result := False;
    end;
  end;
end;