Problema con Listbox y MariaDB

[JoseAlvarez]

Hola a todos.

Saludos.

tengo la siguiente situación:

una tabla con dos registros de 36 campos (mariaDB)

y hago la siguiente consulta:

Code: Select all  Expand view

cTabla    := _cPrefijo+"_articulos"
cQuery    := "Select * from "+cTabla +" ORDER BY descripcion"
oArticulos:= _oSqlConex:Query( cQuery )    
 

luego mando a hacer esto:

Code: Select all  Expand view

Redefine ListBox oListbox fields oArticulos:codigo_fabrica , oArticulos:descripcion ,oArticulos:codigo_interno  ;
             Id 10 of oDlg Headers 'Código Fábrica','Descripción','Modelo' FieldSizes  170 , 410 , 100
 

resulta que muestra en el listbox un solo registro y repetido 39 veces




ahora bien, si hago esto:

Code: Select all  Expand view

cTabla    := _cPrefijo+"_articulos"
cQuery    := "Select * from "+cTabla +" ORDER BY descripcion"
oArticulos:= _oSqlConex:Query( cQuery )  

aArreglo :=oArticulos:FillArray()   //hago una copia del resultado de la consulta

Redefine ListBox oListbox fields aArreglo[oListbox:nAt,1] , aArreglo[oListbox:nAt,2] , aArreglo[oListbox:nAt,3]  ;
             Id 10 of oDlg Headers 'Código Fábrica','Descripción','Modelo' FieldSizes  170 , 410 , 100
 

Funciona perfecto y muestra los 2 registros con su informacion correcta.



En el listbox tengo colocado : oListbox:SetArray( oArticulos ) o oListbox:SetArray( aArreglo ) segun el caso

Pregunto: ¿Por que falla usando directamente el resultado de la consulta (oArticulos) pero si trabajo sobre una copia del mismo lo hace bien?
Si consulto la longuitud de oArticulos me dice 39, lo que no es cierto, si consulto la longuitud de la copia es 2, como es correcto.

Como podrán ver, es imposible trabajar sobre una copia donde tengo que estar adivinando que elemento voy a mostrar (aArreglo[x,y])
en lugar de llamarlo por su nombre (oArticulo:codigo_fabrica)

Se agradece, como siempre, cualquier ayuda u orientacion pero sobre todo una explicacion de que esta sucediendo.
No soy para nada un experto en mysql/MariaDB. Estoy comenzando apenas.

Un abrazo.

[nageswaragunupudi]

Try

Code: Select all  Expand view

oListbox:SetObj( oArticulos )

[JoseAlvarez]

Hello Mr. Rao.

Thanks for your attention and help.

I already tried with oListBox: SetObj (oArticles) and got this error:

[nageswaragunupudi]

Possibly you are using a very old version of FWH.
May I know the version of FWH you are using?

[JoseAlvarez]

Fw 17.01+ xHarbour + PellesC

[nageswaragunupudi]

This method was not available in your version.

Please keep this function in one of your programs:

Code: Select all  Expand view

function LbxSetDolphin( oLbx, oQry )

   WITH OBJECT oLbx
      :bGoTop    = { || oQry:GoTop() }
      :bGoBottom = { || oQry:GoBottom() }
      :bSkip     = { |nSkip| oQry:Skip( nSkip ) }
      :bLogicLen = { || oQry:RecCount() }
      :cAlias    = "Array"                // Just put something
   END
   
return nil
 

After creating any listbox (wbrowse) please call this function like this:

Code: Select all  Expand view

LbxSetDolphin( oListBox, oAtriculos )
 

[JoseAlvarez]

Perfect Mr rao !
it works correctly !

Thank you very much for your kind help.

May I ask why that happens? I don't see a logical explanation if the difference in both cases is that one array is original and the other a perfect copy?

[JoseAlvarez]

Hello Mr. Rao.
I have a new problem with the LISTBOX and the query mariaDB.

In my table there are 2 records. I go to the corresponding function and assemble the query and the listbox like this:

Code: Select all  Expand view

cTabla   := _cPrefijo+"_usuarios"
cQuery   := "Select * from "+cTabla+" ORDER BY nombre"
oUsuarios:= _oSqlConex:Query( cQuery )
..
..
..
Redefine listbox oLbx fields oUsuarios:nombre         ,;
                             oUsuarios:nick_usuario   ,;
                             oUsuarios:telefono       ,;
                             oUsuarios:status_usuario ,;
          Id 10 of oDlg_Usuarios Headers 'Usuario'  ,;
                                         'Nick'     ,;
                                         'Teléfono' ,;
                                         'Status'   ,;
                                         FieldSizes  290 , 120 , 165 , 100
oLbx:SetArray( oUsuarios )
LbxSetDolphin( oLbx, oUsuarios )

we can see all good.

When calling the function to enter a new record and enter the data, I save with this:

Code: Select all  Expand view

cQuery :="INSERT IGNORE INTO "+ cTabla  + " SET "
cQuery +="nombre        :='"  + Val2escape (cNombreUsuario ) + "',"
cQuery +="telefono      :='"  + Val2escape (cTelefono ) + "',"
cQuery +="email         :='"  + Val2escape ( cMail )    + "',"
cQuery +="nick_usuario  :='"  + Val2escape (cNick )     + "',"
cQuery +="clave_usuario :='"  + Val2escape (cClave)     + "',"
cQuery +="notas         :='"  + Val2escape (cNotas )    + "';"

_oSqlConex:Execute( cQuery  )
 

then I do the query again

Code: Select all  Expand view

cQuery    := "Select * from "+cTabla+" ORDER BY nombre"  
oUsuarios := _oSqlConex:Query( cQuery )  

oLbx:SetArray(oUsuarios)      

when returning to the initial screen, the new inserted record is NOT SHOWN.



But if I go back to the menu and come back, I see everything correct.



In other words, the listbox does not take the update of the new query.

what could be happening? How do I update the listbox with the new content of the query?

Thanks in advance.