Trabajo en WinForms y asi m conecto :
Código vb:
Ver originalTry
Dim MyConnect As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012")
Dim query, login, password As String
Dim reader As MySqlDataReader
' Creamos el select de la base de datos, trayendo los datos con DOS parametros --> Ususrio y password
query = "SELECT nombre, login, password FROM user where login = @username and password = @password "
Dim cmd As New MySqlCommand(query, MyConnect)
MyConnect.Open()
' Pasamos los parametros a la consulta, tomados de lo que este en los textboxes
cmd.Parameters.Add("@username", MySqlDbType.VarChar, 50).Value = txtusuario.Text
cmd.Parameters.Add("@password", MySqlDbType.VarChar, 50).Value = txtpswd.Text
reader = cmd.ExecuteReader()
' Si encuentra algo, lo asignamos a las variables NmUser y TPUser
If reader.Read Then
login = reader.GetString(0).ToUpper
password = reader.GetString(1).ToUpper
MsgBox(" Has Ingresado al Sistema ")
txtpswd.Clear()
txtusuario.Clear()
Me.Hide()
Form2.ShowDialog()
Else
MsgBox("Usuario o password incorrecto, Intente nuevamente..", 16, "Ingreso al Sistema")
txtpswd.Clear()
End If
Exit Sub
reader.Close()
MyConnect.Close()
Catch ex As MySqlException
MsgBox("ERROR." & ex.Message)
End Try
Eso es sii agregarle lo del label..