Discussion :

[CyberMen]

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!

[Invité]

Bonjour

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

Philippe

[CyberMen]

Bonjour!

C'était une bd ACCESS

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

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

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

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
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)

[CyberMen]

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

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

Voici ma dernière version:

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
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)

[CyberMen]

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

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
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)

[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