Duvida Com Pesquisa

[tux_boy]

Bom, meu problema é o seguinte:

Estou fazendo uma consulta utilizando query onde eu digito um genero de filme, por exemplo, e o sistema me traz todos os filmes cadastrados com aquele genero. Porem, na hora de cadastrar filmes, eu não padronizei deixando tudo minusculo ou tudo maiusculo, entaum eu qeuria saber se na hora de efetuar a pesquisa tenha alguma maneira de fazer com que o sistema ignore maiusculas e minusculas para fazer a pesquisa.

O código do batão que efetua a pesquisa é:

procedure TfrmConsultaDVD.btGenClick(Sender: TObject); 
begin 
  qrDVD.Close; 
  qrDVD.SQL.Clear; 
  qrDVD.SQL.Add('Select * From DVD Where GenDVD = :pGen'); 
  qrDVD.Params[0].AsString := edtGen.Text; 
  qrDvd.Open; 
end;

Muito obrigado

Editado Outubro 5, 2007 por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)

[marcio.theis]

Dependendo do seu BD, pode usar o UPPER sobre os campos e AnsiUpperCase() no campo a consultar no delphi, fazendo algo desta forma:

procedure TfrmConsultaDVD.btGenClick(Sender: TObject);
begin
qrDVD.Close;
qrDVD.SQL.Clear;
qrDVD.SQL.Add('Select *');
qrDVD.SQL.Add('From DVD');
qrDVD.SQL.Add('Where upper(GenDVD) = :pGen');
qrDVD.Params[0].AsString := AnsiUpperCase(edtGen.Text);
qrDvd.Open;
end;

Se quiser, pode ainda fazer:

procedure TfrmConsultaDVD.btGenClick(Sender: TObject);
begin
qrDVD.Close;
qrDVD.SQL.Clear;
qrDVD.SQL.Add('Select *');
qrDVD.SQL.Add('From DVD');
qrDVD.SQL.Add('Where upper(GenDVD) = ''' + AnsiUpperCase(edtGen.Text) + '''');
qrDvd.Open;
end;

Seria interessante o uso de Like nesta sua pesquisa, podendo assim pesquisar somente por partes do títulos...

procedure TfrmConsultaDVD.btGenClick(Sender: TObject);
begin
qrDVD.Close;
qrDVD.SQL.Clear;
qrDVD.SQL.Add('Select *');
qrDVD.SQL.Add('From DVD');
qrDVD.SQL.Add('Where upper(GenDVD) like ''%' + AnsiUpperCase(edtGen.Text) + '%''');
qrDvd.Open;
end;

[Micheus]

Aproveitando o exemplo do colega marcio.theis...

Ainda dependendo do banco que utiliza, se for Firebird, poderia no lugar de UPPER + LIKE utilizar simplesmente CONTAINING:

procedure TfrmConsultaDVD.btGenClick(Sender: TObject);
begin
qrDVD.Close;
qrDVD.SQL.Clear;
qrDVD.SQL.Add('Select *');
qrDVD.SQL.Add('From DVD');
qrDVD.SQL.Add('Where GenDVD CONTAINING ''' + edtGen.Text + '''');
qrDvd.Open;
end;