Ayuda con el LogIn a mi pagina

[Tomasgalli]

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):

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

[Geoorge]

Te comparto la siguiente funcion para que puedas buscar valores en una Base de datos.

Public Shared Function CCDLookUp(ByVal SQLSelect As String, ByVal SQLFrom As String, ByVal SQLWhere As String, ByVal Conn As SqlConnection) As String
Dim cmd As New SqlCommand
Dim val As String
cmd.CommandText = "SELECT " & SQLSelect & " FROM " & SQLFrom & " WHERE " & SQLWhere
cmd.Connection = Conn
val = cmd.ExecuteScalar()
Return val
End Function

Aqui un ejemplo para utilizarla:

CCDLookUp("PWDCOMPARE('" & .Password & "',ACC_PASSWORD)", "ACCESO", "ACC_USERNAME= '" & .UserName & "'", Conn) = 1

[Geoorge]

Ahh me olvide de avisar.. solo trae el primer registro de la primer columna!!!