Segue abaixo o código:
Public Sub Select_Dados()
Try
ConectionBD.Open()
Dim codColab As String
codColab = CF.DataGrid_Dados.CurrentRow.Cells(0).Value
''PREPARA A CONSULTA NO BANCO GERA O REPORT PARA IMPRESSÃO
Dim SQLConsulta1 As String = ("SELECT * FROM Cadastro_Funcionario" & " WHERE idcolaborador = '" + _
codColab + _
"'" + " AND empresa = '" & WASINFOSystem.txtempresa.Text & "'")
''PREPARA A CONSULTA NO BANCO GERA O REPORT PARA IMPRESSÃO
Dim SQLConsulta2 As String = ("SELECT * FROM Cadastro_Funcionario" _
+ " WHERE idcolaborador = '" & CF.DataGrid_Dados.CurrentRow.Cells(0).Value & "'" _
+ " AND empresa = '" & WASINFOSystem.txtempresa.Text & "'")
Dim adapter As New SqlDataAdapter ''CRIA UM TABLEADAPTER CHAMADO ADAPTER
Dim command As SqlCommand ''CRIA UM SQLCOMMAND, CHAMADO COMMAND
Dim dset As New DataSet() ''CRIA UM DATASET CHAMADO DSET
command = New SqlCommand(SQLConsulta1, ConectionBD) ''PREPARA A PRIMEIRA QUERY PARA EXECUÇAO
adapter.SelectCommand = command ''EXECUTA A PRIMEIRA QUERY
adapter.Fill(dset, "cabecalho") ''MANDA A RESULTSET PARA O DATASET DSET COM O NOME "CABECALHO"
adapter.Dispose() ''LIBERTA O ADAPTER PARA O GC RECOLHER
command.Dispose() ''LIBERTA O COMMAND PARA O CG RECOLHER
ConectionBD.Close() ''FECHA A CONNECCAO
ConectionBD.Dispose() ''LIBERTA A CONNECAO POARA O GC RECOLHER
''--------------------------------------------------
''---------------Para carregar o report
Dim ds As New DataTable
Dim rpt As New Teste ''nome do crystal report
Dim datatbleUm As New DataTable
dset.Tables.Add(datatbleUm) ''adiciona uma tabla ao dataset
Dim datatbleDois As New DataTable
dset.Tables.Add(datatbleDois) ''adiciona outra tablea ao dataset
rpt.SetDataSource(ds) ''define como source do report o dataset (com as datatables)
CRP_Print_Form.CRP_Documents.ReportSource = rpt
CRP_Print_Form.CRP_Documents.RefreshReport()
CRP_Print_Form.Show()
Catch ex As Exception
''EM CASO DE ERRO, RETORNA A MENSAGEM
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "SELECT_CF_Report_Beneficios")
''FECHA A CONEXÃO COM O BANCO DE DADOS
ConectionBD.Close()
End Try
↧