hermanos tengo Problemas con mi login este es el codigo del boton aceptar me dice que la contraseña esta mal escrita pero es la misma de la base de datos no se qie problema sea ya que el user se llena automaticamente desde un combo box
Private Sub btnloginaceptar_Click(sender As Object, e As EventArgs) Handles btnloginaceptar.Click
Dim ds As New DataSet
ds = referencia.ds_consulta("select * from tbl_usuario where contrasena")
If txtPassword.Text = "" Then
MessageBox.Show("Introduce La Contraseña " + Cmbuser.Text + " No Dejes Espacios En Blanco")
Else
If txtPassword.Text= "contrasena".ToString Then
Me.txtPassword.Focus()
MessageBox.Show("Bienvenido Usuario " + Cmbuser.Text)
Me.Hide()
MDIPRINCIPAL.Visible = True
Else
MessageBox.Show("la Contraseña Es Incorrecta")
Me.txtPassword.SelectAll() : Me.txtPassword.Focus()
End If
End If
End Sub
Private Sub btnloginaceptar_Click(sender As Object, e As EventArgs) Handles btnloginaceptar.Click
Dim ds As New DataSet
ds = referencia.ds_consulta("select * from tbl_usuario where contrasena")
If txtPassword.Text = "" Then
MessageBox.Show("Introduce La Contraseña " + Cmbuser.Text + " No Dejes Espacios En Blanco")
Else
If txtPassword.Text= "contrasena".ToString Then
Me.txtPassword.Focus()
MessageBox.Show("Bienvenido Usuario " + Cmbuser.Text)
Me.Hide()
MDIPRINCIPAL.Visible = True
Else
MessageBox.Show("la Contraseña Es Incorrecta")
Me.txtPassword.SelectAll() : Me.txtPassword.Focus()
End If
End If
End Sub