TOdbcDataSet

[miguel]

Hola.
En el ejemplo de abajo ::oBrwArti es un TDBBrowse con las columnas configuradas
en el IDE incluida la anchura. Cuando se ejecuta este metodo se actualiza
el browse correctamente pero ocurre algo curioso que tambien pasa en el IDE.
Me cambia la anchura del todas las columnas a 208. No se si lo he explicado
bien.
METHOD Consulta() CLASS TPedidos // TForm
LOCAL cSelect
cSelect := "SELECT AM_CODE, AM_DENOM, AM_REFER, AM_SUST, AM_PROVE, AM_PVP"
+ CRLF +;
"FROM MAR_ARTI" + CRLF +;
"WHERE AM_DENOM LIKE " + "'%" + AllTrim(::oABrwLineas:getValue(
"Denominación" ) )+"%'" + CRLF +;
"ORDER BY am_code"
::oSysAnimate:lActive := .T.
ProcessMessages()
with object ::oOdbcArti // TOdbcDataSet
:close()
:cSelect := cSelect
:open()
end
::oBrwArti:setfocus() // TDBBrowse
::oSysAnimate:lActive := .F.
oSQLSource:free() // oDatasource de ::oOdbcArti que a su vez es el
TOdbcDataSet
RETURN Nil

[ignacio]

Miguel,
Sin un ejemplo que reproduzca el error no puede saber mucho pero creo que el
problema surge porque esta cerrando el DataSet. En dicho momento todo el
browse se reconfigura irremediablemente ya que no existe certeza alguna de
que el nuevo Select retorne el mismo set de columnas. En vez de reuitlizar
datasets le recomiendo que simplemente los cree por código o utilice el
metodo Refresh del propio DataSet.
Saludos,
"Miguel Torrellas" <miguel@torrellas.net> escribió en el mensaje
news:[email=5e4a623b221e8c81c07bbcb4930@news.xailer.com...]5e4a623b221e8c81c07bbcb4930@news.xailer.com...[/email]
>
> Hola.
> En el ejemplo de abajo ::oBrwArti es un TDBBrowse con las columnas
> configuradas en el IDE incluida la anchura. Cuando se ejecuta este metodo
> se actualiza el browse correctamente pero ocurre algo curioso que tambien
> pasa en el IDE. Me cambia la anchura del todas las columnas a 208. No se
> si lo he explicado bien.
>
>
>
> METHOD Consulta() CLASS TPedidos // TForm
> LOCAL cSelect
> cSelect := "SELECT AM_CODE, AM_DENOM, AM_REFER, AM_SUST, AM_PROVE,
> AM_PVP" + CRLF +;
> "FROM MAR_ARTI" + CRLF +;
> "WHERE AM_DENOM LIKE " + "'%" +
> AllTrim(::oABrwLineas:getValue( "Denominación" ) )+"%'" + CRLF +;
> "ORDER BY am_code"
>
> ::oSysAnimate:lActive := .T.
> ProcessMessages()
> with object ::oOdbcArti // TOdbcDataSet
> :close()
> :cSelect := cSelect
> :open()
> end
> ::oBrwArti:setfocus() // TDBBrowse
>
> ::oSysAnimate:lActive := .F.
> oSQLSource:free() // oDatasource de ::oOdbcArti que a su vez es el
> TOdbcDataSet
> RETURN Nil
>
>

[miguel]

Ignacio Ortiz de Zúñiga,
> Miguel,
>
> Sin un ejemplo que reproduzca el error no puede saber mucho pero creo
> que el problema surge porque esta cerrando el DataSet. En dicho
> momento todo el browse se reconfigura irremediablemente ya que no
> existe certeza alguna de que el nuevo Select retorne el mismo set de
> columnas. En vez de reuitlizar datasets le recomiendo que simplemente
> los cree por código o utilice el metodo Refresh del propio DataSet.
>
No creo que sea este el comportamiento previsto, si se configuran las columnas en el IDE, estas debieran permanecer inamovibles, de no ser asi para que sirve configurar el Browse en el IDE.
--

Attached files

[ignacio]

Miguel,
Compruebo que NO SE PIERDEN las columnas del browse al hacer Close() y luego
un Open() en su Dataset. He puesto este sencillo código en un browse sobre
una tabla abierta con FireBird y funciona sin problemas:
METHOD Button1Click( oSender ) CLASS TForm1
WITH OBJECT ::oOdbcDataSet1
:Close()
:cSelect := "select * from clientes where Nombre like 'A%'"
:Open()
END WITH
RETURN Nil
Intente acorralar el problema quitando todo el código posible o mandame un
ejemplo muy sencillo donde pueda reproducirlo (ya lo adapto para que
funcione con nuestros servidores SQL)
Un saludo,
"Miguel Torrellas" <miguel@torrellas.net> escribió en el mensaje
news:[email=5e4a623b225b8c81cb2c449dd60@news.xailer.com...]5e4a623b225b8c81cb2c449dd60@news.xailer.com...[/email]
Ignacio Ortiz de Zúñiga,
> Miguel,
>
> Sin un ejemplo que reproduzca el error no puede saber mucho pero creo
> que el problema surge porque esta cerrando el DataSet. En dicho
> momento todo el browse se reconfigura irremediablemente ya que no
> existe certeza alguna de que el nuevo Select retorne el mismo set de
> columnas. En vez de reuitlizar datasets le recomiendo que simplemente
> los cree por código o utilice el metodo Refresh del propio DataSet.
>
No creo que sea este el comportamiento previsto, si se configuran las
columnas en el IDE, estas debieran permanecer inamovibles, de no ser asi
para que sirve configurar el Browse en el IDE.

[miguel]

Ignacio Ortiz de Zúñiga,
Adjunto pongo proyecto. Comprueba que al abrir el data set reconfigura el ancho de las columnas.
Accede directamente a mi servidor SQL Server 2000, por lo que es posible que a según que horas no este conectado ya que es solo para pruebas.
> Miguel,
>
> Compruebo que NO SE PIERDEN las columnas del browse al hacer Close() y
> luego un Open() en su Dataset. He puesto este sencillo código en un
> browse sobre una tabla abierta con FireBird y funciona sin problemas:
>
> METHOD Button1Click( oSender ) CLASS TForm1
>
> WITH OBJECT ::oOdbcDataSet1
> :Close()
> :cSelect := "select * from clientes where Nombre like 'A%'"
> :Open()
> END WITH
> RETURN Nil
>
> Intente acorralar el problema quitando todo el código posible o
> mandame un ejemplo muy sencillo donde pueda reproducirlo (ya lo adapto
> para que funcione con nuestros servidores SQL)
>
> Un saludo,
>
> "Miguel Torrellas" <miguel@torrellas.net> escribió en el mensaje
> news:[email=5e4a623b225b8c81cb2c449dd60@news.xailer.com...]5e4a623b225b8c81cb2c449dd60@news.xailer.com...[/email]
> Ignacio Ortiz de Zúñiga,
--

Attached files PruebasSQL.zip (1.9 KB)Â

[ignacio]

Miguel,
Visto y solucionado. Espero que podamos sacar una PR7a muy pronto. Gracias
por tu colaboración.
Un saludo,
"Miguel Torrellas" <miguel@torrellas.net> escribió en el mensaje
news:[email=5e4a623b22668c81cc54a338d90@news.xailer.com...]5e4a623b22668c81cc54a338d90@news.xailer.com...[/email]
Ignacio Ortiz de Zúñiga,
Adjunto pongo proyecto. Comprueba que al abrir el data set reconfigura el
ancho de las columnas.
Accede directamente a mi servidor SQL Server 2000, por lo que es posible que
a según que horas no este conectado ya que es solo para pruebas.
> Miguel,
>
> Compruebo que NO SE PIERDEN las columnas del browse al hacer Close() y
> luego un Open() en su Dataset. He puesto este sencillo código en un
> browse sobre una tabla abierta con FireBird y funciona sin problemas:
>
> METHOD Button1Click( oSender ) CLASS TForm1
>
> WITH OBJECT ::oOdbcDataSet1
> :Close()
> :cSelect := "select * from clientes where Nombre like 'A%'"
> :Open()
> END WITH
> RETURN Nil
>
> Intente acorralar el problema quitando todo el código posible o
> mandame un ejemplo muy sencillo donde pueda reproducirlo (ya lo adapto
> para que funcione con nuestros servidores SQL)
>
> Un saludo,
>
> "Miguel Torrellas" <miguel@torrellas.net> escribió en el mensaje
> news:[email=5e4a623b225b8c81cb2c449dd60@news.xailer.com...]5e4a623b225b8c81cb2c449dd60@news.xailer.com...[/email]
> Ignacio Ortiz de Zúñiga,

[miguel]

Ignacio Ortiz de Zúñiga,
Gracias a ti por la prontitud de tus respuestas.
> Miguel,
>
> Visto y solucionado. Espero que podamos sacar una PR7a muy pronto.
> Gracias por tu colaboración.
>
> Un saludo,
>
> "Miguel Torrellas" <miguel@torrellas.net> escribió en el mensaje
> news:[email=5e4a623b22668c81cc54a338d90@news.xailer.com...]5e4a623b22668c81cc54a338d90@news.xailer.com...[/email]
> Ignacio Ortiz de Zúñiga,
> Adjunto pongo proyecto. Comprueba que al abrir el data set reconfigura
> el
> ancho de las columnas.
> Accede directamente a mi servidor SQL Server 2000, por lo que es
> posible que
> a según que horas no este conectado ya que es solo para pruebas.
>> Miguel,
>>
>> Compruebo que NO SE PIERDEN las columnas del browse al hacer Close()
>> y luego un Open() en su Dataset. He puesto este sencillo código en un
>> browse sobre una tabla abierta con FireBird y funciona sin problemas:
>>
>> METHOD Button1Click( oSender ) CLASS TForm1
>>
>> WITH OBJECT ::oOdbcDataSet1
>> :Close()
>> :cSelect := "select * from clientes where Nombre like 'A%'"
>> :Open()
>> END WITH
>> RETURN Nil
>> Intente acorralar el problema quitando todo el código posible o
>> mandame un ejemplo muy sencillo donde pueda reproducirlo (ya lo
>> adapto para que funcione con nuestros servidores SQL)
>>
>> Un saludo,
>>
>> "Miguel Torrellas" <miguel@torrellas.net> escribió en el mensaje
>> news:[email=5e4a623b225b8c81cb2c449dd60@news.xailer.com...]5e4a623b225b8c81cb2c449dd60@news.xailer.com...[/email]
>> Ignacio Ortiz de Zúñiga,

[miguel]

Hola:
Pretendo sobrecargar las clases TOdbcDataSource y TOdbcDataset, al igual que ya lo he hecho con otras clases heredeando de su correspondiente X??????.
Adjunto pongo Proyecto y fichero de error.
La cadena de conexión funciona perfectamente sin sobrecargar las clases, ademas con el Debug veo que se llega a conectar. Ese no es el error. Se produce cuando se ejecuta el metodo TOdbcDataset:open().
¿Que hago mal?. Ayuda por favor.
Saludos. Miguel A. Torrellas
--

Attached files Error.log (1.3 KB)Â pruebas.zip (1.9 KB)Â

[ignacio]

Miguel,
El error es nuestro por definir algun miembro private en vez de protected.
Ya está solucionado. Gracias.
Un saludo,
"Miguel Torrellas" <miguel@torrellas.net> escribió en el mensaje
news:[email=5e4a623b28ee8c8342d12335960@news.xailer.com...]5e4a623b28ee8c8342d12335960@news.xailer.com...[/email]
Hola:
Pretendo sobrecargar las clases TOdbcDataSource y TOdbcDataset, al igual que
ya lo he hecho con otras clases heredeando de su correspondiente X??????.
Adjunto pongo Proyecto y fichero de error.
La cadena de conexión funciona perfectamente sin sobrecargar las clases,
ademas con el Debug veo que se llega a conectar. Ese no es el error. Se
produce cuando se ejecuta el metodo TOdbcDataset:open().
¿Que hago mal?. Ayuda por favor.
Saludos. Miguel A. Torrellas