Pesquisa banco de dados
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
Curtidas 0
Respostas
Luciano.sul
25/03/2006
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...
GOSTEI 0
Alexandre_torres
25/03/2006
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+
GOSTEI 0