Problema al actualizar TDBBrowse
Publicado: Vie Jun 18, 2021 5:59 pm
Buenas tardes:
Acabo de dar el salto desde xailer 2.5 contra BBDD Mysql via odbc, a la versión xailer 7.1 contra la misma BBDD Mysql via MariaDBDataSource.
Para que las eñes y caracteres especiales aparezcan correctamente uso oRs:oDataSource:execute( "SET NAMES 'latin1'" ) cada vez que realizo una consulta TSqlQuery y el tema funciona.
Lo que me sucede es que al dar de alta un registro (no directamente sobre el Browse), aparentemente deja el registro vacío. Solo si vuelvo a realizar la consulta TSqlQuery aparece el registro anteriormente añadido. Con la versión anterior se refrescaba bien el browse mostrando correctamente el registro recién incorporado.
Os dejo el código a continuación.
cSelect := "SELECT * FROM trabajadores"
::oSQLTrabajador := OpenQuery(::oSQLTrabajador, "oAdoRda", cSelect, "tra_nombre")
::oTra_nombre:oDataSet := ::oSQLTrabajador
::oTra_dni:oDataSet := ::oSQLTrabajador
::oTra_cod_bar:oDataSet := ::oSQLTrabajador
::oTra_activo:oDataSet := ::oSQLTrabajador
::oTra_Oficinas:oDataSet:= ::oSQLTrabajador
::oTra_Abrevia:oDataset := ::oSQLTrabajador
::oTra_puesto_trabajo:oDataSet := ::oSQLTrabajador
::oTra_Control:oDataSet := ::oSQLTrabajador
::oTra_Grupo:oDataSet := ::oSQLTrabajador
::oDBrwTrabajador:oDataSet := ::oSQLTrabajador
METHOD BtnAddClick( oSender ) CLASS TTrabajadores
::oSQLTrabajador:AddNew()
::oTra_nombre:SetFocus()
RETURN Nil
METHOD BtnOkClick( oSender ) CLASS TTrabajadores
::oSQLTrabajador:update()
RETURN Nil
Muchas gracias por vuestra ayuda.
Acabo de dar el salto desde xailer 2.5 contra BBDD Mysql via odbc, a la versión xailer 7.1 contra la misma BBDD Mysql via MariaDBDataSource.
Para que las eñes y caracteres especiales aparezcan correctamente uso oRs:oDataSource:execute( "SET NAMES 'latin1'" ) cada vez que realizo una consulta TSqlQuery y el tema funciona.
Lo que me sucede es que al dar de alta un registro (no directamente sobre el Browse), aparentemente deja el registro vacío. Solo si vuelvo a realizar la consulta TSqlQuery aparece el registro anteriormente añadido. Con la versión anterior se refrescaba bien el browse mostrando correctamente el registro recién incorporado.
Os dejo el código a continuación.
cSelect := "SELECT * FROM trabajadores"
::oSQLTrabajador := OpenQuery(::oSQLTrabajador, "oAdoRda", cSelect, "tra_nombre")
::oTra_nombre:oDataSet := ::oSQLTrabajador
::oTra_dni:oDataSet := ::oSQLTrabajador
::oTra_cod_bar:oDataSet := ::oSQLTrabajador
::oTra_activo:oDataSet := ::oSQLTrabajador
::oTra_Oficinas:oDataSet:= ::oSQLTrabajador
::oTra_Abrevia:oDataset := ::oSQLTrabajador
::oTra_puesto_trabajo:oDataSet := ::oSQLTrabajador
::oTra_Control:oDataSet := ::oSQLTrabajador
::oTra_Grupo:oDataSet := ::oSQLTrabajador
::oDBrwTrabajador:oDataSet := ::oSQLTrabajador
METHOD BtnAddClick( oSender ) CLASS TTrabajadores
::oSQLTrabajador:AddNew()
::oTra_nombre:SetFocus()
RETURN Nil
METHOD BtnOkClick( oSender ) CLASS TTrabajadores
::oSQLTrabajador:update()
RETURN Nil
Muchas gracias por vuestra ayuda.