Ayuda plz Cristal 8

14/07/2003 - 21:29 por Papete | Informe spam
Hola, yo denuevo.
Hice tal cual me aparece en los ejemplos pero me sale un error. Dice Uso no
válido de la propiedad
FFGA lo he puesto yo a mano en "origenes de datos ODBC." y funciona
perfectamente

Dim Rpt As New CrystalReport1
Dim Recurso As New ADODB.Recordset

Private Sub Command1_Click()

Recurso.Open "Select * from Beneficios where id = 1", "FFGA"
Rpt.Database.SetDataSource Recurso

CRViewer1.ReportSource Rpt
CRViewer1.ViewReport

End Sub

Preguntas similare

Leer las respuestas

#1 Papete
14/07/2003 - 22:10 | Informe spam
Ya logre que me funcionara!!!
pero algo sale mal y por suerte puedo reproducir el error.

Es raro, pero sucede despues de guardar el archivo del diseñador (dsx). Si
lo quito y lo vuelvo a agregar funciona bien, pero si lo guardo ya no me
funciona me dice que no es posible acrir el archivo: Beneficio en la
ubicacion beneficio.
el codigo es chiquito:

Private Sub Command1_Click()
Dim db As Database
Set db = OpenDatabase("C:\proyectos\gestion\ffdga.mdb")
Dim rs As Recordset
Set rs = db.OpenRecordset("SELECT * FROM Beneficios")

Dim Capp As New CrystalReport1

Capp.Database.SetDataSource rs
CRViewer1.ReportSource = Capp

CRViewer1.ViewReport
End Sub


"Papete" escribió en el mensaje
news:%
Hola, yo denuevo.
Hice tal cual me aparece en los ejemplos pero me sale un error. Dice Uso


no
válido de la propiedad
FFGA lo he puesto yo a mano en "origenes de datos ODBC." y funciona
perfectamente

Dim Rpt As New CrystalReport1
Dim Recurso As New ADODB.Recordset

Private Sub Command1_Click()

Recurso.Open "Select * from Beneficios where id = 1", "FFGA"
Rpt.Database.SetDataSource Recurso

CRViewer1.ReportSource Rpt
CRViewer1.ViewReport

End Sub


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida