Cargar Datagrid

[eduardo2009]

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

[gedarufi]

Prueba a cambiar el ? por @ en los parametros de tu consulta, de manera que te queda asi:

Código VB:

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
 

Saludos

[eduardo2009]

Tampoco quiso cambiando losparametro, pero ya funciono en la consulta en lugar de agregar *, poner ada uno de los campos de l atabla.....

saludos!!!