SoloCodigo

Hola , yo estoy usando la 10 de Crystal con entorno sql y Vb , tube algunos problemas para hacerlo correr en algunas maquinas pero no es para echarle la culpa el crystal sino a la configuracion del sql
y para instalar las dll para su distribucion,  con el " package y deployment "que viene incorporado en visual me alcanzo
 
Para mi es muy bueno

Necesito ejecutar reportes desde visual en motor Sql
Se que debo usar el logonserver pero no se como utilizarlo.
Si alguien tiene algun ejemplo .
Se que va logonserver Dll,data source,usuario,password
pero no se ni que dll tengo que usar

Cualquier ayuda es bienbenida

ok enseguida lo hago.

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