ActiveDelphi

[adalbertomesquita]

Boa noite a todos!
Sou iniciante em Delphi e preciso de ajuda para fazer uma pesquisa utilizando um select do sql.
No meu formulário eu tenho um Edit1, um DBGrid1 e um Button1. Preciso que quando eu clicar no Button1, seja feita uma pesquisa usando o que foi informando no Edit1 como parte do parâmetro da pesquisa e que seja mostrado o resultado no DBGrid1.
Ex:
Select * from NOMES where NOME = (o q foi digitado no Edit1);

Pra conectar com o banco de dados Access estou utilizando:
ADOConnection1
ADOQuery1
DataSource1

Desde já agradeço!

[gilsonnrodrigues]

'Select * from NOMES where NOME = '+QuotedStr(Edit1.Text);

[adriano_servitec]

Vc pode tambem utilizar de um LIKE + curinga '%', para pesquisa parciais, muito usado para campo tipo nomes, endereços, Razões Sociais, etc...

Além do UPPER que serve para vc digitar tanto em maiusculo como minusculo no edit, e o banco não diferenciar entre elas.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree

[adalbertomesquita]

[adalbertomesquita]

[Shacau]

Esta Acontecendo uma coisa !

Qdo eu Cliko no + do DBnavigator para acrescentar um novo Registro
Tudo Corre do geito que deveria ser , Mais Qdo o Componente DBedit3
Perde o foco Deveria acontecer o Seguinte :

UMA MENSSAGEM " Componente ja cadastrado" E NÃO SER ACRESCENTADO UM NOVO REGISTRO NO BANCO COM O MESMO NOME

EX: Circuito integrado ( Campo Nome )
AN7148 ( Campo TIPO ) A APLICAÇÃO ESTA ACRESCENTANDO UM
NOVO REGISTRO NA TABELA COM O MESMO TIPO , OU SEJA :
O AN7148 ESTA SENDO ACRECENTADO TODA VEZ QUE A MENSSAGEM
APARECE , E ISSO NÃO PODE ACONTECER

Alguem sabe como resolver este problema , se sim por favor
me ajudem postem aqui como resolver este problema
com os componentes que estou usando , estam descritos acima

No aguardo da ajuda . . .

begin
if DBEdit3.Text <> '' Then
Begin
if not (Dm_dados.tbl_produto.Locate('TIPO',DBEdit3.Text,[lopartialkey,loCaseInsensitive])) Then
ShowMessage(' ESTA MERCADORIA NÃO CONSTA NO BANCO DE DADOS ! ');
end;

[pestana]

[adalbertomesquita]