FiveTech Support Forums

#include "FiveWin.ch"

function Main()

   local oChat := TDeepSeek():New()
   local dummy := FW_SetUnicode( .T. )
   local cDatabase := "foros_antiguos"
   local oCn   := maria_Connect( "localhost," + cDatabase + ",fivetec1_antonio,1234", .T. )
   local aTables, cTable
   local hDatabase := { => }, cJson

   if oCn == nil
      MsgAlert( "Error connecting to database" )
      return nil 
   endif   

   aTables = oCn:ListBaseTables()

   for each cTable in aTables
      hDatabase[ cTable ] = oCn:ListColumns( cTable ) 
   next   

   oChat:Send( "tell me the SQL sentence to list the 10 more active users in the forums using this info," + ;
               " give me the SQL sentence, no explanations. Remove the '''SQL from the beginning and the ''' from the end: " + ;
               hb_jsonEncode( hDatabase ) )
   XBrowser( oCn:Execute( oChat:GetValue() ) )

   oChat:End()

return nil