Natalia
18 de Julio del 2003

Estoy creando una aplicación en VB que cree informes en tiempo de ejecución. Los datos con los cuales rellenar el informe,se cogen de una base de datos access temporal y ésta va cambiando segun ejecuto el programa.
La conexión a la base de datos es RDO y al utilizar el evento "addfieldobject" para que se visualicen en el informe los resultados de una consulta a la base de datos y me da error.A que es debido? Gracias.
El codigo es el siguiente:

Dim Report As New CrystalReport1

Option Explicit

Private Sub Form_Load()
Dim fld As FieldObject
Dim cnn1 As rdoConnection
Dim gm_ambiente As rdoEnvironment
Dim ldrst_Prueba As rdoResultset
Dim lstr_Cadena As String
Dim lstr_Base_Local As String


Set gm_ambiente = rdoEngine.rdoEnvironments(0)
' Open the data connection
lstr_Base_Local= "d:ayerdatabasesbd_local.mdb"
lstr_Cadena = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & lstr_Base_Local & ";"
Set cnn1 = gm_ambiente.OpenConnection("", 2, False, lstr_Cadena)
'--------------------------------------------------------------------------------------


Set ldrst_Prueba = cnn1.OpenResultset("Select * from et_elementos_Red", rdOpenDynamic, rdConcurRowVer)

If Not ldrst_Prueba.EOF Then
ldrst_Prueba.MoveLast
End If

Report.Database.SetDataSource ldrst_Prueba

Set fld = Report.Sección3.AddFieldObject(ldrst_Prueba!reactor, 0, 0)

Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

End Sub