tDolphin ::Refresh() no funciona

[Willi Quintana]

Hola Daniel...
cuando se usa Refresh() el método no halla la tabla correspondiente:

oDatos := oCon:Execute("Select * from productos.articulos")
..
..
..
oDatos:Refresh() // <- aquí indica que ho existe productos.articulos

Salu2

[Biel EA6DD]

El método Execute solo devuelve si se ha ejecutado correctamente (.t. o .f.).

[sysctrl2]

el método execute, no es para eso,

oDatos := oCon:Query("Select * from productos.articulos")
oDatos:refresh()

[Willi Quintana]

Lo siento, error mio...

oDatos := oCon:Query("Select * from productos.articulos")
..
..
..
oDatos:Refresh() <-el error es aquí, indica euq no existe productos.articulos

[Armando]

Mr.

No conozco TDolphin pero razonándolo me parece que el error
puede estar en el punto(.), no?

Con MySql el punto se utiliza para separar la DATABASE del campo o columna
cuando el nombre del campo es igual en más de una DATABASE y tal vez
lo que tu deseas es abrir dos tablas (Productos y Articulos) entonces podría
ser

Code: Select all  Expand view  RUN

oDatos := oCon:Query("Select * from productos , articulos")
 

Solo una idea

Saludos

[MarioG]

Willi:
No se cual es tu intención con el :Refresh(); pero yo, luego de hacer un Query, no necesito del refresh

Code: Select all  Expand view  RUN

  oQry:= oSrv:Query( "SELECT desc_div FROM divisiones ORDER BY id_div" )

   // Dialogo
   DEFINE DIALOG soDlg1 RESOURCE "dlg_Browse" OF oWnd TITLE "Divisiones"
   soDlg1:lHelpIcon:= FALSE

   REDEFINE XBROWSE oBrw OBJECT oQry ID 500 ;
            AUTOCOLS AUTOSORT HEADERS "Divisiones"       // El browse se muestra correctamente
   ...
   ...
 

Para saber si existes datos a mostrar, si fuera el caso de no querer mostrar el browse vacio, lo que hago es primero consultar con un Count()

[joseluisysturiz]

El refresh deberia ser en el Xbrowse para que actualice la data, en el query creo como dice el colega, no es necesario, a menos que hagas algo directamente a la tabla de donde hicistes el query, entonces el refresh si lo uso para que actualice la consulta y luego el xbrowse si es el caso, saludos...

[goosfancito]

hola.
a mi me pasa esto a ver si pueden guiarme.

hago una consulta por el campo fecha,
y relleno un xbrowse,
luego un boton que hace la misma consulta pero con una fecha diferente.
hago un refresh() del xbrowse y los datos siguen quedando los viejos,
si la consulta devuelve datos si lo muestra, pero si no existen datos quedan los viejos.

porque?
gracias.

[goosfancito]

las consultas las hago de esa forma willyy

Code: Select all  Expand view  RUN

local oQry

define query oQry "SELECT * FROM tbdatos.clientes"
 

[Willi Quintana]

Hola sr.
prueba con :
oQuery:LoadQuery()

[goosfancito]

negativo!

Cuando la consulta es simple:

Code: Select all  Expand view  RUN

select * from tbclientes"

la cosa funciona de diez.

Ahora esto:

Code: Select all  Expand view  RUN

 DEFINE query ::oQry "select " +;
      "tbfacturas.fecha as c1, " +;
      "tbfacturados.descripcion as c2, " +;
      "tbfacturados.cantidad as c3, " +;
      "tbfacturados.precio as c4, " +;
      "tbfacturados.idfactura c5 "+;
      "from " +;
      "tbfacturas " +;
      "left join tbfacturados " +;
      "on tbfacturas.id = tbfacturados.idfactura " +;
      "where tbfacturas.fecha = " + ClipValue2SQL(vGets[1])+;
      " order by tbfacturados.descripcion"

No anda. o sea hago la consulta y cuando "refresco" el xbrowse no aparece el resultado de la nueva consulta, y otra coosa que cuando aparecen (en el primer caso que es simple) las columnas cuando haces click "NO SE ORDENAN" a no ser que, luego de hacerle click a la columna que queres que se ordene, muevas el mouse "fuera del listbox que es el que utilizo para el xbrowse".

[MarioG]

Gus;
meto la cuchara en la parte de establecer Orden.
Si en la declaración del xBrowse agregas AUTOSORT, te aparecerá ordenado por la columna que indique el índice asociado y mostrará el triángulo sobre el header correspondiente.

[goosfancito]

Asi es Mario,
Pero al momento de hacerle click a la columna 2, muuestra el triangulito pero no muestra ordenada la columna HASTA QUE sacas el mouse del mismo xbrowse o presionas tab y pasas el foco a otro control.
Con el solo hecho de sacar el mouse desde arriba del xbrowse ahi se entera que tiene que mostrar denuevo los datos y si! muestra esa columna 2 ordenada.

Gracias.

[MarioG]

mmmm... si me esta pasando con un xBrowse y datos de una DBF
Mañana me fijo, creo que tengo un codigo que forzaba el orden haciendo clic en la columna

[Willi Quintana]

Hola amigos, :refresh() y :loadquery()en Doplhin, solo funciona con setencias simples..., cuando en la sentencia hay m,as de una tabla involucrada, no va... pero hay solución

Code: Select all  Expand view  RUN

cDatos := "select " +;
      "tbfacturas.fecha as c1, " +;
      "tbfacturados.descripcion as c2, " +;
      "tbfacturados.cantidad as c3, " +;
      "tbfacturados.precio as c4, " +;
      "tbfacturados.idfactura c5 "+;
      "from " +;
      "tbfacturas " +;
      "left join tbfacturados " +;
      "on tbfacturas.id = tbfacturados.idfactura " +;
      "where tbfacturas.fecha = " + ClipValue2SQL(vGets[1])+;
      " order by tbfacturados.descripcion"

eDatos := {|| query :=  ::Query(cDatos)}

EVAL(eDatos)   // evaluas la sentencia cuando lo requieras, que al final es lo mismo que el ::refresh()
...
...