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