Cita:
Private Sub CargaCombo()
Try
Dim cad As New MySqlConnection("Server=localhost;Database=control _pacientes; Uid=root; Pwd=;")
cad.Open()
Dim sql As String = "SELECT * FROM pacientesdiagnosticos WHERE id = '" & frmPacientes01.TextBox20.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("diagnostico")
If value IsNot DBNull.Value Then ComboDiagnosticos.Text = CStr(value)
End While
dr.Close()
Catch ex As MySqlException
Catch ex As Exception
End Try
End Sub
Try
Dim cad As New MySqlConnection("Server=localhost;Database=control _pacientes; Uid=root; Pwd=;")
cad.Open()
Dim sql As String = "SELECT * FROM pacientesdiagnosticos WHERE id = '" & frmPacientes01.TextBox20.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("diagnostico")
If value IsNot DBNull.Value Then ComboDiagnosticos.Text = CStr(value)
End While
dr.Close()
Catch ex As MySqlException
Catch ex As Exception
End Try
End Sub
de antemano muchas gracias
Saludos!!!
