Saludos a todos........... La situacion q tengo ahora es que trato que en base al numero que tengo en un textbox me cargue un combo tengo el siguiente codigo pero lo unico que he logrado hacer es q me cargue el primer registros y pues hay veces q puedo tener hasta 20 registros con ese numero.....
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
de antemano muchas gracias
Saludos!!!
