Buenas tardes, mi problema es el siguiente:
Tengo un form con un combo en el q m salen todos los usuarios de la empresa y un textbox donde hay que introducir el password del usuario seleccionado en el combo.
Lo tengo hecho de esta manera:
Try
con.ConnectionString = "server=mysql.casaametller.net;user id=ca_robot;password=h7dU1iKb;persist security info=True;database=casaametller_complements;port=3 307;use procedure bodies=False;"
con.Open()
Dim consulta As New MySqlCommand("SELECT Nom FROM ca_ab_venedors", con)
Dim da As New MySqlDataAdapter(consulta)
Dim ds As New DataSet
Dim dr As DataRow
da.Fill(ds, "ca_ab_venedors")
For Each dr In ds.Tables("ca_ab_venedors").Rows
CBusuaris.Items.Add(dr("Nom"))
Next
Catch ex As Exception
MsgBox("Error de Connexió")
End Try
con.Close()
End Sub
Private Sub BLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BLogin.Click
Dim consulta As New MySqlCommand("SELECT Nom,PIN FROM ca_ab_venedors WHERE Nom= '" & CBusuaris.Text & "' AND PIN= '" & tbpass.Text & "'", con)
If CBusuaris.Text = "Nom" And tbpass.Text = "PIN" Then
MsgBox("Benvingut" & CBusuaris.Text & "")
Else
MsgBox("Usuari o Contrasenya incorrectes")
End If
End Sub
Los usuarios y passwords estan en una tabla de MYSQl, algo me falta pero no sé el q..
Si alguien puede ayudarme , lo agradeceria mucho,
Saludos y gracias,
