Forum « impossible d'ecrire dans ma base »

Forum « Programmation ASP » (archives)

impossible d'ecrire dans ma base

Envoyé: 7 avril 2004, 14h39 par lulu64

Je souhaite recuperer le code de mon input pour l'ecrire dans ma base de donne acces mais impossible????

<%@ LANGUAGE="VBSCRIPT" %>
<HTML> <HEAD> <TITLE>Envoyer et recevoir le code barre a ma base de donnée de type Access </TITLE>
</HEAD> <BODY>
<%
'declaration de mes variables
dim maconnexion
dim moncode
flot = Request.Form("numerocodebarre")
'ouverture de ma connexion sans dsn à l'aide de ODBC
set maconnexion = Server.CreateObject("ADODB.Connection")
maconnexion.Open "Destockage"
'ouverture du recordset
set moncode = Server.CreateObject("ADODB.Recordset")
'ma requete sql de lecture
moncode.Open "SELECT * FROM codebarre;", maconnexion
%>
<h1><center>Liste du produit a destocker </center> </h1>
<P> <FONT FACE="Verdana" SIZE="40" COLOR="red">
<%
Do While not moncode.eof
Response.Write(moncode("cartonaenvoyer"))
Response.Write("<BR>")
moncode.MoveNext
loop
'recuperation de la valeur du formulaire puis ecriture dans la base de donnée
RequeteSQL = "Insert Into codebarre (cartonarecevoir) Values ( ' " & flot & " ' ) "
moncode.Open RequeteSQL,maconnection
'fermeture de ma connexion
moncode.Close
set moncode=nothing
maconnexion.Close
set maconnexion=nothing
%>
<P> </P>
<P> </P>
<P> </P>
<form method="GET" name="SaisieCode">

<INPUT type="text" name="numerocodebarre" size="20">

</FONT> </P> </BODY> </HTML>