Como Actualizar el TdbBrowse Despues de Borrar o Agregar Regristo

[Fernando Hernandez]

Buenas a todos.
Estoy haciendo una aplicacion usando como base de datos oracle express y
TADODATASOURCE. El problema que tengo es que cuando elimino el registro uso
lo siguiente :
IF MsgNoYes( "¿Desea suprimir el registro activo?" )
// ACA OBTENGO EL PAIS A BORRAR
clBorrar := ::osqltable1:pais
::oAdoDataSource1:execute("Delete from t01_paises where
pais='"+clborrar+"'")
::oDbBrowse1:Refresh()
ENDIF
El problema es que por mas que quiero, luego de borrar el registro y le doy
el evento REFRESH() al TDBBROWSE, este me sigue mostrando los mismos
registros como si no esta borrado, sin embargo en la base de datos si veo
las tablas, el registro ya esta eliminado.
Estoy haciendo algo mal ??
En espera de ayuda ....

[Fernando Hernandez]

Problema solucionado, tengo que actualizar :
::osqltable1:refresh()
::odbBrowse1:refresh()
Luego de eliminar el registro.
"Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
news:[email=45a5c941@news.xailer.com...]45a5c941@news.xailer.com...[/email]
> Buenas a todos.
>
> Estoy haciendo una aplicacion usando como base de datos oracle express
> y
> TADODATASOURCE. El problema que tengo es que cuando elimino el registro
> uso
> lo siguiente :
>
> IF MsgNoYes( "¿Desea suprimir el registro activo?" )
> // ACA OBTENGO EL PAIS A BORRAR
> clBorrar := ::osqltable1:pais
> ::oAdoDataSource1:execute("Delete from t01_paises where
> pais='"+clborrar+"'")
> ::oDbBrowse1:Refresh()
> ENDIF
>
> El problema es que por mas que quiero, luego de borrar el registro y le
> doy
> el evento REFRESH() al TDBBROWSE, este me sigue mostrando los mismos
> registros como si no esta borrado, sin embargo en la base de datos si veo
> las tablas, el registro ya esta eliminado.
>
> Estoy haciendo algo mal ??
>
> En espera de ayuda ....
>
>
>

[ignacio]

Fernando,
Simplemente haz:
::oDataSet:Delete()
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
news:[email=45a5c941@news.xailer.com...]45a5c941@news.xailer.com...[/email]
> Buenas a todos.
>
> Estoy haciendo una aplicacion usando como base de datos oracle express
> y
> TADODATASOURCE. El problema que tengo es que cuando elimino el registro
> uso
> lo siguiente :
>
> IF MsgNoYes( "¿Desea suprimir el registro activo?" )
> // ACA OBTENGO EL PAIS A BORRAR
> clBorrar := ::osqltable1:pais
> ::oAdoDataSource1:execute("Delete from t01_paises where
> pais='"+clborrar+"'")
> ::oDbBrowse1:Refresh()
> ENDIF
>
> El problema es que por mas que quiero, luego de borrar el registro y le
> doy
> el evento REFRESH() al TDBBROWSE, este me sigue mostrando los mismos
> registros como si no esta borrado, sin embargo en la base de datos si veo
> las tablas, el registro ya esta eliminado.
>
> Estoy haciendo algo mal ??
>
> En espera de ayuda ....
>
>
>