Comparaison de deux table de deux bd différentes

Version imprimable

21/11/2008, 19h21
CyberMen

Comparaison de deux table de deux bd différentes

Bonjour,

Je dois comparer les donnes de deux table différentes qui sont logées dans deux bd différentes pour ensuite ajouter les données de l'une à l'autre si elle ne sont pas identique...

Est-ce que quelqu'un connaît un tuto qui pourrait m'aider car c'Est la première fois que je fais du vbscript

MErci!
22/11/2008, 14h54
Invité

Bonjour

Une question importante avant de poursuivre : c'est quoi comme base de données ?

Philippe

Bonjour!

C'était une bd ACCESS :mouarf:

Désolé, j'avoue que ma demande n'était vraiment pas clair :oops:

J'ai avançé en faisant des test et pour l'instant, je réussis à lire le contenu de mes tables donc il ne me reste que la comparaison.

En fait, j'avais de la difficulté à me connecter à mes tables donc voilà mon
code si ça peut aider quelqu'un et du même coup si vous avez des suggestions d'amélioration du code, merci de me le suggérer :yaisse2:

Voici mon nouveau code mais ca ne fonctionne toujours pas, est-ce que quelqu'un peut voir mon erreur? Merci!

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
 
dim sel
 
Set conn1 = CreateObject("ADODB.Connection")
Set conn2 = CreateObject("ADODB.Connection")
 
Set rst1 = CreateObject("ADODB.Recordset")
Set rst2 = CreateObject("ADODB.Recordset")
 
 
 
 
conn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
						"Data Source=C:\bd1.mdb"
 
conn2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
						"Data Source=C:\bd2.mdb"
 
 
conn1.open
conn2.open
 
 
sql1 = "select Nom from tblClient;"
sql2 = "select Nom from tblClient;"
 
rst1.open sql1,conn1
rst2.open sql2,conn2
 
 
 
rst1.movefirst 
while not rst1.eof
 
 
	rst2.movefirst
	while not rst2.eof
		if (rst1.fields.item("Nom") <> rst2.fields.item("Nom")) then
			if rst2.eof then
				msgbox("Test")
				sel = "INSERT INTO rst1.tblClient ( Nom, Code, Nom, Code ) SELECT rst1.tblClient.Nom, rst1.tblClient.Code, rst2.tblClient.Nom, rst2.tblClient.Code FROM rst2.tblClient LEFT JOIN rst1.tblClient ON rst2.tblClient.Nom = rst1.tblClient.Nom WHERE (((rst1.tblClient1.Nom) Is Null));"
				conn2 execute(sel)
			end if
			rst2.movenext
		else
			while not rst2.eof
				rst2.movenext
			wend	
		end if
 
	wend	
 
 
	rst1.movenext
wend
 
 
 
conn1.close
conn2.close
 
 
 
 
Const ForReading = 1, ForWriting = 2, ForAppend = 8
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\temp\Log.txt", ForWriting ,true)
f.write("Traitement terminé le ")
f.write(day(date))
f.write(" ")
f.write(monthname(month(date)))
f.write(" à ")
f.write(time)

Petite mise à jour
Mon code fonctionne (enfin je crois)

J'ai un problême avec ma requête :?

Voici ma dernière version:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
dim sel
 
Set conn1 = CreateObject("ADODB.Connection")
Set conn2 = CreateObject("ADODB.Connection")
 
Set rst1 = CreateObject("ADODB.Recordset")
Set rst2 = CreateObject("ADODB.Recordset")
 
 
 
 
conn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
						"Data Source=C:\bd1.mdb"
 
conn2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
						"Data Source=C:\bd2.mdb"
 
 
conn1.open
conn2.open
 
 
sql1 = "select Nom from tblClient;"
sql2 = "select Nom from tblClient;"
 
rst1.open sql1,conn1
rst2.open sql2,conn2
 
 
 
rst1.movefirst 
while not rst1.eof
 
 
	rst2.movefirst
	while not rst2.eof
		if (rst1.fields("Nom").value <> rst2.fields("Nom").value) then
			if (rst2.eof - 1) then
				msgbox("INSERT")
				sel = "INSERT INTO rst1.tblClient ( Nom, Code, Nom, Code ) SELECT rst1.tblClient.Nom, rst1.tblClient.Code, rst2.tblClient.Nom, rst2.tblClient.Code FROM rst2.tblClient LEFT JOIN rst1.tblClient ON rst2.tblClient.Nom = rst1.tblClient.Nom WHERE (((rst1.tblClient.Nom) Is Null));"
				rst2.close
				rst2.open sel,conn2
			end if
			rst2.movenext
		else
			while not rst2.eof
				rst2.movenext
			wend	
		end if
 
	wend	
 
 
	rst1.movenext
wend
 
 
 
 
 
conn1.close
conn2.close
 
'rst1 = nothing
'rst2 = nothing
 
 
 
Const ForReading = 1, ForWriting = 2, ForAppend = 8
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\temp\Log.txt", ForWriting ,true)
f.write("Traitement terminé le ")
f.write(day(date))
f.write(" ")
f.write(monthname(month(date)))
f.write(" à ")
f.write(time)

Le problême est au niveau de la requête
Quelqu'un peut m'aider?
:cry:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
 
dim sel
 
Set conn1 = CreateObject("ADODB.Connection")
Set conn2 = CreateObject("ADODB.Connection")
 
Set rst1 = CreateObject("ADODB.Recordset")
Set rst2 = CreateObject("ADODB.Recordset")
 
 
 
 
conn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
						"Data Source=C:\bd1.mdb"
 
conn2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
						"Data Source=C:\bd2.mdb"
 
 
conn1.open
conn2.open
 
 
sql1 = "select Nom from tblClient;"
sql2 = "select Nom from tblClient;"
 
rst1.open sql1,conn1
rst2.open sql2,conn2
 
 
 
rst1.movefirst 
while not rst1.eof
 
 
	rst2.movefirst
	while not rst2.eof
		if (rst1.fields("Nom").value <> rst2.fields("Nom").value) then
			if (rst2.eof - 1) then
 
				rst2.close
				rst2.open "INSERT INTO tblClient ( Nom, Code ) VALUES ('" & rst1.fields('Nom').value & "','" & rst1.fields('Code').value & "')",conn2
			end if
			rst2.movenext
		else
			while not rst2.eof
				rst2.movenext
			wend	
		end if
 
	wend	
 
 
	rst1.movenext
wend
 
 
 
conn1.close
conn2.close
 
'rst1 = nothing
'rst2 = nothing
 
 
 
Const ForReading = 1, ForWriting = 2, ForAppend = 8
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\temp\Log.txt", ForWriting ,true)
f.write("Traitement terminé le ")
f.write(day(date))
f.write(" ")
f.write(monthname(month(date)))
f.write(" à ")
f.write(time)

25/11/2008, 03h50
Invité

Bonjour

Au lieu de comparer, pourquoi ne pas faire une requête Union, regardes Comment retourner toutes les lignes de deux ensembles avec UNION ?, dans la FAQ Access.

Philippe
25/11/2008, 04h12
CyberMen

Merci pour la réponse.

En fait, je cherche à comparer les infos de la bd1 à celles de la bd2 et insérer dans la tblClient de la bd2, les données qu'il y a dans la bd1 qui ne sont pas dans la bd2 :(

Nouvel essai...je sais pas si je m'éloigne ou pas mais je tente différentes façons :?

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
dim sel
 
Set conn1 = CreateObject("ADODB.Connection")
Set conn2 = CreateObject("ADODB.Connection")
 
Set rst1 = CreateObject("ADODB.Recordset")
Set rst2 = CreateObject("ADODB.Recordset")
 
 
 
 
conn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
						"Data Source=C:\bd1.mdb"
 
conn2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
						"Data Source=C:\bd2.mdb"
 
 
conn1.open
conn2.open
 
 
sql1 = "select Nom, Code from tblClient;"
sql2 = "select Nom from tblClient;"
 
rst1.open sql1,conn1
rst2.open sql2,conn2 
 
 
 
rst1.movefirst 
while not rst1.eof
 
 
	rst2.movefirst
	while not rst2.eof
		if (rst1.fields("Nom").value <> rst2.fields("Nom").value) then
			if (rst2.eof - 1) then
				rst2.addnew 
				rst2.fields("Nom").value = rst1.fields("Nom")
				rst2.fields("Code").value = rst1.fields("Code")
				rst2.update
			end if
			rst2.movenext
		else
			while not rst2.eof
				rst2.movenext
			wend	
		end if
 
	wend	
 
 
	rst1.movenext
wend
 
 
 
conn1.close
conn2.close
 
rst1.close
rst2.close
 
set conn1 = nothing
set conn2 = nothing
 
set rst1 = nothing
set rst2 = nothing
 
 
 
Const ForReading = 1, ForWriting = 2, ForAppend = 8
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\temp\Log.txt", ForWriting ,true)
f.write("Traitement terminé le ")
f.write(day(date))
f.write(" ")
f.write(monthname(month(date)))
f.write(" à ")
f.write(time)

Ça avance...mais il y a des doublons...c'est surement une question de logique maintenant que le reste fonctionne

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
 
Set conn1 = CreateObject("ADODB.Connection")
Set conn2 = CreateObject("ADODB.Connection")
 
Set rst1 = CreateObject("ADODB.Recordset")
Set rst2 = CreateObject("ADODB.Recordset")
 
conn1.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\bd1.mdb;Persist Security Info=False"
conn1.Open 
 
conn2.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\bd2.mdb;Persist Security Info=False"
conn2.Open 
 
rst1.CursorLocation = adUseClient
rst2.CursorLocation = adUseClient
 
rst1.Open "SELECT Nom, Code FROM tblClient" , conn1, adOpenStatic, adLockOptimistic
rst2.Open "SELECT Nom, Code FROM tblClient" , conn2, adOpenStatic, adLockOptimistic
 
 
 
rst1.movefirst 
while not rst1.eof
 
 
	rst2.movefirst
	while not rst2.eof
		if (rst1.fields("Nom").value <> rst2.fields("Nom").value) then
			if (rst2.eof - 1) then
				rst2.AddNew
				rst2("Nom") = rst1.fields("Nom")
				rst2("Code") = rst1.fields("Code")
				rst2.Update
			end if
			rst2.movenext
		else
			while not rst2.eof
				rst2.movenext
			wend	
		end if
 
	wend	
 
 
	rst1.movenext
wend
 
 
 
 
 
rst1.close
rst2.Close
conn1.Close
conn2.close
 
 
 
 
 
Const ForReading = 1, ForWriting = 2, ForAppend = 8
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\temp\Log.txt", ForWriting ,true)
f.write("Traitement terminé le ")
f.write(day(date))
f.write(" ")
f.write(monthname(month(date)))
f.write(" à ")
f.write(time)

J'ai enfin trouvé, merci quand même!
Voici mon code final

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
dim intCompteur
 
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
 
Set conn1 = CreateObject("ADODB.Connection")
Set conn2 = CreateObject("ADODB.Connection")
 
Set rst1 = CreateObject("ADODB.Recordset")
Set rst2 = CreateObject("ADODB.Recordset")
 
conn1.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\bd1.mdb;Persist Security Info=False"
conn1.Open 
 
conn2.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\bd2.mdb;Persist Security Info=False"
conn2.Open 
 
rst1.CursorLocation = adUseClient
rst2.CursorLocation = adUseClient
 
rst1.Open "SELECT * FROM tblClient" , conn1, adOpenStatic, adLockOptimistic
rst2.Open "SELECT * FROM tblClient" , conn2, adOpenStatic, adLockOptimistic
 
rst1.movefirst 
while not rst1.eof
 
	intCompteur = 0
	rst2.movefirst
	while not rst2.eof
		if (rst1.fields("Nom").value <> rst2.fields("Nom").value) then
			intCompteur = intCompteur +1
			if (rst2.recordcount = intCompteur) then
				rst2.AddNew
				rst2("Nom") = rst1("Nom")
				rst2("Code") = rst1("Code")
				rst2.Update
			else
				rst2.movenext
			end if
		else
			while not rst2.eof
				rst2.movenext
			wend	
		end if
	wend	
	rst1.movenext
wend
 
rst1.close
rst2.Close
conn1.Close
conn2.close
 
Const ForReading = 1, ForWriting = 2, ForAppend = 8
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\temp\Log.txt", ForWriting ,true)
f.write("Traitement terminé le ")
f.write(day(date))
f.write(" ")
f.write(monthname(month(date)))
f.write(" à ")
f.write(time)