Discussion :

[SOBZH]

Bonjour,

Je travaille actuellement sur Delphi 2006, et ma base de données est sous FireBird. Je souhaiterais savoir comment transférer un enregistrement d'une table d'une base X vers une table de même structure dans une base Y.
Cela me permettra, par exemple, pour chaque suppression d'un enregistrement de le stocker dans une autre base indépendante.

Merci d'avance

[Rayek]

Si les composants ne fournissent pas le moyen de copier une table d'une base de données vers une autre, il te faut le faire à la main

- 1 connexion pour chaque Db,
- un composant TxxxTable ou TxxxQuery pour chaque db,
- Puis faire le nécessaire pour copier l'un vers l'autre (avec des append, post, ou requete, etc ...)

[aityahia]

Si les composants ne fournissent pas le moyen de copier une table d'une base de données vers une autre, il te faut le faire à la main

oui il faut le faire a la main, ou stylo.

oui pour faire sa il te faudra un bout de code comme a dit malatar le code nécéssite une répition tu devra peut etre faire une procédure avec le BDE on la possibilité d'utiliser Tbachmove.

[SOBZH]

Cela paraît étrange qu'aucun composant ne puisse permettre de faire des transfert de données.
Je sais à quoi m'en tenir, il va falloir le faire manuellement.

Merci bcps pour vos réponses

[VisualBoinet]

c'est pas du delphi mais il y a la requete qui va bien...

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
Function ExporteDonnées (table_source As String, base_destination
As String, table_destination As String)
 
Dim base_source As Database, exportation As QueryDef
Dim SqlChaine As String
 
' récupération de la base de données courante
Set base_source = CurrentDB()
 
' construction de la chaîne SQL de la requête ajout
SqlChaine = "INSERT INTO " & table_destination & " IN '"
& base_destination & "' SELECT DISTINCTROW " & table_source &
".* FROM [" & table_source & "];"
 
' création de la requête qui va contenir la chaîne SQL générée
' dans la base de données courante
Set exportation = base_source.CreateQueryDef("RTemp", SqlChaine)
 
' exécution de la requête ainsi générée
exportation.Execute
exportation.Close
 
' destruction de la requête créée dans la base de données courante
base_source.DeleteQueryDef ("RTemp")
 
' fermeture de la base de données courante dans le module
base_source.Close
 
End Function

a+