Ayuda para seleccionar usuario por un combobox
Publicado por Oswal (14 intervenciones) el 05/04/2019 00:58:57
tengo una duda grande muchachos...
pues quiero hacer una verificacion de usuario que entre con su registro de contraseña verda yo lo hago por clase que es esta:
verdad.. pero no se como hago para pasar esa clase a mi boton siguiente que me lo verifique cuando le de al boton siguiente.
este es el codigo del boton siguiente
como pueden ver esta inclompleto. pero si me puede ayudar .
se selecciona el usuario por un combobox dependiendo de ese usuario valida la contraseña como esta la clase
pues quiero hacer una verificacion de usuario que entre con su registro de contraseña verda yo lo hago por clase que es esta:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function Busquedacontra(ByVal idmedico As String, ByVal contraseña As String) As Boolean
Try
Dim daConsulta As New SqlDataAdapter("SELECT contraseña, nombre from medicos where ", Global.AdministradorUMS.My.Settings.Otra)
Dim consultacontra As New DataTable
daConsulta.Fill(consultacontra)
Dim contrasenaBD As String = consultacontra.Rows(0)(0).ToString()
If (contrasenaBD = contraseña) Then
Return True
Else
Return False
End If
Catch ex As Exception
Return False
End Try
End Function
verdad.. pero no se como hago para pasar esa clase a mi boton siguiente que me lo verifique cuando le de al boton siguiente.
este es el codigo del boton siguiente
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub btnSiguiente_Click(sender As Object, e As EventArgs) Handles btnSiguiente.Click
If Me.cmbMedico.SelectedIndex < 0 Then
MsgBox("Seleccione Medico!!", MsgBoxStyle.Critical, "Validar")
Return
End If
If String.IsNullOrEmpty(Tbcontraseña.Text) Then
MsgBox("Debe Ingresar la Contraseña Para Poder Ingresar", MsgBoxStyle.Critical, "Contraseña")
Else
Dim consulcontraseña As GestorBusquedaDoctor = New GestorBusquedaDoctor()
If Convert.ToString(consulcontraseña.Busquedacontra)(contraseña:=cmbMedico.SelectedValue) Then
MessageBox.Show("A Ingresado al Sistema")
Else
Tbcontraseña.Clear()
MessageBox.Show("Contraseña Incorrecta... Colocar la Contraseña correcta")
Tbcontraseña.Focus()
End If
rwMedico = dtMedicos.Rows(Me.cmbMedico.SelectedIndex)
End If
End Sub
como pueden ver esta inclompleto. pero si me puede ayudar .
se selecciona el usuario por un combobox dependiendo de ese usuario valida la contraseña como esta la clase
Valora esta pregunta
0
