LOgin asp.net e mysql

[Teacher Nick 0]

Amigos o gódigo abaixo é de um login usando o OLEDB com aspnet para acessar o DB access

 

GOataria de saber como vai ficar o esquema de login com asp.net usando ODBC para acessar o mysql

 

Dim strConn as string ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:banco.mdb" 
Dim MySQL as string = "Select * from users Where Chave = '" & lguid.text & "' and Senha = '" & senha.text & "'"

Dim MyConn as New OleDbConnection(strConn)
Dim Cmd as New OleDbCommand(MySQL, MyConn)

MyConn.Open()
objDR=Cmd.ExecuteReader(system.data.CommandBehavior.CloseConnection)

if Not objDR.Read() then
   label1.text = "<h1><b>Chave / Senha Inválidas !</b></h1></p>"
   objDR.Close
   Myconn.Close 
else
   objDR.close
   Myconn.Open

   While objDR.Read()
	  strNome=objDR("NomeParticipante")
	  intCode=objDR("CodigoParticipante")
	  bprimeirologin=objDR("primeirologin") 
   End While

   Session("Codigo")=intCode
   Session("nome")=strNome

   if bprimeirologin then
		response.Redirect("http://localhost/f1/cadastra.aspx")
	else
		response.Redirect("http://localhost/f1/f1.htm")
   end if 

End If

 

Function CripSenha(strSenha As String) As String

'A mesma rotina encripta e descripta
Dim nLetra as string
dim cSenha as string
dim L as integer

strSenha = Trim(strSenha)
For L = 1 To Len(strSenha)
  nLetra = Asc(Mid(strSenha, L, 1))
  nLetra = Chr(Trim(Str(Val(nLetra) Xor (L * 2))))
  cSenha = cSenha & nLetra
Next
End Function

valew abraços

[quintelab 91]

Movido Plataforma.Net http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Plataforma.Net » Web Applications

 

Você só precisa mudar onde esta OleDb para Odbc e claro sua string de conexão.

Ex.:

Dim MyConn as New OleDbConnection(strConn)

Para

Dim MyConn as New ODbcConnection(strConn)

Abraços...

[Teacher Nick 0]

ok fiz mas da erro no

 

read()

[quintelab 91]

Qual erro?

[Teacher Nick 0]

uso o MVWD 2005 e ele grifa a parte que esta o

 

objDR=Cmd.ExecuteReader(system.data.CommandBehavior.CloseConnection)

[quintelab 91]

Mas ele grifa e mostra qual erro?

Você mudou o tipo da sua variavel para Odbc tbm?

 

Abraços...