coucou tt le monde,
je n'arrive pas à faire s'enregistrer un nouvel utilisateur , voici mon code, si qq'un voit mes erreurs, ?
Merci bcp d'avance
<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.Oledb" %>
<script runat="server">
Sub btnInscription_Click(sender As Object, e As EventArgs)
'Instanciation d'un objet de type OleDBConnection
Dim objConnexion As New OleDBConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + server.MapPath("") + "\bd\sim.mdb")
'Instanciation d'un objet de type StringBuilder
Dim strSQL As New StringBuilder()
strSQL.Append("SELECT id FROM UTILISATEURS WHERE identifiant='")
strSQL.Append(Replace(txtIdentifiant.Text,"'","''"))
strSQL.Append("'")
'Déclaration d'un objet de type OleDbDataReader
Dim objDataReader As OleDbDataReader
'Instanciation d'un objet de type OleDbCommand
Dim objCommand as New OledbCommand(strSQL.ToString(), objConnexion)
Try
'Ouverture de la connexion
objConnexion.Open()
'Remplissage du DataReader
objDataReader = objCommand.ExecuteReader()
'Regarde si cet identifiant existe déjà
if objDataReader.Read() = True then
lblInfo.Text = "Cet identifiant existe déjà !"
objDataReader.Close()
Exit Sub
end if
objDataReader.Close()
'Suppression du contenu du StringBuilder strSQL
strSQL.length = 0
'Définition de la chaîne SQL à exécuter
strSQL.Append("INSERT INTO UTILISATEURS(nom,prenom,adresse,email,identifiant,motdepasse,seclevel) VALUES('")
strSQL.Append(Replace(txtNom.Text,"'","''"))
strSQL.Append("','")
strSQL.Append(Replace(txtPrenom.Text,"'","''"))
strSQL.Append("','")
strSQL.Append(Replace(txtAdresse.Text,"'","''"))
strSQL.Append("','")
strSQL.Append(Replace(txtEmail.Text,"'","''"))
strSQL.Append("','")
strSQL.Append(Replace(txtIdentifiant.Text,"'","''"))
strSQL.Append("','")
strSQL.Append(Replace(txtMotdepasse.Text,"'","''"))
strSQL.Append("',1)")
objCommand.CommandText = strSQL.ToString()
'Envoi de la commande
Dim intResult As Integer = objCommand.ExecuteNonQuery()
lblInfo.Text = "Utilisateur créé avec succès"
Catch MonException As Exception
lblInfo.Text = "Echec lors de la création de l'utilisateur ! " & MonException.ToString()
Finally
'Fermeture de la connexion
objConnexion.Close
End Try
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<p>
<font face="Verdana" size="4"><strong>Inscription d'un nouvel utilisateur</strong></font>
</p>
<strong><font face="Verdana" size="4">
<p>
<table style="WIDTH: 331px; HEIGHT: 246px" cellspacing="0" cellpadding="0" border="0">
<tbody>
<tr>
<td style="WIDTH: 100px">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">Nom :</font></td>
<td style="WIDTH: 200px" colspan="2">
<asp:TextBox id="txtNom" runat="server" Font-Names="Verdana" Font-Size="XX-Small" Width="160px"></asp:TextBox>
<asp:RequiredFieldValidator id="rfvNom" runat="server" Font-Names="Verdana" Font-Size="XX-Small" ErrorMessage="*" ControlToValidate="txtNom" Display="Dynamic"></asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td>
<font face="Verdana" size="1">Prénom :</font></td>
<td colspan="2">
<div align="left">
<asp:TextBox id="txtPrenom" runat="server" Font-Names="Verdana" Font-Size="XX-Small" Width="160px"></asp:TextBox>
<asp:RequiredFieldValidator id="rfvPrenom" runat="server" Font-Names="Verdana" Font-Size="XX-Small" ErrorMessage="*" ControlToValidate="txtPrenom" Display="Dynamic"></asp:RequiredFieldValidator>
</div>
</td>
</tr>
<tr>
<td>
<font size="1">Adresse :</font></td>
<td colspan="2">
<div align="left">
<asp:TextBox id="txtAdresse" runat="server" Font-Names="Verdana" Font-Size="XX-Small" Width="160px" TextMode="MultiLine" Height="50px"></asp:TextBox>
<asp:RequiredFieldValidator id="rfvAdresse" runat="server" Font-Names="Verdana" Font-Size="XX-Small" ErrorMessage="*" ControlToValidate="txtAdresse" Display="Dynamic"></asp:RequiredFieldValidator>
</div>
</td>
</tr>
<tr>
<td>
<font size="1">e-mail :</font></td>
<td colspan="2">
<asp:TextBox id="txtemail" runat="server" Font-Names="Verdana" Font-Size="XX-Small" Width="160px"></asp:TextBox>
<asp:RequiredFieldValidator id="rfvEmail" runat="server" Font-Names="Verdana" Font-Size="XX-Small" ErrorMessage="*" ControlToValidate="txtemail" Display="Dynamic"></asp:RequiredFieldValidator>
<asp:RegularExpressionValidator id="RegularExpressionValidator1" runat="server" Font-Names="Verdana" Font-Size="XX-Small" ErrorMessage="*" ControlToValidate="txtemail" Display="Dynamic" ValidationExpression="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"></asp:RegularExpressionValidator>
</td>
</tr>
<tr>
<td>
<font size="1">Identifiant : </font></td>
<td colspan="2">
<asp:TextBox id="txtIdentifiant" runat="server" Font-Names="Verdana" Font-Size="XX-Small" Width="160px"></asp:TextBox>
<asp:RequiredFieldValidator id="rfvIdentifiant" runat="server" Font-Names="Verdana" Font-Size="XX-Small" ErrorMessage="*" ControlToValidate="txtIdentifiant" Display="Dynamic"></asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td>
<font size="1">Mot de passe :</font></td>
<td colspan="2">
<asp:TextBox id="txtMotdepasse" runat="server" Font-Names="Verdana" Font-Size="XX-Small" Width="160px" TextMode="Password"></asp:TextBox>
<asp:RequiredFieldValidator id="rfvMotdepasse" runat="server" Font-Names="Verdana" Font-Size="XX-Small" ErrorMessage="*" ControlToValidate="txtMotdepasse" Display="Dynamic"></asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td>
<font size="1">Mot de passe (conf) :</font></td>
<td colspan="2">
<asp:TextBox id="txtMotdepasseconf" runat="server" Font-Names="Verdana" Font-Size="XX-Small" Width="160px" TextMode="Password"></asp:TextBox>
<asp:CompareValidator id="CompareValidator1" runat="server" Font-Names="Verdana" Font-Size="XX-Small" ErrorMessage="*" ControlToValidate="txtMotdepasseconf" Display="Dynamic" ControlToCompare="txtMotdepasse"></asp:CompareValidator>
</td>
</tr>
<tr>
<td>
<font size="1"></font></td>
<td colspan="2">
</td>
</tr>
<tr>
<td>
</td>
<td colspan="2">
<div align="left">
<asp:Button id="btnInscription" onclick="btnInscription_Click" runat="server" Font-Names="Verdana" Font-Size="XX-Small" Text="S'inscrire"></asp:Button>
</div>
</td>
</tr>
</tbody>
<!-- Insert content here -->
</table>
</p>
</font></strong>
</form>
<p>
<asp:Label id="lblInfo" runat="server" forecolor="Red" font-size="XX-Small" font-names="Verdana"></asp:Label>
</p>
<p>
<font face="Verdana" size="1"><a href="default.aspx">Retour vers la page d'accueil</a></font>
</p>
</body>
</html>