Ver Mensaje Individual
  #10 (permalink)  
Antiguo 06/07/2012, 13:48
DavidNovato
 
Fecha de Ingreso: junio-2012
Ubicación: Caracas-Venezuela
Mensajes: 114
Antigüedad: 11 años, 10 meses
Puntos: 0
Respuesta: Problema para vincular label y login en visual basic net con base de datos

Trabajo en WinForms y asi m conecto :
Código vb:
Ver original
  1. Try
  2.             Dim MyConnect As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012")
  3.             Dim query, login, password As String
  4.             Dim reader As MySqlDataReader
  5.  
  6.             ' Creamos el select de la base de datos, trayendo los datos con DOS parametros --> Ususrio y password
  7.            query = "SELECT  nombre, login, password FROM user where login = @username and password = @password "
  8.             Dim cmd As New MySqlCommand(query, MyConnect)
  9.  
  10.             MyConnect.Open()
  11.             ' Pasamos los parametros a la consulta, tomados de lo que este en los textboxes
  12.            cmd.Parameters.Add("@username", MySqlDbType.VarChar, 50).Value = txtusuario.Text
  13.             cmd.Parameters.Add("@password", MySqlDbType.VarChar, 50).Value = txtpswd.Text
  14.  
  15.             reader = cmd.ExecuteReader()
  16.             ' Si encuentra algo, lo asignamos a las variables NmUser y TPUser
  17.  
  18.             If reader.Read Then
  19.                 login = reader.GetString(0).ToUpper
  20.                 password = reader.GetString(1).ToUpper
  21.                 MsgBox(" Has Ingresado al Sistema ")
  22.                 txtpswd.Clear()
  23.                 txtusuario.Clear()
  24.                 Me.Hide()
  25.                 Form2.ShowDialog()
  26.             Else
  27.                 MsgBox("Usuario o password incorrecto, Intente nuevamente..", 16, "Ingreso al Sistema")
  28.                 txtpswd.Clear()
  29.  
  30.             End If
  31.  
  32.  
  33.             Exit Sub
  34.  
  35.  
  36.             reader.Close()
  37.             MyConnect.Close()
  38.  
  39.         Catch ex As MySqlException
  40.             MsgBox("ERROR." & ex.Message)
  41.  
  42.         End Try

Eso es sii agregarle lo del label..
__________________
David`Novato