Buenas, soy nuevo en la pagina, recien me estoy poniendo a programar, espero poder ayudar, y no ser una molestia muy grande :)
Les cuento, estoy creando una pagina con el programa Visual Web Developer 2008 Express Edition, y nesecito que los usuarios puedan conectarse a su cuenta. Las cuentas ya pude hacer que se creen satisfactoriamente y se guardan los datos en una bd.
El problema que tengo es con el log in, probe bastantes formas, busque en internet y sigo sin poder lograrlo.
les pongo el codigo que tengo actualmente (despues de muchas modificacciones):
Cita: Protected Sub btnconectar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnconectar.Click
Dim ruta As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Web\base de datos\bd.mdb;Persist Security Info=False"
Dim conexion As New OleDbConnection(ruta)
conexion.Open()
Dim usuario As New OleDbDataAdapter("SELECT Usuario FROM Usuarios WHERE Usuario = '" & txtusuario.Text & "' ", conexion)
Dim ds1 As New DataSet
usuario.Fill(ds1)
If ds1.ToString = txtusuario.Text Then
Dim contrasena As New OleDbDataAdapter("SELECT Contrasena FROM Usuarios WHERE Usuario = '" & txtusuario.Text & "' ", conexion)
Dim ds2 As New DataSet
contrasena.Fill(ds2)
If ds2.ToString = txtcontrasena.Text Then
Dim cookie As HttpCookie = New HttpCookie("UserLoggedIn")
cookie("Usuario") = txtusuario.Text
If chbrecordar.Checked = True Then
cookie.Expires = Now.AddYears(1)
End If
Response.Cookies.Add(cookie)
Response.Redirect("~/tucuenta_editarcuenta.aspx")
Else
Response.Write("La contraseña no corresponde al usuario ingresado")
End If
Else
Response.Write(usuario.ToString & "+ " & ds1.ToString & " + " & txtusuario.Text)
End If
End Sub
por ahora estube probando cambiando OleDbDataAdapter por OleDbCommand y varias cosas mas. El problema es que siempre devuelve false el primer if, por lo tanto siempre actua el response.write del final.
Espero haber sido claro, y que me puedan ayudar. muchas gracias. Tomas