Discussion :

[maxos75]

Bonjour g un problème

g une fonction enregistrer()
laquelle renvoi "ok" si l'enregistrement s'est fait
ou le message d'erreur si le sérial materiel à enregistrer est déjà renseigner

Pour afficher, je fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
<%info=enregistrer()%>
 
<%If info= "ok" Then%>
    <td>ok tout s'est bien passé</td>
<%else%>
    <td><%=info%></td>
<%End If%>

or j'ai une erreur a chaque fois il enregistre le matériel mais m'affiche le message comme quoi le serial est renseigné.


Est ce qu'il est possible qu'a chaque fois que j'appelle info ça m'appelle la fonction plutot que la réponse enregistrée dans la variable? Si oui comment faire ???

[Pymm]

Peut-on voir ta fonction enregistrer ?

[maxos75]

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
 
	function enregistrer(num)
		serial=Cstr(num)
		sql_verif="SELECT * FROM CARTES where SERIAL LIKE '" & serial & "' "
		Set num_verif=connexion.Execute(sql_verif)
		If num_verif.eof then
			num_existe=1
		end if
		If num_existe=1 then
			sql_add="INSERT INTO CARTES (Serial, Etat, Localisation) VALUES ('" & serial & "', 'Vierge', 1)"
			add=connexion.Execute(sql_add)
			Set add= Nothing
			enregistrer="ok"
		else
			enregistrer="probleme"
		end if
		Set num_existe=nothing
		Set num_verif = nothing
	end function

voilà voilà

[Pymm]

remplace add par un autre nom de variable car il me semble que c'est un mot réservé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
function enregistrer(num)      
      sql_verif="SELECT * FROM CARTES where SERIAL LIKE '" & num & "' "
      Set num_verif=connexion.Execute(sql_verif)
      If num_verif.eof then              
         sql_add="INSERT INTO CARTES (Serial, Etat, Localisation) VALUES ('" & serial & "', 'Vierge', 1)"
         ajout=connexion.Execute(sql_add)
         Set ajout= Nothing
         enregistrer="ok"
      else
         enregistrer="probleme"
      end if
      Set num_verif = nothing
   end function

J'ai enlevé les lignes qui me paraissaient pas utile, ça restreint le champ d'investigation

[pc75]

Bonjour,

Ta fonction enregistrer(num) reçoit un paramètre, mais je ne vois pas ce paramètre dans l'appel de la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
<%info=enregistrer()%>