USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Conexão com o Oracle usando o CRAXDRT
fcarlos
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 04/08/2004 15:50 hs            
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
   
FatBoy
Pontos: 2843 Pontos: 2843
LONDRINA
PR - BRASIL
ENUNCIADA !
Postada em 05/08/2004 08:58 hs            
No Modulo BAS
Public Aplicacao As New CRAXDRT.Application
Public Report As New CRAXDRT.Report
Sub Imprime()
    Dim crtable As CRAXDRT.DatabaseTable
    Dim servidor As Variant
    Dim banco As Variant
    Dim op As Integer
    Dim usuario, senha As String
   
    servidor = "MSDAORA.1"
    banco = "BANCODEDADOS"
    usuario = "USER"
    senha = "SENHA"
   
    For op = 1 To Report.Database.Tables.Count
        Set crtable = Report.Database.Tables.Item(op)
        crtable.SetLogOnInfo servidor, banco, CStr(usuario), CStr(senha)
        Set crtable = Nothing
    Next
   
End Sub
 
No Botao Imprime
Set Report = Aplicacao.OpenReport("g:calculo.rpt")
Call Imprime
frmImprime.Show (1)
 
No Formulario que tem o CRView
CRView.ReportSource = Report
CRView.ViewReport
 
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página