Transfert données d'une tab(bdd1) vers tab2(bdd2)
Bonjour à toutes et à tous,
j'ai un gros souci concernant l'insertion des données d'une table de la base oracle vers une autre table de la base SQL SERVER en VB.Les deux tables ont les mêmes attributs et de même type.En effet voilà en gros comment je procèdes:
-----
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
|
Set objtConORA=CreateObject("ADODB.Connection")
'--ordre sql oracle
SQLORA="Select champ1,champ2,champ3 from TabORA"
Set RSORA=CreateObject("ADODB.recordset")
RSORA.Open SQLORA,objtConORA
'--ordre sql sql server
'SQLSVR="Insert into champ1,champ2,champ3 "
SQLSVR="Select champ1,champ2,champ3 from TabSRV"
Do while RSORA.EOF
"ici je ne sais plus comment faire pour l'insersiion"
Set RSSRV=CreateObject("ADODB.recordset")
RSSRV.open SQLSVR,objConSRV
RSSRV("champ1")=RSORA("champ1")
RSSRV("champ2")=RSORA("champ2")
RSSRV("champ3")=RSORA("champ3")
RSORA.moveNext
Loop |
Là je suis coincé et je n'avance plus .Je suis preneur de tout code pouvant me faire avancer dans l'insertion des données dans une table2 d'une BDD2 provenant d'une autre table1 d'une BDD les table ayant les mêmes caractéristiques.
Je vous remercie d'avance.
