Foros del Web » Programación para mayores de 30 ;) » .NET »

Crystal Report y conexión a BD remota [vb.net]

Estas en el tema de Crystal Report y conexión a BD remota [vb.net] en el foro de .NET en Foros del Web. [WINDOWS FORM] hola, tengo un reporte en Crystal Reports, y la fuente de datos es un DAtaset. Cuando he hecho el reporte con el Asistente, ...
  #1 (permalink)  
Antiguo 10/12/2004, 14:52
Avatar de freegirl
Colaborador
 
Fecha de Ingreso: octubre-2003
Ubicación: Catalonia
Mensajes: 4.334
Antigüedad: 20 años, 6 meses
Puntos: 156
Crystal Report y conexión a BD remota [vb.net]

[WINDOWS FORM]

hola,

tengo un reporte en Crystal Reports, y la fuente de datos es un DAtaset. Cuando he hecho el reporte con el Asistente, ya le indiqué que la fuente de datos era esa.

La base de datos está en Access, y se encuentra en un equipo remoto.

la conexion a la Base de Datos, está en una Classe, y cada vez que necesito conectarme, pues llamo a la clase y ya esta. Esto va perfecto. El problema viene cuando quiero hacer el reporte, no me encuentra ni el servidor ni la BD. El código que tengo es éste:


Cita:
dim cl as new classe
Dim sqlString As String
Dim dataAdapter As OleDb.OleDbDataAdapter
Dim oConexion As New OleDb.OleDbConnection(cl.CONEXION)
sqlString = "SELECT * FROM clientes"
dataAdapter = New OleDb.OleDbDataAdapter(sqlString, oConexion)
dataAdapter.Fill(Me.DtsFitxaClient1, "clientes")
Me.CrystalReportViewer1.ReportSource = Application.StartupPath & "\" & "rptFitxaCliente.rpt"
Me.CrystalReportViewer1.SelectionFormula = "{clientes.ncli}=" & codigoCliente

Que es lo que falla?


saludos!
  #2 (permalink)  
Antiguo 10/12/2004, 15:07
Avatar de freegirl
Colaborador
 
Fecha de Ingreso: octubre-2003
Ubicación: Catalonia
Mensajes: 4.334
Antigüedad: 20 años, 6 meses
Puntos: 156
Bueno, ya he encontrado la solución! Me faltaba un pequeño detalle.

El código correcto es así:

Cita:
dim cl as new classe
Dim sqlString As String
Dim dataAdapter As OleDb.OleDbDataAdapter
Dim oConexion As New OleDb.OleDbConnection(cl.CONEXION)
sqlString = "SELECT * FROM clientes"
dataAdapter = New OleDb.OleDbDataAdapter(sqlString, oConexion)
dataAdapter.Fill(Me.DtsFitxaClient1, "clientes")
Dim info As New rptFitxaClient
info.SetDataSource(DtsFitxaClient1)
Me.CrystalReportViewer1.ReportSource = info

os dejo la página que me ha servido de gran ayuda:

http://www.elguille.info/colabora/pu...ortDataset.htm


Saludos!

Última edición por freegirl; 10/12/2004 a las 15:14
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 10:02.