Una manito con unos códigos
Publicado por Albertico (49 intervenciones) el 31/07/2007 22:26:06
Resulta que un amigo del foro me pasó unos códigos para enlazar el VB 6.0 con un reporte del Crystal Report 4.6, y una base de datos del Access 97, que es el que os presento a continuación.
strlistado = "Listado Generales de Alumnos"
strtitulo = "Listado por curso"
rport = "\\encanto\rpt\datosgen1.rpt"
With MDIprobando.reporte
.ReportFileName = rport
.SelectionFormula = strFormula
.Connect = denvTii.conTii.ConnectionString Aquí se me presenta el errorcillo.
.WindowTitle = strtitulo
.ReportTitle = strlistado
.Destination = crptoprinter
.Action = 1
End With
strFormula = "({visCliente.codigocliente}='" & frmCliente.codigo.Text & "' and {visCliente.FechaFin}>= #" & fecha & "# and {visCliente.Tipo}='Classic'and {visCliente.estado}='Activo')"
MDIprobando.reporte.Connect = denvTii.conTii.ConnectionString
MDIprobando.reporte.DataFiles(0) = "C:\encanto\integrl.mdb"
lo que no comprendo es si la instrucción denvTii.conTii. es una variable y a qué se refiere porque el error me da en esta línea. si alguien por favor me da unas dos manitos pues os agradezco mucho. Saludos cordiales a todos los del foro...
strlistado = "Listado Generales de Alumnos"
strtitulo = "Listado por curso"
rport = "\\encanto\rpt\datosgen1.rpt"
With MDIprobando.reporte
.ReportFileName = rport
.SelectionFormula = strFormula
.Connect = denvTii.conTii.ConnectionString Aquí se me presenta el errorcillo.
.WindowTitle = strtitulo
.ReportTitle = strlistado
.Destination = crptoprinter
.Action = 1
End With
strFormula = "({visCliente.codigocliente}='" & frmCliente.codigo.Text & "' and {visCliente.FechaFin}>= #" & fecha & "# and {visCliente.Tipo}='Classic'and {visCliente.estado}='Activo')"
MDIprobando.reporte.Connect = denvTii.conTii.ConnectionString
MDIprobando.reporte.DataFiles(0) = "C:\encanto\integrl.mdb"
lo que no comprendo es si la instrucción denvTii.conTii. es una variable y a qué se refiere porque el error me da en esta línea. si alguien por favor me da unas dos manitos pues os agradezco mucho. Saludos cordiales a todos los del foro...
Valora esta pregunta


0