FiveTech Software tech support forums

Code: Select all

Em SQL 

  AdsCreateSqlStatement("CLIENTES",3)
  (CLIENTES)->(AdsPrepareSQL("SELECT DISTINCT CLIENTE FROM CLIENTES WHERE CONTAINS(NOME,'EDUARDO SILVA')")
  (CLIENTES)->(AdsExecuteSQL())
  CLIENTES->(xBrowse())
  

Em Rdd Pure Harbour
  cAof := "CONTAINS(NOME,'EDUARDO SILVA')"
  USE CLIENTES ALIAS CLIENTES NEW
  CLIENTES->(AdssetAof(cAof))
  CLIENTES->(xBrowse())

Em Tads Rdd
  cAof := "CONTAINS(NOME,_NomePesquisa_)"
  aVars := {}
  aadd(aVars,{"_NomePesquisa_","EDUARDO SILVA"})
  oDb_Clientes := tAds():RddNew("CLIENTES")
  oDb_Clientes:Filter(cAof,aVars)
  (oDs_Clientes:cAlias)->(xBrowse())

Em Tads DataSet
  oDs_Clientes := tAds():DsNew(1)
  oDs_Clientes:cQrySql := "SELECT DISTINCT CLIENTE FROM CLIENTES WHERE CONTAINS(NOME,_NomePesquisa_)" 
  oDs_Clientes:DsAddVar("_NomePesquisa_","EDUARDO SILVA")
  oDs_Clientes:dsExecute()
  (oDs_Clientes:cAlias)->(xBrowse())