Que tal tengo el siguiente problema, tengo este codigo
Código:
Private Sub CargarData1()
Dim cad As String = "Database=Pacientes;Data Source=localhost;User Id=root;Password=utan"
Using cnn As New MySqlConnection(cad)
Dim query As String = "select * from pacientesdiagnosticos WHERE idpaciente = ?id"
Dim cmd As New MySqlCommand(query, cnn)
cmd.Parameters.AddWithValue("?id", CInt(TextBox1.Text))
Dim da As New MySqlDataAdapter(cmd)
Dim dt As New DataTable
Try
Dim Cmd1 As New MySqlCommandBuilder(da)
da.Fill(dt)
Diagnosticos.DataSource = dt
Catch ex As MySqlException
MsgBox(ex.Message)
End Try
End Using
End Sub
Pero solo me cargar los nombres de los campos, pero la informacion no me la carga....
Saludos y de antemano gracias por la ayuda
