Connexion a une base de donnee mysql

Signaler
Messages postés
2
Date d'inscription
dimanche 30 mars 2008
Statut
Membre
Dernière intervention
26 avril 2008
-
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
-
salut,
j'arrive pas a me connecter a ma base de donnee mysql
j'ai crée uj schema intitulé "admission" et ma table "administrateur" voici mon code :

<%
DSN_BASE = "DRIVER={MySQL 5.0.27-community-nt via TCP/IP};" & "SERVER=sql server;" & "PORT=3306;" & "DATABASE=admission;" & "USER=root;" & "PASSWORD=root;"

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open DSN_BASE

    log=Request.form("login")
    pass=Request.form("password")
    Set Rs = Server.CreateObject("ADODB.Recordset")
    SQL="SELECT password FROM administrateur where login='" & login & "'"
    RS.open SQL,Conn,adLockPessimistic
    set autRes=Conn.Execute[SQL]
    if autRES.EOF=false then
        if autRES("password") = password then
            Response.Redirect("menu.asp")
    else
            Response.Redirect("erreur.html")
    end if
Conn.Close
set Conn = nothing
%>

voici le message d'erreur qui s'affiche

Erreur de compilation Microsoft VBScripterror '800a0401'

Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 11

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^

Erreur de compilation Microsoft VBScripterror '800a0401'

Fin d'instruction attendue

/myweb/verification.asp, line 17

set autRes=Conn.Execute[SQL]

j'ai beau essayer ca marche pas
merci de m'aider
-----------------------^

3 réponses

Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
14
<%

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

'#################################################################################################################################

Dim DSN_BASE, Conn, login, password, rs
DSN_BASE = "Driver={MySQL ODBC 3.51 Driver};Server=sql server;Port=3306;Database=admission;User=root;Password=root;Option=3;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE

login=Request.form("login")
password=Request.form("password")
SQL="SELECT password FROM administrateur where login='" & Pure(login) & "' AND password='" & Pure(password) & "'"
Set rs = Conn.Execute(SQL)
if not(rs.EOF) then
 Response.Redirect("menu.asp")
 else
  Response.Redirect("erreur.html")
end if
rs.Close
Set rs = Nothing

Conn.Close
set Conn = nothing
%>
_______________________________________________________________________
VB.NETis good ...VB6is better
Messages postés
2
Date d'inscription
dimanche 30 mars 2008
Statut
Membre
Dernière intervention
26 avril 2008

merci merci merci et encore merci vous venez de me sauver la vie merci mille fois
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
14
Réponse acceptée


_______________________________________________________________________


VB.NET
is good ...
VB6
is better