CRYSTAL REPORTS - SELECT VIA CODIGO
Boa tarde galera!!
estou em uma novo missão, agora é com o crystal reports no vs 2010
eu gostaria de saber como posso gerar um relatório no crystal com uma
select via código, se alguem poder me ajudar agraço.
estou em uma novo missão, agora é com o crystal reports no vs 2010
eu gostaria de saber como posso gerar um relatório no crystal com uma
select via código, se alguem poder me ajudar agraço.
Boa tarde,
Abaixo um link de um exemplo que postei aqui no fórum.
http://vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=9146
Abaixo um link de um exemplo que postei aqui no fórum.
http://vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=9146
Então cara, eu fiz deste jeito
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ds As New DataSet
Dim cnString As String = [Ô]Minha string[Ô]
Dim sql As String
Dim da1, da2 As SqlDataAdapter
Dim cnn As SqlConnection = New SqlConnection(cnString)
cnn.Open()
sql = [Ô]select * from [Cadastro de Produtos][Ô]
da1 = New SqlDataAdapter(sql, cnn)
[ô]Dim ds1 As New SqlDataAdapter(sql, cnn)
ds = New DataSet
da1.Fill(ds, [Ô][Cadastro de Produtos][Ô])
[ô]ds1.Fill(ds)
sql = [Ô]select * from Categorias[Ô]
da2 = New SqlDataAdapter(sql, cnn)
da2.Fill(ds, [Ô]Categorias[Ô])
[ô]MsgBox(ds.Tables(0).Rows.Count)
Dim objCrystal As New CrystalReport1
objCrystal.SetDataSource(ds)
CrystalReportViewer1.ReportSource = objCrystal
[ô]CrystalReportViewer1.Refresh()
cnn.Close()
da1 = Nothing
da2 = Nothing
ds = Nothing
End Sub
mas agora esta me retornando este erro
Não foi possÃvel carregar arquivo ou assembly [ô]file:///C:\Program Files (x86)\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0\Common\SAP BusinessObjects Enterprise XI 4.0\win32_x86\dotnet1\crdb_adoplus.dll[ô] ou uma de suas dependências. O sistema não pode encontrar o arquivo especificado.
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ds As New DataSet
Dim cnString As String = [Ô]Minha string[Ô]
Dim sql As String
Dim da1, da2 As SqlDataAdapter
Dim cnn As SqlConnection = New SqlConnection(cnString)
cnn.Open()
sql = [Ô]select * from [Cadastro de Produtos][Ô]
da1 = New SqlDataAdapter(sql, cnn)
[ô]Dim ds1 As New SqlDataAdapter(sql, cnn)
ds = New DataSet
da1.Fill(ds, [Ô][Cadastro de Produtos][Ô])
[ô]ds1.Fill(ds)
sql = [Ô]select * from Categorias[Ô]
da2 = New SqlDataAdapter(sql, cnn)
da2.Fill(ds, [Ô]Categorias[Ô])
[ô]MsgBox(ds.Tables(0).Rows.Count)
Dim objCrystal As New CrystalReport1
objCrystal.SetDataSource(ds)
CrystalReportViewer1.ReportSource = objCrystal
[ô]CrystalReportViewer1.Refresh()
cnn.Close()
da1 = Nothing
da2 = Nothing
ds = Nothing
End Sub
mas agora esta me retornando este erro
Não foi possÃvel carregar arquivo ou assembly [ô]file:///C:\Program Files (x86)\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0\Common\SAP BusinessObjects Enterprise XI 4.0\win32_x86\dotnet1\crdb_adoplus.dll[ô] ou uma de suas dependências. O sistema não pode encontrar o arquivo especificado.
é necessário um valor na configuração do app.config, coloque isso no seu app.config que dá certo.
<configuration>
<startup useLegacyV2RuntimeActivationPolicy=[Ô]true[Ô]>[Ô]<supportedRuntime version=[Ô]v4.0[Ô] sku=[Ô].NETFramework,Version=v4.0[Ô]/>
</startup>
</configuration>
Vlw cara, era isso mesmo!!!
Tópico encerrado , respostas não são mais permitidas