Tdolphin consulta - Resolvido

[aferra]

tenho um campo onde digito o código, antes eu fazia assim

::oDbf:Seek( cCodigo ) //database que nada mais é do que <alias>->( dbSeek( cCodigo ) )

como faço isso com SQL?

[joaosolution]

Alessandro

Boa tarde

cSql := "Select codigo,nome From Tabela Where codigo="+Str(cCodigo,5)

SqlArray(cSql)

Att

João Bosco

[aferra]

Bom dia João, obrigado, tinha receio de ser isso, kkkkkkk, mesmo eu já tendo um select, é isso mesmo? tentarei explicar.

faço o select e posiciono no ultimo registro

abro a dialog mostrando o ultimo registro

tenho o campo código onde o cliente pode pesquisar outro código e ai seria outro select e atualizar a tela, é isso?

não é redundante? vai ficar lento se fizer várias vezes?, tenho que eliminar o select anterior?

só achei como fazer mas na prática tenho essas dúvidas.

obrigado mais uma vez

PS: Aproveitando como seria o select com dois campos, exemplo: tipo + codigo

[Valdir]

^Ale...

O oBrw:Seek() não resolveria o seu problema ?

[aferra]

fala Valdir, no caso não é browse, embora estou testando o oQry:Seek(...) deu certo, mas não sei ao certo em rede com o quesito lentidão, e ai entra as dúvidas,

[aferra]

Voltando ao tema, a pergunta é assim, tenho um browse e um campo get onde irei fazer dois tipos de pesquisas, um a consulta normal where campo == cCodigo e outra usando LIKE a pergunta é possa fazer o select do primeiro e depois o segundo e assim por diante ou tenho que entre uma e outra consulta "zerar" o select? ou não tem nada haver a minha pergunta, hehehehehehehehe

P.S.: não serão feitas ao mesmo tempo, são opções, eu poderia usar uma ou outra a questão é fiz a pesquisa achei agora quero achar outra

[Valdir]

Ale...

Use a função de Pesquisa Incremental da Tdolphin diretamente na Coluna da xBrowse()

Assim :

@ 30, 0 XBROWSE oBrw OF oDlg OBJECT oQry FONT oFontLbx AUTOSORT ;

COLUMNS "CODI", "FANT", "RAZA", "FONE", "CIDA", "NCGC","NINSC" ;

PICTURES ,,,"@R (99) 9999-9999",,"@R 99.999.999/9999-99","@R 999.999.999.999" ;

COLSIZES 80, 300, 450, 150, 200, 150, 150 ;

HEADERS;

OemToAnsi("C¢digo"),;

"Nome Fantasia",;

OemToAnsi("RazÆo Social"),;

"Fone",;

"Cidade",;

"C.N.P.J.",;

"Insc. Estadual" ;

PIXEL SIZE 475, 230 LINES ;

UPDATE

@ 270,10 say "Texto de Pesquisa" FONT oFontLbx COLOR CLR_HBLUE pixel size 300, 15

@ 280,10 say oBrw:oSeek prompt "" FONT oFont1 COLOR CLR_HBLUE pixel size 300, 15

Clicar no Headers da Coluna e digitar o Texto a ser pesquisado.

Isso vale para toas as colunas da xBrowse()

Só não sei te dizer se dá certo usar com o LIKE..

[aferra]

Valdir, blz?

sim estou usando, mas no programa antigo eu fazia tb uma procurando usando o WildSeek do CDX e ai preciso manter o padrão, embora o que estudei no sql posso trazer tudo na tela, mas não consigo, faço a primeira pesquisa com "Brasil" e não acho tenho que clicar no botão e procurar em qualquer lugar que tenha "Brasil" mas essa pesquisa não vai, então preciso entender o funcionamento do sql, se tenho que zerar tudo ( como zerar ) ou se existe alguma maneira de me retornar o que preciso...

grande abraço.

[joaosolution]

Alessandro

Bom dia

Eu faço assim:

Abro o browse.

Tenho um Get, o usuário digita o nome e aciona o botão de consulta.

Executo o select com like do nome digitado.

Atualizo o browse com refresh() da consulta.

A pessoa digita outro nome, clica no botão de consulta.

Executo outro select com like do nome digitado.

Atualizo o browse com refresh() da consulta.

Att

João Bosco

[aferra]

Bom dia...

Vlw João, estava fazendo da maneira que vc falou, porem com sua "lista" eu fui mais detalhista e descobri o problema.

1 - não coloquei as aspas '%masterial%' do LIKE, kkkkkk

2 - como estou usando a TDolphin tem que incluir essa função da xbrowse oBrw:SetDolphin( oQry ), somente o refresh não vai.

e voila, tudo funcionando igual (melhor) que o antigo, claro! kkkkkk

agredecido.