21/07/2010, 12:07
|
 | | | Fecha de Ingreso: agosto-2009
Mensajes: 110
Antigüedad: 14 años, 8 meses Puntos: 0 | |
| Respuesta: Cargar Combo en base a texbox
Ok por si a alguien le sirve al final lo cargue de esta manera Cita: 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 |