localizar
como faço para localizar um determinado nome e uma tabela paradox
Tragster
Curtidas 0
Respostas
Smaug_84
24/10/2003
use o objeto session
por exemplo:
procedure TForm1.Button1Click(Sender: TObject);
var
list : tStringList;
begin
list := TStringList.Create;
session.GetTableNames(´databasename´,,);
Session.GetTableNames(´databasename´, ´*.db´,False, False, list);
end;
por exemplo:
procedure TForm1.Button1Click(Sender: TObject);
var
list : tStringList;
begin
list := TStringList.Create;
session.GetTableNames(´databasename´,,);
Session.GetTableNames(´databasename´, ´*.db´,False, False, list);
end;
GOSTEI 0
Smaug_84
24/10/2003
obs
na parte uses, coloque DbTables
na parte uses, coloque DbTables
GOSTEI 0
Henry
24/10/2003
Brother, eu uso assim. Se o campo nome for a chave primaria, use isso;
Table1.findkey([edit1.text]);
Se não for, coloque um componente query, se vc tiver usando BDE né. e num button bote.
query1.close;
query1.sql.clear;
query1.sql.add(´select nome from tabela where nome like ´´+ edit1.text + ´´);
query1.open;
Isso acho que deve te ajudar. Qualquer coisa entre em contato comigo, blz?
Um abraço, Henry.
Table1.findkey([edit1.text]);
Se não for, coloque um componente query, se vc tiver usando BDE né. e num button bote.
query1.close;
query1.sql.clear;
query1.sql.add(´select nome from tabela where nome like ´´+ edit1.text + ´´);
query1.open;
Isso acho que deve te ajudar. Qualquer coisa entre em contato comigo, blz?
Um abraço, Henry.
GOSTEI 0
Ggean
24/10/2003
Table1.locate(´nome_do_campo´,Edit1.text,[opcao]);
onde Opcao é:
loPartialKey: Procura parte do que tem no Edit;
loCaseInsitive: Busca Exatamento o que tem no Edit;
onde Opcao é:
loPartialKey: Procura parte do que tem no Edit;
loCaseInsitive: Busca Exatamento o que tem no Edit;
GOSTEI 0