Consulta em SQL com dados aparecendo em um DBGrid

[wilsoncrescencio 1]

Banco de dadso Access + Delphi7 + AdoConnectionTenho uma Tabela Nome com os campos Aluno, Pai e Mãe em Access conectado a um Data Module chamado DM1 pelo ADO ConnetionQuero fazer uma consulta em SQL da seguinte maneira:Um Edit1 quando preenchido com qualquer letra do nome do Aluno e clidado um botão, apareceça todas as possibilidades em um DBGridComo faço isso? Quais são os códigos usados?

[marcio.theis 3]

Bom... você vai ter um DBGrid ligado com um DataSet, este vai esta ligado com a Query, basta fazer um SQL, algo do tipo:

 

qry.Close;qry.SQL.Clear;qry.SQL.Add('select *');qry.SQL.Add('from tabela');qry.SQL.Add('where tabela.nome like ''%' + Edit1.Text + '%''');qry.Open;

[Rulez 0]

só uma pergunta ridicula, como faz esse select NÃO ser case sensitive

[marcio.theis 3]

Remove o like e deixando assim:

qry.Close;qry.SQL.Clear;qry.SQL.Add('select *');qry.SQL.Add('from tabela');qry.SQL.Add('where tabela.nome = ''' + Edit1.Text + '''');qry.Open;

[wilsoncrescencio 1]

fazendo a consulta como você me ensinou..Porque a DBGrid fica em branco.... sumindo todos os dados e não me mostrando nem mesmo o dado consultado?

[marcio.theis 3]

Bom... No caso ele esta ficando em branco pois ele filtrou e não tinha nada para ser mostrado, teria como você dar um exemplo do que procura e esta sendo encontrado ?No caso teria que ver tb se o BD não esta diferenciando letras de caixa alta e caixa baixa...

[wilsoncrescencio 1]

Estou procurando na tabela Nome o Aluno com o nom e q foi digitado no eEdit1... minha AdoQuery chama-se masterMaster.Close;Master.SQL.Clear;Master.SQL.Add('select nome.aluno');Master.SQL.Add('from Nome');master.SQL.Add('where Nome.Aluno = ''' + Edit1.Text + '''');master.Open;

[marcio.theis 3]

Desta forma precisa ser exatamente igual o que esta no BD com o que foi digitado, pois desta forma não esta usando o modo de semelhança...

[wilsoncrescencio 1]

entaum você me recomenda usar o LIKE/Master.SQL.Add('where Nome.Aluno like ''%' + Edit1.Text + '%''');

[marcio.theis 3]

Se quiser usar por semlhança seria o melhor...

[wilsoncrescencio 1]

obrigado pela ajuda

[marcio.theis 3]

beleza... http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif

[MasterDelphi 0]

Se não tiver conseguindo ainda eu te passo um exemplo.

[wilsoncrescencio 1]

Se não tiver conseguindo ainda eu te passo um exemplo.

Por Favor... eu gostaria de receber o exemplo

[Vinicius Callegaro 0]

Colega... Coloque:

 

Master.Close;Master.SQL.Clear;Master.SQL.Add('select *');Master.SQL.Add('from aluno');Master.SQL.Add('where UPPER(nome) like UPPER('+QuotedStr('%'+Edit1.Text+'%')+')');Master.Open;

PS 1: Considerando que sua tabela seja ALUNO e o campo do nome seja NOME

PS 2: O Upper funciona para deixar todas as letras em maiúsculas