connexion a une base de donnee mysql

Question

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 
-----------------------^

cs_ghuysmans99 · Answer

<%

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

mmahdouch24 · Answer

merci merci merci et encore merci vous venez de me sauver la vie merci mille fois

cs_ghuysmans99 · Answer

Réponse acceptée


_______________________________________________________________________


VB.NET
is good ...
VB6
is better

Connexion a une base de donnee mysql

3 réponses

Votre réponse

Discussions similaires