Cargar Combo en base a texbox

[eduardo2009]

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.....

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!!!

[jaullo]

Me parece que con esta linea tratas de cargarlo

Código ASP:

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

Si es asi, creo que esta mal, pues solo cargas uno, deberias tener algo
como:

Código ASP:

combodiagnostico.items.add=cstr(value)
 

Saludos,

[eduardo2009]

ya modifique la linea que me comentas y me marcara error

"no se ha especificado ningun argumento para el parametro 'item' de 'public function cargacombo(item as object) as integer


saluods y gracias por la ayuda

[eduardo2009]

Ok por si a alguien le sirve al final lo cargue de esta manera

Private Sub cargacombo()
Try
Dim cad As String = "Server=localhost;" & _
"Database=control_pacientes;" & _
"Uid=root;" & _
"Pwd=;"
Dim query As String = "SELECT idpaciente, diagnostico FROM pacientesdiagnosticos WHERE idpaciente = '" & frmPacientes01.TextBox20.Text & "'"
Dim cnn As New MySqlConnection(cad)
Dim da As New MySqlDataAdapter(query, cnn)
Dim dt As New DataTable
da.Fill(dt)
ComboDiagnosticos.DataSource = dt
ComboDiagnosticos.DisplayMember = "diagnostico"
Catch ex As MySqlException


Catch ex As Exception
MessageBox.Show(ex.Message.ToString, _
"error", MessageBoxButtons.OK, _
MessageBoxIcon.Error)
Finally

End Try
End Sub