Informe crystalrepots coge datos desactualizados de las tablas.

14/07/2003 - 17:19 por Mr. Fale | Informe spam
Tengo un formulario "InformeEmpleado" que tiene un CRViewer asociado a un
informe de CrystalReports 8... el problema es que para ese infome utilizo 2
tablas (Empleados y parametros) las cuales estan unidas por el campo dni y
una fecha (la tabla parametros es la principal)...
mi problema es que si hago lo que pone en el codigo de mas abajo (un delete
de la tabla parametros y un insert en la tabla parametros) el informe no
coge actualizada la tabla, a veces coge los datos que habian antes.. otras
coge la tabla vacia... ...

no se que hacer... ;( UNA AYUDITAAAAAAAA !!!


Mirad este es el codigo:

Private Sub CmbImprimir_Click()
Dim RsGuardar1 As adodb.Recordset
Dim StrSQL As String
Dim vfecha, zvDni As String

Set RsGuardar1 = New adodb.Recordset
StrSQL = "DELETE FROM Parametros"
If Not AccesoBD.LanzarSQL(RsGuardar1, StrSQL) Then
MsgBox ("Error al borrar en la Base de datos")
Else
StrSQL = "Insert INTO Parametros (Fecha, Dni, Fecha2) VALUES (#" +
vfecha + "#, '" + CStr(zvDni) + "', #" + vfecha + "#)"
If Not AccesoBD.LanzarSQL(RsGuardar1, StrSQL) Then
MsgBox ("Error al Insertar en la Base de datos")
Else
Set RsGuardar1 = Nothing
InformeEmpleado.show
End If
End If
End Sub




JuanJo
 

Leer las respuestas

#1 Ever Varela
14/07/2003 - 18:37 | Informe spam
prueba .DiscardSavedData antes del .show
"Mr. Fale" escribió en el mensaje
news:
Tengo un formulario "InformeEmpleado" que tiene un CRViewer asociado a un
informe de CrystalReports 8... el problema es que para ese infome utilizo


2
tablas (Empleados y parametros) las cuales estan unidas por el campo dni y
una fecha (la tabla parametros es la principal)...
mi problema es que si hago lo que pone en el codigo de mas abajo (un


delete
de la tabla parametros y un insert en la tabla parametros) el informe no
coge actualizada la tabla, a veces coge los datos que habian antes.. otras
coge la tabla vacia... ...

no se que hacer... ;( UNA AYUDITAAAAAAAA !!!


Mirad este es el codigo:

Private Sub CmbImprimir_Click()
Dim RsGuardar1 As adodb.Recordset
Dim StrSQL As String
Dim vfecha, zvDni As String

Set RsGuardar1 = New adodb.Recordset
StrSQL = "DELETE FROM Parametros"
If Not AccesoBD.LanzarSQL(RsGuardar1, StrSQL) Then
MsgBox ("Error al borrar en la Base de datos")
Else
StrSQL = "Insert INTO Parametros (Fecha, Dni, Fecha2) VALUES (#" +
vfecha + "#, '" + CStr(zvDni) + "', #" + vfecha + "#)"
If Not AccesoBD.LanzarSQL(RsGuardar1, StrSQL) Then
MsgBox ("Error al Insertar en la Base de datos")
Else
Set RsGuardar1 = Nothing
InformeEmpleado.show
End If
End If
End Sub




JuanJo


Preguntas similares