Informe crystalrepots coge datos desactualizados de las tablas.

Tengo un formulario "InformeEmpleado" que tiene un CRViewer asociado a un
informe de CrystalReports 8... el problema es que para ese infome utilizo

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

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

Tengo un formulario "InformeEmpleado" que tiene un CRViewer asociado a un
informe de CrystalReports 8... el problema es que para ese infome utilizo

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

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

Revisa tu correo que te he mandado un par de comentarios.

Saludos.
Edgar Contreras


(Guía de netiquette del foro)
http://perso.wanadoo.es/rubenvigon/foro

"La informacion es presentada como es y sin garantia alguna"



"Mr. Fale" wrote in message
news:er$
> El formulario que muestro tiene el siguiente codigo:
>
> Option Explicit
>
> Dim Report As New CrystalReport1
>
>
> Private Sub Form_Load()
> Screen.MousePointer = vbHourglass
> CRViewer1.ReportSource = Report
> CRViewer1.ViewReport
> Screen.MousePointer = vbDefault
> End Sub
>
> Private Sub Form_Resize()
> CRViewer1.Top = 0
> CRViewer1.Left = 0
> CRViewer1.Height = ScaleHeight
> CRViewer1.Width = ScaleWidth
> End Sub
>
> Private Sub Form_Unload(Cancel As Integer)
> cerrarForm "InformeEmpleadosPrint"
> End Sub
>
>
>
>
> y el propio formulario tiene un objeto crViewer por lo que abre el solo
una
> especie de preview del informe...
> en cuanto al acceso de los datos estan en el propio informe
(Disenadores ->
> CrystalReport1) he metido los campos de las tablas enlazadas por medio

> "Asistente de Vinculo Visual" no se donde esta el codigo...
>
>
>
> muchas gracias por el interes.
>
> SinFirma
>
> http://www.sinfirma.tk
> "Edgar Contreras" escribió en el mensaje
> news:
> > Donde es que estas haciendo el tratamiento del informe?... aqui yo veo
que
> > solo estas agregando o borrando datos, pero en donde abres el
reporte?...
> > donde le pasas los parametros???... etc...
> >
> > Saludos.
> > Edgar Contreras
> >
> >
> > (Guía de netiquette del foro)
> > http://perso.wanadoo.es/rubenvigon/foro
> >
> > "La informacion es presentada como es y sin garantia alguna"
> >
> >
> >
> > "Mr. Fale" wrote in message
> > news:
> > > Tengo un formulario "InformeEmpleado" que tiene un CRViewer asociado

> 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

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
> > >
> > >
> >
> >
>
>