Bonjour,
Je sèche depuis 2 jours sur ce code qui devrait ajouter un enregistrement dans une base access, mais qui ne le fait pas, sans me renvoyer d'erreur. Après avoir essayer plusieurs formules, je n'y arrive toujours pas. Si vous avez une idée ...


C'est la fonction AjouteLigne qui me pose un problème. Tout le reste fonctionne bien, mais celle là

Voici ma partie Javascript qui contient les déclarations etc

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
 
	<script language="JavaScript">
 
		window.resizeTo(1024,768);
 
		function showFilled(Value) 
		{ 	return (Value > 9) ? "" + Value : "0" + Value;
		}
 
		// setInterval ( "doSomething()", 5000 );
 
		var adOpenUnspecified = -1; adOpenForwardOnly = 0; adOpenKeyset = 1; adOpenDynamic = 2; adOpenStatic = 3;
		var adLockUnspecified = -1; adLockReadOnly = 1; adLockPessimistic = 2; adLockOptimistic = 3; adLockBatchOptimistic = 4; 
 
		var dat = new Date();
		var tabJours = new Array ("dimanche", "lundi", "mardi","mercredi", "jeudi", "vendredi", "samedi");
		var tabMois = new Array("janvier","février","mars","avril","mai","juin","juillet","août","septembre","octobre","novembre","décembre");
 
		var conn = new ActiveXObject("ADODB.Connection");
		conn.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=inventaire.mdb;Persist Security Info=False");
		if (conn) 
		{	var rs = new ActiveXObject("ADODB.Recordset");	
			var sqlString = "DELETE * FROM import_AD;";
			rs.Open(sqlString , conn, adOpenUnspecified, adLockUnspecified);
			if (!rs) 
			{	alert ("Erreur lors de l'initialisation de la table d'import."); }
		}
		else { alert ("Impossible de se connecter à la base pour effectuer les mises à jour"); }
 
		function AjouteMachine (nomClass, nomMachine)
		{	var sqlString = "INSERT INTO import_AD ( Type, Machines ) SELECT \"" + nomClass + "\" AS Expr1, \"" + nomMachine + "\" AS Expr2;"
			rs.Open(sqlString , conn, adOpenUnspecified, adLockUnspecified);
			if (!rs) 
			{	alert ("Erreur lors de l'ajout de la machine " + nomMachine); }
		}
 
		function AjouteLigne (NumScan, Zone, TypeZone, Valeur1, Valeur2)
		{	var sqlString = "INSERT INTO import ( IDScan, Type, P1, P2, P3 ) SELECT " + NumScan + " AS Expr1, \"" + TypeZone + "\" AS Expr2, \"" + Zone + "\" AS Expr3 ";
			sqlString = sqlString + ", \"" + Valeur1 + "\" AS Expr4, \"" + Valeur2 + "\" AS Expr5;";
			// alert (sqlString);
			rs.Open (sqlString , conn, adOpenUnspecified, adLockUnspecified);
			alert (Err.Number);
			if (!rs) 
			{	alert ("Erreur ajout ligne " + sqlString); 
			}
		}
 
		function InitScan (Machine)
		{	sqlString = "INSERT INTO Scans (Machine) SELECT \"" + Machine + "\" AS Expr1;";
			rs.Open(sqlString , conn, adOpenUnspecified, adLockUnspecified);
			if (rs) 
			{	sqlString = sqlString = "SELECT TOP 1 IDScan FROM Scans WHERE (((Scans.Machine)=\"" + Machine + "\")) ORDER BY Scans.IDScan DESC;";
				rs.Open(sqlString , conn, adOpenUnspecified, adLockUnspecified);
				if (rs)
				{	return rs.fields("IDScan").Value;
				}
				else
				{	alert ("Erreur lors de la récupération de l'ID du scan " + Machine); 
					return 0;
				}
			}
			else
			{	alert ("Erreur lors de l'initialisation du scan " + Machine); 
				return 0;
			}
		}
 
 
	</script>