Hola, supongo que deben haber explicado mil veces esto , pero no doy con el problema
Este es mi codigo utilizado , el problema es cuando hace el .logonserver
no se que sucede pero no se conecta. Solo obtengo errores por mas que le de vuelta a la cosa
sera que la dll no corresponde a mi version de crystal (10) o me faltara registar
algún componente, algo pasa ... pero no me puedo conectar
uso sql 7 y en la aplicacion no tengo problema para conectarme a las tablas
Agradezco desde ya cualquier ayuda
Option Explicit
Private crapp As New CRAXDRT.Application
Private crReport As New CRAXDRT.Report
Private mscodmatd As String
Private Sub Form_Load()
Dim crpf As CRAXDRT.ParameterFieldDefinition
Dim crpfs As CRAXDRT.ParameterFieldDefinitions
Dim reportname As String
reportname = "material.rpt"
Screen.MousePointer = vbHourglass
Set crReport = crapp.OpenReport(App.Path & "\rpt\" & reportname, 0)
'parametros del reporte
Set crpfs = crReport.ParameterFields
For Each crpf In crpfs
Select Case crpf.ParameterFieldName
Case "codmatd"
crpf.AddCurrentValue ("CC0000")
Case "codmath"
crpf.AddCurrentValue ("CC0021")
End Select
Next
crReport.Database.LogOnServer "p2ssql", "server", "bases", "sa", ""
crview.ReportSource = crReport
crview.EnableExportButton = True
crview.EnableRefreshButton = False
crview.ViewReport
Screen.MousePointer = vbDefault
Set crparamdefs = Nothing
Set crparamdef = Nothing
Exit Sub
