|
ASP / Ajouter
des enregistrements dans une table d'une bases de données Access
Nous
allons créer un script qui permet d'ajouter des enregistrements dans une
table d'une bases de données Access
Pour cela, il nous faut un formulaire nommé formajout.asp
Voici le Code HTML :
<HTML>
<HEAD>
<TITLE>Formulaire</TITLE>
</HEAD>
<BODY>
<FORM ACTION="recup.asp" Method="GET">
<TABLE BORDER="0">
<TR>
<TD>Nom :</TD><TD><INPUT TYPE="TEXT" NAME="Nom"></TD>
</TR>
<TR>
<TD>Prénom :</TD><TD><INPUT TYPE="TEXT" NAME="Prenom"></TD>
</TR>
<TR>
<TD>Age :</TD><TD><INPUT TYPE="TEXT" NAME="Age"></TD>
</TR>
<TR>
<TD>Ville :</TD><TD><INPUT TYPE="TEXT" NAME="Ville"></TD>
</TR>
<TR>
<TD>Tel :</TD><TD><INPUT TYPE="TEXT" NAME="Tel"></TD>
</TR>
<TR>
<TD COLSPAN="2"><INPUT TYPE="SUBMIT" VALUE="Ajouter"></TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
Maintenant, nous allons créer la page ajout.asp
<%@language="VbScript"%>
<%
Nom=Request.QueryString("Nom")
Prenom=Request.QueryString("Prenom")
Age=Request.QueryString("Age")
Ville=Request.QueryString("Ville")
Tel=Request.QueryString("Tel")
'Recuperation des valeurs des champs dans des variables
If Nom = "" or Prenom = "" or Age = "" or Ville = "" or Tel = "" Then
'Test pour verifier que les champs ne sont pas vides car si il sont vides
affichage d'un message d'erreur sinon ajout des valeurs es champ dans
la table liste
Msg="Veuillez remplir corecctement le formulaire"
'Creation de la variable Msg et affectation de la chaine de caracteres
Veuillez remplir corecctement le formulaire
Else
'Creation de la variable SQL et affectation de la requete SQL
SQL = "Insert into Liste (Nom,Prenom,Age,Ville,Tel) VALUES ('" & Nom &
"','" & Prenom & "','" & Age & "','" & Ville & "','" & Tel & "')"
Set CB=Server.CreateObject("ADODB.Connection")
CB.open "Ami"
CB.execute(SQL)
CB.close
'Conection et execution de la requete
Msg="Les informations on étés enregistrées"
'Creation de la variable Msg et affectation de la chaine de caracteres
Les informations on étés enregistrées
EN If
%>
<HTML>
<HEAD>
<TITLE>Formulaire</TITLE>
</HEAD>
<BODY>
<%=Msg%>
</BODY>
</HTML>
|
