Si usa una instrucción en un TSQLQuery del tipo
Código: Seleccionar todo
SELECT * FROM mesas_items WHERE '0' ORDER BY id_fila
hasta la version 6.2 funciona todo OK
Saludos!
Código: Seleccionar todo
SELECT * FROM mesas_items WHERE '0' ORDER BY id_fila
Código: Seleccionar todo
WITH OBJECT ::oSQLComandas
:oDataSource:= AppData:oMySQLDS
:cSelect:= "SELECT * FROM mesas_items WHERE '0' ORDER BY id_fila"
:lOpen:= .T.
IF ! :lOpen
MsgStopOG( "NO ES POSIBLE ABRIR EL QUERY DE COMANDAS", "Error de Conexión..")
RETURN NIL
ENDIF
END WITH
// Ese codigo me crea un dataset vacio, para despues agregar registros al dataset
// Puedo agregar editar y borrar registros en versiones anteriores con la version 7 pasa lo siguiente
oSQLComandas:AddNew()
... // Aqui es donde todos los campos registran un valor NULL, no hay ningun mensaje de error cLastError y addnew como update regresan valor .T.,
... // la tabla tiene un campo incremental y ese valor si se ve correctamente (es el unico valor que se puede ver los demas son valores NIL )
oSQLComandas:UpDate()
Código: Seleccionar todo
:cSelect:= "SELECT * FROM mesas_items WHERE id_mesa='03' ORDER BY id_fila"
// con este select si funciona se graba bien los registros,
// AddNew() y UpDate() agrega correctamente los registros y tambien puedo borrarlos
Código: Seleccionar todo
INSERT INTO mesas_items(id_fila) VALUES(NULL);