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:
-----
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.
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 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
Je vous remercie d'avance.
Partager