CRYSTAL REPORTS COM FIREBIRD
Bom dia pessoal
Tenho um aplicação que gera relatórios com o Crystal Reports e banco SQL Server. Estou migrando para o Firebird e os relatórios deixaram de funcionar.
Estou usando o seguinte código para gerar os relatórios:
Using con As FbConnection = conectarFirebird()
con.Open()
Dim ds As New DataSet
Dim da As FbDataAdapter
Dim strCom As String = [Ô]SELECT * [Ô] & _
[Ô]FROM tbReceita [Ô] & _
[Ô]WHERE EXTRACT(MONTH FROM Data) = [ô][Ô] & frmPrincipal.txtMesRef.Text & [Ô][ô] [Ô] & _
[Ô]AND EXTRACT(YEAR FROM Data) = [ô][Ô] & frmPrincipal.txtAnoRef.Text & [Ô][ô] [Ô] & _
[Ô]ORDER BY DATA ASC[Ô]
Try
da = New FbDataAdapter(strCom, con)
da.Fill(ds, [Ô]tbReceita[Ô])
Dim rptDes As New cryDes
rptDes.Database.Tables(0).SetDataSource(ds)
crvRel.ReportSource = rptDes
crvRel.RefreshReport()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Using
Esse mesmo código funciona perfeitamente com SQL Server mas com o firebird da o seguinte 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.
Se puderem me ajudar desde já agradeço.
Tenho um aplicação que gera relatórios com o Crystal Reports e banco SQL Server. Estou migrando para o Firebird e os relatórios deixaram de funcionar.
Estou usando o seguinte código para gerar os relatórios:
Using con As FbConnection = conectarFirebird()
con.Open()
Dim ds As New DataSet
Dim da As FbDataAdapter
Dim strCom As String = [Ô]SELECT * [Ô] & _
[Ô]FROM tbReceita [Ô] & _
[Ô]WHERE EXTRACT(MONTH FROM Data) = [ô][Ô] & frmPrincipal.txtMesRef.Text & [Ô][ô] [Ô] & _
[Ô]AND EXTRACT(YEAR FROM Data) = [ô][Ô] & frmPrincipal.txtAnoRef.Text & [Ô][ô] [Ô] & _
[Ô]ORDER BY DATA ASC[Ô]
Try
da = New FbDataAdapter(strCom, con)
da.Fill(ds, [Ô]tbReceita[Ô])
Dim rptDes As New cryDes
rptDes.Database.Tables(0).SetDataSource(ds)
crvRel.ReportSource = rptDes
crvRel.RefreshReport()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Using
Esse mesmo código funciona perfeitamente com SQL Server mas com o firebird da o seguinte 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.
Se puderem me ajudar desde já agradeço.
O Problema não é com o Banco de dados.
crdb_adoplus.dll é uma dll do crystal mesmo.
O Crystal é sensacional, mas isso é uma chatice dele.
Qual o Framework ?
crdb_adoplus.dll é uma dll do crystal mesmo.
O Crystal é sensacional, mas isso é uma chatice dele.
Qual o Framework ?
Boa Tarde NILSONTRES
4.6.1
4.6.1
Da uma olhada se seu app.config, ve se tem essas mesmas linhas:
<startup useLegacyV2RuntimeActivationPolicy=[Ô]true[Ô]>
<supportedRuntime version=[Ô]v4.0[Ô] sku=[Ô].NETFramework,Version=v4.0[Ô]/></startup>
<entityFramework>
<defaultConnectionFactory type=[Ô]System.Data.Entity.Infrastructure.SqlConnectionFactory, EntityFramework[Ô]/>
</entityFramework>
Com destaque para essa: <startup useLegacyV2RuntimeActivationPolicy=[Ô]true[Ô]>
se na tag startup não tiver essa linha, coloca, compila, recomplia e testa.
Ignorando é claro essa versão do Framework que no exemplo acima esta 4.0
<startup useLegacyV2RuntimeActivationPolicy=[Ô]true[Ô]>
<supportedRuntime version=[Ô]v4.0[Ô] sku=[Ô].NETFramework,Version=v4.0[Ô]/></startup>
<entityFramework>
<defaultConnectionFactory type=[Ô]System.Data.Entity.Infrastructure.SqlConnectionFactory, EntityFramework[Ô]/>
</entityFramework>
Com destaque para essa: <startup useLegacyV2RuntimeActivationPolicy=[Ô]true[Ô]>
se na tag startup não tiver essa linha, coloca, compila, recomplia e testa.
Ignorando é claro essa versão do Framework que no exemplo acima esta 4.0
Boa noite, NILSONTRES
Na mosca...
Cara já estou te devendo uma cerveja, se vc beber é claro.
Se não, um refri.
Não é a primeira vez que me ajuda
Muito obrigado
Na mosca...
Cara já estou te devendo uma cerveja, se vc beber é claro.
Se não, um refri.
Não é a primeira vez que me ajuda
Muito obrigado
Tópico encerrado , respostas não são mais permitidas