Error en consulta

[eduardo2009]

que tal como estan aqui con una duda tengo el siguiente codigo q utilizo para enlazar los campos de una tabla a unos texbox

Código:

 Dim cad As New MySqlConnection("Server=localhost;Database=control_pacientes; Uid=root; Pwd=;")
        Dim sql As String = "SELECT * FROM Pacientes WHERE id1 =" & comboid.Text & ""
        Dim cmd As New MySqlCommand(sql, cad)
        cad.Open()
        Dim dr As MySqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)------- aqui marca el error
        While dr.Read
            Dim value As Object = dr.Item("nombre")

            If value IsNot DBNull.Value Then TextBox1.Text = CStr(value)

            value = dr.Item("apellidos")

            If value IsNot DBNull.Value Then TextBox2.Text = CStr(value)

        End While
        dr.Close()

el error q me marca dice lo siguiente

"no se controlo mysqlexception"


de antemano muchas gracias por la ayuda

Saludos

[gnzsoloyo]

Por un lado: Antes de crear el MysqlCommand, la conexión debe estar abierta.
Lo otro es simple: Es un Try/Catch:

Código vb.net:

Try
   Dim cad As New MySqlConnection("Server=localhost;Database=control_pacientes; Uid=root; Pwd=;")
   cad.Open()
   Dim sql As String = "SELECT * FROM Pacientes WHERE id1 = '" & comboid.Text & "'"
   Dim cmd As New MySqlCommand(sql, cad)
   Dim dr As MySqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection) 
   While dr.Read
      Dim value As Object = dr.Item("nombre")
      If value IsNot DBNull.Value Then TextBox1.Text = CStr(value)
      value = dr.Item("apellidos")
      If value IsNot DBNull.Value Then TextBox2.Text = CStr(value)
   End While
   dr.Close()
Catch ex as MyqlException
   ' Aqui va lo que debes hace en caso de error de MySQL
   ' Mi sugerencia es volcarlo en un log en un archivo de texto.
Catch ex as Exception
   ' Aqui va lo que debes hace en caso de error no MySQL
   ' Mi sugerencia es volcarlo en un log en un archivo de texto.
End Try
 

[eduardo2009]

Muchas gracias gnzsoloyo, efectivamente agregue el codigo como me lo hiciste saber y ya no me marco error, el problema es q no me muestra nada de mi informacion en lo textbox......... alguna sugerencia sobre lo q este haciendo mal..........


de antemano gracias

Saludos!!!

[NProgram]

Fijate en las comillas simple y las dobles.

eduardo2009 --- Dim sql As String = "SELECT * FROM Pacientes WHERE id1 =" & comboid.Text & ""

gnzsoloyo --- Dim sql As String = "SELECT * FROM Pacientes WHERE id1 = ' " & comboid.Text & " ' "

[eduardo2009]

Gracias Nprogram ya puede cargar mis tetxbox saludos!!!