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()