Insert dans base Access qui ne se fait pas, mais sans erreur

Version imprimable

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 ...:oops::oops:

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

Voici ma partie Javascript qui contient les déclarations etc

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

22/01/2010, 16h12
Matthieu2000

fait un alert apres

Citation:

conn = new ActiveXObject("ADODB.Connection");

!
22/01/2010, 16h15
muppetshow

En fait je sais que le conn est bon parce que je lance la fonction InitScan avant celle qui me pose un problème.
J'ai donc bien la connexion vers ma base :cry:

Merci quand même.
:ccool:
22/01/2010, 16h23
roro06

Bonjour

1- la syntaxe de tes requetes me laisse perplexe ("insert into ... select ...").Pourquoi ne pas utiliser la syntawe "classique" :

Code:

INSERT INTO MATABLE (...) VALUES (...)

(je suis même surpris qu'access admette cette syntaxe.)

2- L'utilisation d'un recordset pour un insert ne s'impose pas. Utilises plutot un objet ADODB.command

3- Bien-sûr, les remarques habituelles : "on ne se connecte pas à une BdD en javascript, et gnagnagna..." (ce qui est faux) : Ton script peut marcher (sous IE only, activeX oblige ...) , mais ne peut être utilisé dans le cas d'une utilisation web.
22/01/2010, 17h21
muppetshow

Merci Roro06 (06 ... à priori on doit être voisin !)

En fait je suis meilleur (ou moins mauvais ;)) en Access qu'en sql. J'utilise donc le mode interactif de construction des requêtes dans Access et je copie ensuite le sql généré dans mon code.
OK pour utiliser une autre syntaxe mais si je l'ai fait comme ça, c'est que c'est ce qu'Access m'a généré en premier lieu.

Bien noté pour ADODB.command, je vais tester ça pour toutes les MAJ, Insert, DELETE etc

Sinon je suis au courant pour les problématique javascript. L'appli que je développe est une HTML application, donc exclusivement interne, et seulement IE est déployé dans la maison. Ca devrait donc aller d'un point de vue sécu
22/01/2010, 17h33
muppetshow

Roro06,
Aurais-tu un exemple du lancement simple d'une requête delete * from import par exemple.
Sur ce que je trouve sur le net pour le moment, j'ai l'impression qu'il faut quand même déclaré un recordset pour récupérer le résultat ?

Donc je n'ai peut-être pas compris ce que tu préconisais.

D'avance merci

M

re

Si c'est Access qui t'as généré la requête comme ça, considérons que je n'ai rien dit :oops: (une version plus récente que celles que j'ai l'habitude d'utiliser, probablement).

Pour récupérer le résultat (mais cela s'impose t-il pour un insert ?), un recordset s'impose effectivement.
Donc ton problème ne viens pas de là.

Par contre, ton test est erroné :

Code:

if (!rs)

Tu testes ici l'existence de l'objet rs... qui a été instancié juste avant ! Utilises plutôt (pas le chien) :

Code:

if (rs.EOF)

C'est quoi, Err ? Utilises plutôt un bloc try catch
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 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); var rs=new ActiveXObject("ADODB.Recordset"); try { rs.Open (sqlString , conn, adOpenUnspecified, adLockUnspecified); } catch(e) { alert ("Erreur ajout ligne " + sqlString); alert(e.description); } delete rs; rs=null;
Citation:

(06 ... à priori on doit être voisin !)

oui :ccool: (mes amitiés à Albert)

22/01/2010, 21h31
muppetshow

Merci, je vais tester ça la semaine prochaine.

Pour info ma version d'Access est la 2002.

Je ne manquerai pas de faire un coucou à Bébert :D mais je remets du bleu avec le blanc et le rouge pour rentrer à la maison le soir !!!

Merci beaucoup en tout cas

M
28/01/2010, 21h37
muppetshow

Merci, ça marche Nickel. J'en ai fait une fonction, comme ça ça doit ralentir un peu mais je n'ai pas besoin de déclarer 50 fois les variables.

Par contre, je n'ai pas tout compris sur le try catch et en particulier la manière de gérer le else et le passage des instructions s'il n'y a pas d'erreur.

Je vais fouiller sur internet pour voir !

Merci beaucoup.

M.