Srs.
Estou usando o seguinte código para exportar um rpt para pdf, conectando-se a um banco Oracle:
Dim RELAT As New CRAXDRT.Application
Dim RELATORIO As CRAXDRT.Report
Dim CONEXAO As CRAXDRT.Database
On Error GoTo TrataErro
Set RELATORIO = RELAT.OpenReport(CAMINHO & ARQUIVORPT, 0)
Set CONEXAO = RELATORIO.Database
CONEXAO.LogOnServer "P2SORA7.DLL", SERVIDOR, "", USER, PASS
With RELATORIO
.RecordSelectionFormula = FILTRO
.ExportOptions.DiskFileName = CAMINHO & ARQUIVOPDF
.ExportOptions.DestinationType = crEDTDiskFile
.ExportOptions.FormatType = crEFTPortableDocFormat
.Export False
End With
'Fechando o Banco
CONEXAO.LogOffServer "P2SORA7.DLL", SERVIDOR, "", USER, PASS
TrataErro:
If Err.Number <> 0 Then
MsgBox Err.Number & " -> " & Err.Description
End If
Tudo ocorre bem até chegar na linha do fechamento do banco. Ao executar esta linha, me gera o seguinte erro:
"-2147132183 - Unable to server - This server is still in use by some reports"
Eu não sei o que faço... Preciso da Ajuda de todos vcs...
Obrigado!!!
Francisco Carlos
