Crystal Report - Cambiar conexion Oledb en CR bajo Visual 2008

   
Vista:

Cambiar conexion Oledb en CR bajo Visual 2008

Publicado por apacheco (92 intervenciones) el 06/12/2011 15:52:41
¿Como puedo cambiar el origen de datos Oledb a un Report en CR bajo visual studio 2008?.

Me explico, he creado ee informe con la conexion Ole en el servidor, al directorio donde estará la BD.
(C:\Gestion_Programa\BaseDeDatos\basededatos.mdb)

Al ejecutarlo desde otro equipo de la red, la direccion de la BD. cambia y los informes no se ejecutan, ya que el directorio de las base será una unidad virtual (I:) donde i: es la referencia al directorio del servidor C:\Gestion_Programa)
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

Cambiar conexion Oledb en CR bajo Visual 2008

Publicado por apacheco (92 intervenciones) el 06/12/2011 20:07:47
Ya lo he resuelto
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
Imágen de perfil de xve

Cambiar conexion Oledb en CR bajo Visual 2008

Publicado por xve (9 intervenciones) el 06/12/2011 21:50:25
Hola apacheco, nos puedes comentar como lo has resuelto??
Gracias
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

Cambiar conexion Oledb en CR bajo Visual 2008

Publicado por apacheco (92 intervenciones) el 09/03/2012 17:32:01
Ahi lo tienes

Dim oConexInfo As ConnectionInfo = Nothing
Dim oListaTablas As Tables = Nothing
Dim oTabla As Table = Nothing
Dim oTablaConexInfo As TableLogOnInfo = Nothing

Dim oForm As FrmInformes

oConexInfo = New ConnectionInfo
oConexInfo.ServerName = basedato
oConexInfo.DatabaseName = String.Empty
oConexInfo.UserID = "Admin"
oConexInfo.Password = String.Empty

oListaTablas = oRpt.Database.Tables
For Each oTabla In oListaTablas
oTablaConexInfo = oTabla.LogOnInfo
oTablaConexInfo.ConnectionInfo = oConexInfo
oTabla.ApplyLogOnInfo(oTablaConexInfo)
Next

oForm = New FrmInformes
oForm.Text = "Descuadres en " & IIf(albfac = "A", "Albaranes", "Facturas")

Dim oRpt As New rptAlbaFactDesc

oListaTablas = oRpt.Database.Tables
For Each oTabla In oListaTablas
oTablaConexInfo = oTabla.LogOnInfo
oTablaConexInfo.ConnectionInfo = oConexInfo
oTabla.ApplyLogOnInfo(oTablaConexInfo)
Next

With oRpt
.DataDefinition.FormulaFields.Item("Listar").Text = "'" & albfac & "'"
.RecordSelectionFormula = "{AuxFactDescuadrada.Usuari_Afd} = '" & glbusuario & "'"

.Refresh()
End With

oForm.crvInformes.ReportSource = oRpt
oForm.Show()
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