Transférer des enregistrements d'une table vers une autre Base de Données

Version imprimable

16/01/2007, 14h32
SOBZH

Transférer des enregistrements d'une table vers une autre Base de Données

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
16/01/2007, 15h15
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 ...)
16/01/2007, 15h45
aityahia

Citation:

Envoyé par Malatar

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

8O 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.
16/01/2007, 16h46
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

copie base vers autre...

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

Code:

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