Problema al hacer consulta con TSQLQuery
Publicado: Lun Nov 12, 2018 1:27 am
Alguna ayuda por favor con este error que se me esta presentando y no se a que se debe.
METHOD SQLHisChatCreate( oSender ) CLASS TForm1
Local FechaHoy := DTos(Date())
With object oSender
IF :lOpen
:Close()
End IF
:cSelect := "Select EMPRESA, USUARIO, USUENVIO, FECHA, HORA, MENSAJE From HISCHAT Where Empresa = 1 and fecha = '"+FechaHoy+"' "
:Open() ---------------------> Aqui se presenta el error
End With
RETURN Nil
DETALLE DEL ERROR
#1: GPF (Code = c0000005):
Access violation
TOLEAUTO:OPEN (0)
TADORECORDS:OPEN (129)
TSQLQUERY:OPEN (320)
TFORM1:SQLHISCHATCREATE (2070)
TSQLQUERY:ONCREATE (0)
TDATASET:CREATE (237)
TSQLQUERY:CREATE (39)
TFORM1:CREATEFORM (417)
TFORM1:NEW (199)
MAIN (15)
METHOD SQLHisChatCreate( oSender ) CLASS TForm1
Local FechaHoy := DTos(Date())
With object oSender
IF :lOpen
:Close()
End IF
:cSelect := "Select EMPRESA, USUARIO, USUENVIO, FECHA, HORA, MENSAJE From HISCHAT Where Empresa = 1 and fecha = '"+FechaHoy+"' "
:Open() ---------------------> Aqui se presenta el error
End With
RETURN Nil
DETALLE DEL ERROR
#1: GPF (Code = c0000005):
Access violation
TOLEAUTO:OPEN (0)
TADORECORDS:OPEN (129)
TSQLQUERY:OPEN (320)
TFORM1:SQLHISCHATCREATE (2070)
TSQLQUERY:ONCREATE (0)
TDATASET:CREATE (237)
TSQLQUERY:CREATE (39)
TFORM1:CREATEFORM (417)
TFORM1:NEW (199)
MAIN (15)