1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
function add_porte(num)
serial=Cstr(num)
sql_verif="SELECT * FROM PORTE 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 and serial<>"" then
sql_add="INSERT INTO PORTE(Serial, Etat, Localisation) VALUES ('" & serial & "', 'Vierge', 1)"
ajout=connexion.Execute(sql_add)
Set ajout= Nothing
add_porte="ok"
else
If serial="" Then
add_porte="Vous devez renseigner le serial pour enregistrer une porte !"
else
add_porte="Le serial renseigné existe déjà !"
End If
End if
Set num_existe=nothing
Set num_verif = nothing
End function |
Partager