Visual Basic - Conectar con Crystal desde VB.NET

Life is soft - evento anual de software empresarial
 
Vista:

Conectar con Crystal desde VB.NET

Publicado por Damian (29 intervenciones) el 13/01/2009 16:30:19
Tengo un problema con un reporte que ya lo realice desde Crystal XI y ahora lo quiero mostrar desde VB.NET, pero lo que no se es como llamar a la coneccion de SQL Server Express que yo tengo, lo intente de hacer con ...Database.LogOnServer.......pero me tira error "Referencia a objeto no establecida como instancia de un objeto", ademas el primer parametro no entiendo porque es que se pone una dll, la vi en otros foro y por eso puse esa.
Database tiene otros metodos para cargar la conexion pero no se cual usar(LogOffServer,LogOnServer,LogOnServerEx) no se que cambia uno de otros, o diganme otra forma de conectarme, para poder traer mi reporte, aca les dejo el codigo.Gracias.

Private crApp As New CRAXDDRT.Application
Private crReport As New CRAXDDRT.Report
Dim Reporte As New FCrystal
Dim lPath As String = "C:Documents and SettingsBocaMisdocumentosVBConstruccionGamatConstruccionReportes"

crReport.Database.LogOnServer("p2ssql.dll", ".SQLEXPRESS", "Construccion")
crReport = crApp.OpenReport(lPath & "Informe1.rpt", 1)
Reporte.CR.SelectionFormula = "{Facturacion.IDfact}=" & Val(lblComp.Text)
Reporte.CR.ReportSource = crReport
Reporte.CR.Refresh()
Reporte.CR.Show()
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Conectar con Crystal desde VB.NET

Publicado por like (3 intervenciones) el 14/01/2009 16:50:28
Imports CrystalDecisions.CrystalReports.Engine
Imports System
Imports System.Data
Imports System.Data.SqlClient

Dim mi_conn As New SqlConnection

Dim imp As New ReportDocument()

imp.Load("L:Source codes eporte.rpt")
mi_conn.ConnectionString = "Data Source=my_server; DataBase=my_database; user = " & usuario.Trim & "; password= " & identificacion.Trim & " ;Connection Timeout= 1500"
Dim da As New SqlDataAdapter("select * from my_empleados", mi_conn)
Dim ds As New DataSet
da.Fill(ds)
imp.SetDataSource(ds.Tables(0))

imp.SetParameterValue("usuario", usuario.Trim.ToUpper)
imp.SetParameterValue("fecha1", f1)
imp.SetParameterValue("fecha2", f2)

CrystalReportViewer1.ReportSource = imp

Espero y te sirva, es hacia un servidor de SQL server 2000
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar