OrdWildSeek() Não funciona na libmysql?

[PJINFO]

Ola Pessoal!

Preciso de ajuda !

Não consigo usar a função OrdWildSeek() com tabelas mysql , apenas com DBF

Alguem sabe como me ajudar?

código:

cPesq:="PAULO"

CLIENTES->(OrdWildSeek("*"+cPesq+"*",.f.)

 

Obrigado.

[kapiaba]

http://www.pctoledo.com.br/forum/viewtopic.php?t=7266

[PJINFO]

 

http://www.pctoledo.com.br/forum/viewtopic.php?t=7266

Valeu Kapi.   

Vou verificar. dou retorno se funcionar.

Obrigado.

[PJINFO]

Não consegui entender o código, do link que você mandou.

Está faltando algumas coisas , ele usou funções próprias , ou desconhecidas por mim.

 

cr1:= "select clicod,clinom from cdcli000 where clinom like '%"
cr2:= "%' order by clinom"
local5:= seconds()
use (netname()) as cr1+rtrim(pesq_incr)+cr2 new scrollable overwrite
local6:= seconds()
if reccount() = 0
   RstEnv(Seek1)
   wvt_messagebox("Nao foi encontrado nenhum resultado.","ATENCAO",48)
   public env:= ((netname())->clinom)
   close (netname())
   select(Seek2)
   ordsetfocus("indcli02")      
   return nil
endif
nom = "C¢digo - RazÆo Social"
RstEnv(Seek1)
win(05,09,17,60,trim(str(reccount()))+;
iif(reccount() > 1," Cli. Encontrados"," Cli. Encontrado")+space(5)+str(local6-local5)+" Seg's","gr+/g","g/b")
iTb4:= tbcolumnnew(Nom, { || tran(clicod,"999999-9")+"  "+clinom })
iTb3:= TbrowseDB(06,10,16,59)

 

Exemplos: RstEnv(Seek1).               que função é esta?  E quando foi definido o valor de Seek1.

                  use (netname()) as cr1+rtrim(pesq_incr)+cr2 new scrollable overwrite.     da erro de compilação

Em fim não entendi o código...

De qualquer forma obrigado.

Vou continuar pesquisando.

 

Eu uso a SQLLIB e os comandos nativos convertidor pela LIB

Se eu usar o comando em SQL como eu pego o Result do SQLEXECUTE("SELECT...) ?

OBRIGADO.

 

[kapiaba]

Dear, suba o tópico no www.pctoledo.com.br   porfa. Cadestre-se se não for cadastrado. abs.

[PJINFO]

 

Dear, suba o tópico no www.pctoledo.com.br   porfa. Cadestre-se se não for cadastrado. abs.

Valeu Obrigado mesmo.

Vou fazer isso.

[PJINFO]

RESOLVIDO

O Marcelo da Marca Informática me ajudou.

cCod_Prod:="TIGRE"

cMysql:="select cod_est,descricao,referencia,valor_vend,saldo_atu,sql_rowid from PRODUTO where descricao like '%"+cCod_Prod+"%' order by descricao"
aProduto := SqlArray( cMysql,,) 
XBROWSE(aProduto)

 

Obrigado a todos.