Cita:
Iniciado por pipeman2009
Hola amigo trate de hacer lo que tu me dijiste
lo puse asi en el boton ingresar que es el que da la accion para ingresar
Código:
If (("SELECT count(*) FROM Usuarios WHERE userUsuario ='" & usuario & "' AND userContraseña ='" & contraseña & "' AND userEmpresa ='" & empresa & "'") > 0) Then
MsgBox("bien")
Else
MsgBox("mal")
End If
pero me tira el siguiente error:
la conversion de la cadena "SELECT count(*) FROM Usuarios WH" en el tipo 'Double' no es valida.
no entiendo a que se refiere...por favor me podrías ayudar con esto
Hola amigo bueno queria decir que ya arregle el problema ..use esta solucion
Código:
Dim aceptado As Boolean = False
usuario = Me.TxtUsuario.Text.Trim()
contraseña = Me.TxtContraseña.Text.Trim()
empresa = Me.ddlEmpresa.Text.Trim()
'Dim datasource = "Data Source=.\SQLExpress;Initial Catalog=BD;Integrated Security=True"
Dim myConn As New SqlConnection(conexion)
Dim consulta As New SqlCommand("select * from Usuarios WHERE userUsuario ='" & usuario & "' AND userContraseña ='" & contraseña & "' AND userEmpresa ='" & empresa & "'", myConn)
myConn.Open()
Dim leerbd As SqlDataReader = consulta.ExecuteReader()
If leerbd.Read <> False Then
aceptado = True
Else
aceptado = False
End If
If aceptado = True Then
lblResult.Text = "Entra"
Else
lblResult.Text = "no entra"
End If
myConn.Close()
en todo caso muchas gracias