Pesquisa banco de dados
25/03/2006
0
Olá pessoal é simples mas como estou aprendendo, lendo e com a ajuda de vcs preciso saber como eu faço para fazer uma pesquisa em uma coluna ou index, acho que seria o nome certo, em uma base de dados paradox sendo que apos eu fazer esta pesquisa os outros campos da mesma linha aparecesse em meus dbeedits por exemplo.
Este campo pode conter letras ou numeros
Este campo pode conter letras ou numeros
Rafael Roni
Curtir tópico
+ 0
Responder
Posts
25/03/2006
Luciano.sul
Faz assim coloca no teu form um Edit e um Button
No evento onclick do teu button informa o seguinte codigo
Abre a tabela (Tabela.Open).
if Not Tabela.Locate(´CampodaTabela´, Edit1.Text, [loPartialkey, loCaseInsensitive]) then
ShowMessage(´Não foi possivel encontral o registro´);
Acho que é isso ai...
No evento onclick do teu button informa o seguinte codigo
Abre a tabela (Tabela.Open).
if Not Tabela.Locate(´CampodaTabela´, Edit1.Text, [loPartialkey, loCaseInsensitive]) then
ShowMessage(´Não foi possivel encontral o registro´);
Acho que é isso ai...
Responder
25/03/2006
Alexandre_torres
Amigo,
Só complementando a resposta do nosso amigo luciano.sul, vc pode usar também o componente Query, com instruções sql, particularmente eu acho + rápido. vê ai...
Para pesquisa em campos strings
with DM.query1 do
begin
Close;
Sql.Clerar;
Sql.Add(´Select * From NomedaTabela ´);
Sql.Add(´where NomedoCampo = ´ + Edit1.text);
open;
end
Para pesquisa em campos integer, sugiro variáreis e parametros exemplo:
Var Variavel : Integer;
begin
Variavel := NomeDaTabelaNomeDoCampo.value;
with DM.query1 do
begin
Close;
Sql.Clerar;
Sql.Add(´Select * From NomedaTabela´);
Sql.Add(´where NomedoCampo =:Var´);
ParamByName[´Var´].asinteger := (Variavel);
open;
end;
end;
Espero ter ajudado...
T+
Só complementando a resposta do nosso amigo luciano.sul, vc pode usar também o componente Query, com instruções sql, particularmente eu acho + rápido. vê ai...
Para pesquisa em campos strings
with DM.query1 do
begin
Close;
Sql.Clerar;
Sql.Add(´Select * From NomedaTabela ´);
Sql.Add(´where NomedoCampo = ´ + Edit1.text);
open;
end
Para pesquisa em campos integer, sugiro variáreis e parametros exemplo:
Var Variavel : Integer;
begin
Variavel := NomeDaTabelaNomeDoCampo.value;
with DM.query1 do
begin
Close;
Sql.Clerar;
Sql.Add(´Select * From NomedaTabela´);
Sql.Add(´where NomedoCampo =:Var´);
ParamByName[´Var´].asinteger := (Variavel);
open;
end;
end;
Espero ter ajudado...
T+
Responder
Clique aqui para fazer login e interagir na Comunidade :)