FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour STORE PROCEDIRE Return Array Mr. Rao
Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
STORE PROCEDIRE Return Array Mr. Rao
Posted: Thu Feb 03, 2022 02:52 PM

Mr. Rao

oProd := oCn:Call( "proc001" ) // does not work in remote server, only in local mode
///-----------
oProd := oCn:Execute( "CALL proc001" ) // works, but the dates of the returns in array

I´m use MariaDb and Harbour
Thanks

Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: STORE PROCEDIRE Return Array Mr. Rao
Posted: Wed Feb 09, 2022 03:22 AM

Any Idea???

nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: STORE PROCEDIRE Return Array Mr. Rao
Posted: Sun Feb 13, 2022 09:12 AM

Please see my response in your other thread.

Even for normal queries like "SELECT ..."
oCn:RowSet(..) or oCn:Query(...) returns a RowSet object

oCn:Execute( query ) returns an array of the same data
if you immediately follow with another call oCn:Execute() without parameters, it returns the structure of the previous query as an array

Regards



G. N. Rao.

Hyderabad, India
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: STORE PROCEDIRE Return Array Mr. Rao
Posted: Sun Feb 13, 2022 04:13 PM
Please let me know your FWH version.
Is the cloud server MySql or MariaDB?

Please help me to find a soluton.

Please run this code and let me know the results:
Code (fw): Select all Collapse
oCn := maria_Connect( ......... )
oCn:lShowErrors := .t.

? oCn:cServerInfo
? oCn:OS
? oCn:IsProcedure( "proc001" )
xbrowser oCn:ListProcedures()

oProd := oCn:Call( "proc001" )
oProd := oCn:CallSP( "proc001" )
aProd := oCn:Execute( "CALL proc001" )
aProd := oCn:Execute( "CALL proc001()" )

Please let me know the results.
If you get any errors, let me know the errors.
Regards



G. N. Rao.

Hyderabad, India
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: STORE PROCEDIRE Return Array Mr. Rao
Posted: Sun Feb 13, 2022 04:13 PM
Please let me know your FWH version.
Is the cloud server MySql or MariaDB?

Please help me to find a soluton.

Please run this code and let me know the results:
Code (fw): Select all Collapse
oCn := maria_Connect( ......... )
oCn:lShowErrors := .t.

? oCn:cServerInfo
? oCn:OS
? oCn:IsProcedure( "proc001" )
xbrowser oCn:ListProcedures()

oProd := oCn:Call( "proc001" )
oProd := oCn:CallSP( "proc001" )
aProd := oCn:Execute( "CALL proc001" )
aProd := oCn:Execute( "CALL proc001()" )

Please let me know the results.
If you get any errors, let me know the errors.
Regards



G. N. Rao.

Hyderabad, India
Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: STORE PROCEDIRE Return Array Mr. Rao
Posted: Mon Feb 14, 2022 01:40 AM
Mr Rao, heloo.. Is Ok in local mode

Code (fw): Select all Collapse
? oCn:cServerInfo                            5.5.5.-10.5.6. MariaDb
? oCn:OS                                         Win64 
? oCn:IsProcedure( "proc001" )        .t.
xbrowser oCn:ListProcedures()       ok

oProd := oCn:Call( "proc001" )
?, VALTYPE(oProd)                        0
? oProd:producto                          PRUEBA DE DATOS

oProd := oCn:CallSP( "proc001" )
? VALTYPE(oProd)                        0
? oProd:producto                        PRUEBA DE DATOS

aProd := oCn:Execute( "CALL proc001" )
? VALTYPE(oProd)                        0
? oProd:producto                        PRUEBA DE DATOS

aProd := oCn:Execute( "CALL proc001()" )
? VALTYPE(oProd)                        O
? oProd:producto                        PRUEBA DE DATOS

*******************************************************

Function CargaStoreProc(oCn)
local cProc, oDatos

cProc  := "SELECT specific_name FROM information_schema.routines WHERE specific_name = 'proc001'"
oDatos := oCn:Query(cProc)

? oDatos:RecCount()

If oDatos:RecCount() = 0                 // no existe el procedure  y lo creamos

  cProc := "CREATE PROCEDURE inversiones2bhs.proc001() "
  cProc += "SELECT productos.cod_producto, productos.producto, productos.precio_venta1, productos.unidad, productos.saldo, productos.cod_proveedor, productos.cod_marca, productos.cod_grupo, productos.codbar1, 
                            productos.codbar2, productos.observaciones, proveedor.razon_social, marca.detalle AS marca, grupo.detalle AS grupo "
  cProc += "FROM productos "
  cProc += "LEFT JOIN proveedor ON productos.cod_proveedor = proveedor.ruc_dni "
  cProc += "LEFT JOIN marca ON productos.cod_marca = marca.codigo "
  cProc += "LEFT JOIN grupo ON productos.cod_grupo = grupo.codigo "
  cProc += "ORDER BY productos.producto"

  oCn:Execute(cProc)
  if oCn:nError != 0    //     //     //
    Return(.f.)
  EndIf

Endif

Return(.t.)
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: STORE PROCEDIRE Return Array Mr. Rao
Posted: Mon Feb 14, 2022 02:10 AM

Please run the same queries on cloud server.
Is the user database name on cloud server also is inversiones2bhs ?

Regards



G. N. Rao.

Hyderabad, India
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: STORE PROCEDIRE Return Array Mr. Rao
Posted: Mon Feb 14, 2022 02:33 AM
Recommended:
Code (fw): Select all Collapse
function CargaStoreProc( oCn )

   local cSql
   local lRet  := .t.
   
   if !oCn:IsProcedure( "proc001" )
      
TEXT INTO cSql
CREATE PROCEDURE proc001()
 BEGIN
  SELECT productos.cod_producto, productos.producto, productos.precio_venta1, 
         productos.unidad, productos.saldo, productos.cod_proveedor, 
         productos.cod_marca, productos.cod_grupo, productos.codbar1,
         productos.codbar2, productos.observaciones, proveedor.razon_social, 
         marca.detalle AS marca, grupo.detalle AS grupo "
  FROM productos
  LEFT JOIN proveedor ON productos.cod_proveedor = proveedor.ruc_dni
  LEFT JOIN marca ON productos.cod_marca = marca.codigo
  LEFT JOIN grupo ON productos.cod_grupo = grupo.codigo
  ORDER BY productos.producto
 END
ENDTEXT

     oCn:Execute( cSql )
     lRet   := ( oCn:nError == 0 )

   endif

return lRet


Note the key words "BEGIN" and "END" at the beginning and end of the procedure.
Regards



G. N. Rao.

Hyderabad, India
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: STORE PROCEDIRE Return Array Mr. Rao
Posted: Mon Feb 14, 2022 02:33 AM
Recommended:
Code (fw): Select all Collapse
function CargaStoreProc( oCn )

   local cSql
   local lRet  := .t.
   
   if !oCn:IsProcedure( "proc001" )
      
TEXT INTO cSql
CREATE PROCEDURE proc001()
 BEGIN
  SELECT productos.cod_producto, productos.producto, productos.precio_venta1, 
         productos.unidad, productos.saldo, productos.cod_proveedor, 
         productos.cod_marca, productos.cod_grupo, productos.codbar1,
         productos.codbar2, productos.observaciones, proveedor.razon_social, 
         marca.detalle AS marca, grupo.detalle AS grupo
  FROM productos
  LEFT JOIN proveedor ON productos.cod_proveedor = proveedor.ruc_dni
  LEFT JOIN marca ON productos.cod_marca = marca.codigo
  LEFT JOIN grupo ON productos.cod_grupo = grupo.codigo
  ORDER BY productos.producto
 END
ENDTEXT

     oCn:Execute( cSql )
     lRet   := ( oCn:nError == 0 )

   endif

return lRet


Note the key words "BEGIN" and "END" at the beginning and end of the procedure.
Regards



G. N. Rao.

Hyderabad, India
Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: STORE PROCEDIRE Return Array Mr. Rao
Posted: Mon Feb 14, 2022 02:47 AM
Mr. Rao, Thanks
Code (fw): Select all Collapse
//local mode.   local lan    

CargaStoreProc(oCn)

? oCn:cServerInfo                      5.5.5-10.5.6-MariaDB
? oCn:OS                               Win64
? oCn:IsProcedure( "proc001" )         .t.

xbrowser oCn:ListProcedures()          LIst View with "proc001" in register        

oProd := oCn:Call( "proc001" )        
? VALTYPE(oProd)                       O
? oProd:producto                       ACEITE VEGETAL

oProd := oCn:CallSP( "proc001" )
? VALTYPE(oProd)                       O
? oProd:producto                       ACEITE VEGETAL

aProd := oCn:Execute( "CALL proc001" )
? VALTYPE(oProd)                       O
? oProd:producto                       ACEITE VEGETAL

aProd := oCn:Execute( "CALL proc001()" )
? VALTYPE(oProd)                       O            
? oProd:producto                       ACEITE VEGETAL    

all OK

//remote mode.   in cloud    // cpanel

CargaStoreProc(oCn)

? oCn:cServerInfo                      5.6.41-84.1
? oCn:OS                               Linux
? oCn:IsProcedure( "proc001" )         .f.

xbrowser oCn:ListProcedures()          empty        

oProd := oCn:Call( "proc001" )        
? VALTYPE(oProd)                       U
? oProd:producto                       error
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: STORE PROCEDIRE Return Array Mr. Rao
Posted: Thu Feb 17, 2022 02:18 PM

That means the procedure could not be created on the cloud server.
Please check if your cloud server permits you to create procedures,triggers,etc on the server.
Some cloud servers do not permit.

Please also check this.
You are creating procedures with databasename included. Please check if that name is correct.
Recommended to create without including database name, so that the procedure is created in the current db.

Regards



G. N. Rao.

Hyderabad, India
Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: STORE PROCEDIRE Return Array Mr. Rao
Posted: Thu Feb 17, 2022 03:27 PM

Thanks for your advice Mr. Rao

Continue the discussion

Static archive · New replies & topics via GitHub Discussions