HMGforum.com

Code: Select all

function sql(dbo1,qstr)
   local i, j
   local table := nil
   local currow := nil
   local tablearr := {}
   local rowarr := {}
   local curdateformat := set(_SET_DATEFORMAT)
   set date ansi
   table := dbo1:query(qstr)
   if table:neterr()
      msgstop(table:error())
      table:destroy()
      set(_SET_DATEFORMAT,curdateformat)
      return tablearr
      
   else
      if table:lastrec() > 0
         asize(tablearr,0)
         for i := 1 to table:lastrec()
            asize(rowarr,0)
            currow := table:getrow(i)
            for j := 1 to table:fcount()
               aadd(rowarr,currow:fieldget(j))
               //msgbox(currow:fieldget(j))
            next j
	         aadd(tablearr,aclone(rowarr))
         next i
      endif
      table:destroy()
      set(_SET_DATEFORMAT,curdateformat)
      return tablearr
   endif
return tablearr