Estou tentando gerar um relatorio no VS.NET usando crystal.
Só que na hora de montar a rotina para chamar o relatorio não estou conseguindo entender o que fazer, a situação é a seguinte. Na CamadaDeApresentacao adicionei o "CrystalReport1.rpt", na CamadaDeNegocios montei uma rotina que carrega um DataSet já com os dados, e em frmPrincipal onde esta o menu que irá acionar o relatorio coloquei um componente "CrystalReportViewer1".
Metodo que carrega dsetRel_geral...
Dim cmd_rel_geral As OleDbCommand = var_conectaDB.CreateCommand
Dim daRel_geral As New OleDbDataAdapter
Dim sqlrelgeral As String = "SELECT Codigo, Nome, Endereco, Fone FROM ClientesTB"
Conecta_Smadb() 'função para conectar
With cmd_rel_geral
.CommandText = sqlrelgeral
.CommandTimeout = 0
.CommandType = CommandType.Text
.Connection = var_conectaDB
End With
dsetRel_Geral.Clear()
Try
var_conectaDB.Open()
With daRel_geral
.SelectCommand = cmd_rel_geral
.Fill(dsetRel_Geral)
End With
var_conectaDB.Close()
daRel_geral.Dispose()
dsetRel_Geral.Dispose()
Finally
If var_conectaDB.State.Open Then
var_conectaDB.Close()
End If
End Try
End Sub
Evento click do item do menu
With Me
Try
objInicio.Relatorio_Geral() 'chamar metodo
...daqui em diante estou perdida...
Catch ex As Exception
MessageBox.Show("Erro no relatorio!", "Aviso!", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End With