Pesquisa em Tabela MySql
Por Favor !!!!
Preciso de ajuda para resolver um problema. Sempre que faço uma pesquisa em um campo de uma tabela em MySQL com o componente Table do ZeosDBO, ele dá um erro no Delphi.
Quero localizar o codigo do cliente pra ver se ele já tem cadastro. Estou utilizando o código seguinte:
if tbl.Locate(tblCodigo.asstring,VarArrayof([maskedit1.text]),[loCaseInsensitive]) then
begin
ShowMessage(´Cliente já cadastrado´);
end;
O problema é que quando execudo, da um erro dizendo :
- List Index Error at 2002002001 (que é o primeiro codigo cadastrado na tabela).
Como resolvo este problema ?
Preciso de ajuda para resolver um problema. Sempre que faço uma pesquisa em um campo de uma tabela em MySQL com o componente Table do ZeosDBO, ele dá um erro no Delphi.
Quero localizar o codigo do cliente pra ver se ele já tem cadastro. Estou utilizando o código seguinte:
if tbl.Locate(tblCodigo.asstring,VarArrayof([maskedit1.text]),[loCaseInsensitive]) then
begin
ShowMessage(´Cliente já cadastrado´);
end;
O problema é que quando execudo, da um erro dizendo :
- List Index Error at 2002002001 (que é o primeiro codigo cadastrado na tabela).
Como resolvo este problema ?
Frampton
Curtidas 0
Respostas
Luciano Pimenta®
07/02/2003
Posso estar enganado, mas vc deve usar o Locate assim:
if tbl.Locate(´CODIGO´,maskedit1.text,[]) then
o 1º parametro é o campo da tabela, no 2º esta certo, e como é código não uso locaseinsensitive.
T+
:)
if tbl.Locate(´CODIGO´,maskedit1.text,[]) then
o 1º parametro é o campo da tabela, no 2º esta certo, e como é código não uso locaseinsensitive.
T+
:)
GOSTEI 0