Pregunta: | 42226 - ABRIR REPORT DESDE VB Y B.D.ORACLE |
Autor: | maria sanchez |
tengo este código que sirve para pasar a un informe que tiene un subinforme no vinculado con el informe principal, las selection formula de los dos desde el programa. si el fichero .rpt hace referencia a b.d. en access y sin ninguna contaseña de acceso, funciona correctamente. Pero lo que quiero es que me muestre los dato del informe y que sean de una base de datos en oracle y que me pida por código de v.b. el usuario,contraseña, nombre de la b.d.. Lo que no se es la sentencia de codigo para que haga la conexión a la base de datos oracle. Option Explicit Dim rep As CRPEAuto.Report Private Sub CmdPrueba_Click() Dim Crystalapp As New CRPEAuto.Application Dim xx As CRPEAuto.Window Dim ww As View Dim rep2 As Object With Crystalapp Set rep = .OpenReport("C:\SUBREPORT\INFORME.rpt") Set rep2 = rep.OpenSubreport("SUBINFORME") End With With rep 'FORMULA PARA EL INFORME GENERAL .RecordSelectionFormula = " {ARTICULOS.NOMBRE} like '" & TxtNombre & "'" End With With rep2 'FORMULA PARA EL SUBINFORME .RecordSelectionFormula = " {PEDIDOS.CODIGO} like '" & TxtCodigo & "'" End With rep.Preview "TITULO DEL INFORME" End Sub agradecería que alguien me lo pudiera resolver.muchas gracias |