PC Toledo

Código: Selecionar todos

  #include "ADS.CH"
  rddRegister( "ADS", 1 )
  SET SERVER LOCAL
  vSql:=[Select * from clientes]
  vArqLan := EXECUTA_SQL(vSql,[CTLANCAM])

FUNCTION EXECUTA_SQL(vSql,vAlias,vINd1)
//   Local vArea    := Alias()
   Local xNomeArq :=Cria_Nometmp()
   Local xErro    := 0
//   Local nArea :=Select()
   local nErr, nPos
*   if vArea#''
*     close &vArea
*   endif

   if mDriver=[SQLRDD]
      oSql   := SR_GetConnection()
      select 0   // for‡a selecionar uma nova area
      apCode := SR_SQLParse( vSql, @nErr, @nPos )
      cComm  := SR_SQLCodeGen( apCode, , oSql:nSystemID )
      xErro := oSql:exec( cComm,,.t.,[teste], M_DIRTMP+[\]+xNomeArq,vAlias )
//      xErro := oSql:exec( cComm,,.t.,[teste], M_PTDIRET3+[\]+xNomeArq,vAlias )

//      use &cComm alias &vAlias via mDriver new

      if xErro#0
         M_Aviso([Erro na execu‡Æo do sql ]+Str(xErro))
      endif
      if vInd1#nil
        CriaIndice(xNomeArq,vINd1)
      endif
      return Alias()

   else
   //   IF adsGetConnectionHandle() == 0
         adsConnect( "c:\SIS\FIRMA1") // this is the path to your .dbf/.cdx files
   //   ENDIF
      IF !adsCreateSqlStatement ("alias_sql", 2) // alias_sql is a alias to be used in the browse bellow
         alert( "Cannot create SQL statement" )
      ELSE
         IF !adsExecuteSqlDirect ( vSql )
            M_Aviso([Erro na execu‡Æo do sql ]+Str(xErro))
         ENDIF
      ENDIF
   RETURN



   endif

return .t.

FUNCTION INV_DT_SQL(vData)
   Local vSql:=[]
   IF  MDSN=[MSSQL]
       vSql:=vData
   ELSE
       vSql:=Subst(vData,4,2)+[/]+Left(vData,2)+Right(vData,5)
   ENDIF
return vSql