none
Referência de objeto não definida para uma instância de um objeto RRS feed

  • Pergunta

  • Imports MySql.Data.MySqlClient

    Public Class Relatorio
        Dim adp As MySqlDataAdapter
        Private conn As New MySqlConnection("server='127.0.0.1';user id='root';database='microcredito'")
        Private Sub Relatorio_Load(sender As Object, e As EventArgs) Handles MyBase.Load

            'TODO: esta linha de código carrega dados na tabela 'microcreditoDataSet.cadastro_do_cliente'. Você pode movê-la ou removê-la conforme necessário.
            Me.cadastro_do_clienteTableAdapter.Fill(Me.microcreditoDataSet.cadastro_do_cliente)
            Me.ReportViewer1.RefreshReport()

        End Sub

        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

            Dim cmd As MySqlCommand
            Dim sql As String
            sql = "SELECT * FROM `cadastro_do_cliente` WHERE id='" & TextBox1.Text & "'"
            Try
                Me.microcreditoDataSet.Clear()
                conn.Open()
                cmd = New MySqlCommand(sql, conn)
                adp.SelectCommand = cmd
                adp.Fill(Me.microcreditoDataSet.cadastro_do_cliente)
                cmd.Dispose()
                adp.Dispose()
                conn.Close()

            Catch ex As Exception
                conn.Close()
                MessageBox.Show(ex.Message)
            End Try
            Me.ReportViewer1.RefreshReport()

        End Sub

    End Class
    domingo, 8 de março de 2020 01:56

Todas as Respostas

  • M4i70,

       O "MySqlDataAdapter" está referenciado em seu projeto?

       Em que linha está aparecendo a mensagem de erro?

    []'s,
    Fabio I.
    domingo, 8 de março de 2020 13:11