insert asp dans base access

Marsh Posté le 18-05-2009 à 15:19:48

bonjour à tous
J'ai une base de données access
deux champs Utilisateur et Motdepasse

Comment insérer ces champs via le script ASP suivant

<html>
<head>
</head>
<body>
<table style="border-style:solid;border-width:2;border-color:black;"><tr><td colspan="2"><center><font size="2" face="verdana">
<tr><td><font size="2" face="verdana"><span style="height:25">Votre Utilisateur: <td><INPUT type="text" name="Utilisateur">
<tr><td><font size="2" face="verdana"><span style="height:25">Votre Mot de passe: <td><INPUT type="text" name1="MotdePasse">
<tr><td></td><td colspan="2">
<form method="post" >
<INPUT type="submit" name="nom" value="Envoyer">
</table>
<%
dim name
dim name1
set nom = Request.form("Utilisateur" )
set name1 = Request.form("MotdePasse" )

Set conn = Server.CreateObject("ADODB.Connection" )
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Inetpub\wwwroot\MaBase.mdb;"

sql = "INSERT INTO T_Utilisateurs (Utilisateur,MotdePasse) VALUES ('nom', 'name1')"

conn.Execute(SQL)

'rs.addnew
'RS("name" )=Request.form("Utilisateur" )
'RS("name1" )=Request.form("MotdePasse" )
'set rs=conn.execute(SQL)
'rs.update

'conn.execute.sql
'rs.close
'set rs = nothing
'set conn=nothing
%>
</body>
</html>

Actuellement sont insérer systèmatiquement dans la base name et name1 au lieu de l'utilisateur et le mot de passe

Merci pour vos réponses

Reply

Marsh Posté le 18-05-2009 à 15:19:48

Reply

Marsh Posté le 19-05-2009 à 14:43:32

Code :

<%
Set conn = Server.CreateObject("ADODB.Connection" )
connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\MaBase.mdb;"
conn.Open connstring
Set cmdDC = Server.CreateObject("ADODB.Command" )
cmdDC.ActiveConnection = conn
SQL="SELECT * FROM T_Utilisateurs"
Set rs = server.createobject("ADODB.Recordset" )
rs.Open SQL,Conn, 3, 3
rs.addnew
rs.Fields("name" ) = Request.Form("Utilisateur" )
rs.Fields("name1" ) = Request.Form("MotdePasse" )
rs.update
rs.close
set rs = nothing
set conn=nothing
%>

Message édité par Flyman30 le 19-05-2009 à 14:43:59

Reply

Marsh Posté le 17-04-2010 à 10:32:51

Ton code HTML est une vraie catastrophe. Je sais même pas comment ça pouvait être interprété par un navigateur.
Code non-testé mais ça devrait fonctionner.

<html>
<head><title>Ajout d'utilisateur</title></head>
<style>
TABLE {border-style: solid; border-width: 2px; border-color: black;}
TD {font-size: 12px; font-family: "verdana"; text-align: right;}
SPAN {height: 25px;}
</style>
<body>
<%
Dim Conn
Public Sub OpenDb()
Set Conn = Server.CreateObject("ADODB.Connection" )
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:InetpubwwwrootMaBase.mdb;"
End Sub

Public Function Pure(S)
Pure = Replace(S,"'","''" )
End Function

'///////////////////////////////////////////////////////////////////////////////////////////////////////

Public Sub InsertForm()
%><form method="post" action="adduser.asp?Action=go">
<table><col span=2>
<tr><td><span class="login">Nom d'utilisateur: </span></td><td><INPUT type="text" name="Username"></td></tr>
<tr><td><span class="login">Mot de passe: </span></td><td><INPUT type="text" name="Password"></td></tr>
<tr><td colspan=2><INPUT type="submit" name="nom" value="Envoyer"></td></tr>
</table>
</form><%
End Sub

'///////////////////////////////////////////////////////////////////////////////////////////////////////

Dim Action : Action = Request.Querystring("Action" )

If Action = "go" Then
OpenDb

Dim Username : Username = Request.Form("Username" )
Dim Password : Password = Request.Form("Password" )

Dim SQL : SQL = "INSERT INTO T_Utilisateurs (Utilisateur,MotdePasse) VALUES (@username, @password);"
Replace SQL, "@username", Pure(Username) : Replace SQL, "@password", Pure(Password)
Conn.Execute SQL

Conn.Close : Set Conn = Nothing
Else
InsertForm
End If
%>
</body>
</html>

Message édité par PigeonV le 17-04-2010 à 10:36:18

---------------
VB.NET is good ... VB6 is better !

Reply

insert asp dans base access

Sujets relatifs:

Leave a Replay