Saludos de nuevo amigos del foro.
Aquí de nuevo yo con un gran problema:
Sucede que queriendo realizar una prueba de transacciones muy simple manejando esta vez componentes zeos (TZQuery) y componentes midas (TClientDataSet) me tope con el espantoso error -901.
Me explico mejor:
Como antecedente estoy usando Firebird 2.1 como base de datos, Delphi 5, Componentes Zeos ver. 6.6.1 beta (diganme si es o no una versión estable por favor). Todo ello bajo el SO windows vista.
La tabla es bien sencilla:
Código SQL
[-]
CREATE TABLE MOVIMIENTOS_MASTER (
ID_MOVI INTEGER NOT NULL,
AREA_CLAVE INTEGER NOT NULL,
FECHA_MOVIMIENTO DATE NOT NULL
);
En una forma nueva agrego los siguientes componentes:
Código Delphi
[-]
object MiZConnect: TZConnection
Protocol = 'firebird-2.0'
HostName = 'localhost'
Database = 'PRUEBA01.FDB'
User = 'sysdba'
Password = 'masterkey'
AutoCommit = False
TransactIsolationLevel = tiReadCommitted
Connected = True
end
object MiZQuery: TZQuery
Connection = MiZConnect
SQL.Strings = ('select id_movi, area_clave, fecha_movimiento'
'from movimientos_master')
Params = <>
end
object MiDSProvider: TDataSetProvider
DataSet = MiZQuery
Constraints = False
Options = [poIncFieldProps, poCascadeDeletes, poCascadeUpdates, poAllowMultiRecordUpdates, poPropogateChanges]
UpdateMode = upWhereKeyOnly
end
object MiCDS: TClientDataSet
Active = True
Aggregates = <>
Params = <>
ProviderName = 'MiDSProvider'
object MiCDSID_MOVI: TIntegerField
FieldName = 'ID_MOVI'
Required = True
end
object MiCDSAREA_CLAVE: TIntegerField
FieldName = 'AREA_CLAVE'
Required = True
end
object MiCDSFECHA_MOVIMIENTO: TDateField
FieldName = 'FECHA_MOVIMIENTO'
Required = True
end
end
object MiDS: TDataSource
DataSet = MiCDS
end
object DBNavigator1: TDBNavigator
DataSource = MiDS
TabOrder = 0
end
object DBEdit1: TDBEdit
DataField = 'ID_MOVI'
DataSource = MiDS
TabOrder = 1
end
Como veran no es gran cosa, pues para empezar solo quiero navegar por la tabla con mi TDBNavigator y todo esto solo para probar este -para mi- nuevo tipo de interacción con mi base de datos. Esto lo tome de unos ejemplos que el mismo Delphi ya trae al instalarlo con la diferencia de que esos son para tablas de Interbase.
Pues bueno, todo hasta ahi bien, pero al ejecutar la aplicación me lanza el siguente error -cosa curiosa- AL CERRAR la aplicación (funciona bien aparente mente y todo pero al cerrar la forma surge el error):
Project prueba.exe raised exception class EZSQLException with message 'SQL Error: Invalid statement handle. ErrorCode: -901. Unsuccessful execution caused by system error that does not preclude successful execution of subsequent statements '.
Ya intente cambiar el componente TZQuery por un TZTable y me da el mismo resultado, he cambiado las propiedades de los componentes y nada, sigo con el mismo error. ¿Que es lo que estoy haciendo mal? ¿Es asi como deben configurarse los componentes? Una mano aquí por favor.
Muchas gracias de antemano.