Delphi 2009 LOCATE

Delphi

18/03/2012

Estou migrando um sistema do Delphi 7 para o Delphi 2009, esta dando erro no comando LOCATE, compila normalmente mas na execução da pesquina da o erro: Unsupported feature e não retorna o registro solicitado.
Firebird EBExpress(IBTable).

if dtmDados.tblMercad.Locate(Mer_Codigo,edtCodMer.Text,[]) = False then

Gostaria de continuar com o LOCATE.
Alecio Parmigiani

Alecio Parmigiani

Curtidas 0

Respostas

Joel Rodrigues

Joel Rodrigues

18/03/2012

Tente o seguinte:

tabela.LocateNext(NOME,EDT_FILTRO.Text,[loCaseInsensitive, loPartialKey]);
GOSTEI 0
Alecio Parmigiani

Alecio Parmigiani

18/03/2012

Obrigado Joel, Não deu mais o erro, inclui Variants no Uses.
GOSTEI 0
Robert Camargo

Robert Camargo

18/03/2012

Obrigado Joel, Não deu mais o erro, inclui Variants no Uses.


Olá Joel, estou tentando fazer um locate pra exibir o nome do cliente quando eu digitar um codigo no dbEdit mas está dando erro

o codigo é esse:

DataModule1.TabelaClientes.open;
DataModule1.TabelaVendas.open;
DataModule1.TabelaVendas.Edit;
DataModule1.TabelaVendasNomeCli.Value:=
DataModule1.TabelaClientes.Locate('NomeCli', DBEdit4.text,[loPartialkey, loCaseInsensitive]);(Está dando erro nessa linha)
GOSTEI 0
Alecio Parmigiani

Alecio Parmigiani

18/03/2012

Robert, tenta fazer assim.

DataModule1.TabelaClientes.open;
DataModule1.TabelaVendas.open;
DataModule1.TabelaVendas.Edit;
//DataModule1.TabelaVendasNomeCli.Value:=
DataModule1.TabelaClientes.Locate('NomeCli', DBEdit4.text,[loPartialkey, loCaseInsensitive]);(Está dando erro nessa linha)
DataModule1.TabelaVendasNomeCli.Value:= DataModule1.TabelaClientesNomeCli.Value;
GOSTEI 0
POSTAR