ActiveDelphi

[jea]

Antes de tudo gostaria de agradecer a vocês que me ajudaram em outras dúvidas.
Estou começando com dbexpress e não estou conseguindo concluir minhas consultas com DBExpress.

Tenho em meu DM uma relação mestre/detallhe onde:

Mestre: 1 sqldCadastro + 1 dsLinkCadastro + 1 dspCadastro + cdsCadastro + 1 dsCadastro.

Detalhe: 1 sqldTratamento + 1 cdsTratamento + 1 dsTratamento.

Quero fazer as consultas abaixo, mas não estou conseguindo retornar os dados da pesquisa:

// pesquisa com LIKE / coringa

begin
if Edit1.Text <> '' then
begin
DMControle.CDSTratamento.Close;
DMControle.CDSTratamento.CommandText:='SELECT * FROM Tratamento WHERE UPPER(Nome) LIKE :Nome';
DMControle.CDSTratamento.Params[0].AsString := UpperCase(Edit1.Text) + '%';
DMControle.CDSTratamento.Open;
end;
DBGrid1.SetFocus;
end;


// pesquisa entre datas

Var
Inicio:string;
Final:string;
begin
If DateTimePicker2.Date < DateTimePicker1.Date Then
begin
ShowMessage('Intervalo de datas inválido, a data inicial é maior que a data final!');
DateTimePicker2.Date := DateTimePicker1.Date;
end
Else
begin
Inicio := DateToStr(DateTimePicker1.Date);
Final := DateToStr(DateTimePicker2.Date);
DMControle.SQLDTratamento.active:=false;
DMControle.CDSTratamento.active:=false;
DMControle.CDSTratamento.CommandText:='SELECT * FROM Tratamento WHERE Data between :Inicio and :Final';
DMControle.CDSTratamento.Params[0].AsDateTime := StrToDate(Inicio);
DMControle.CDSTratamento.Params[1].AsDateTime := StrToDate(Final);
DMControle.CDSTratamento.active:=true;
DMControle.SQLDTratamento.active:=true;
DBGrid1.SetFocus;
End;
End;

// pesquisa em ComBox:

begin
DMControle.CDSTratamento.Close;
DMControle.CDSTratamento.CommandText:='SELECT * FROM Tratamento where Tratamento = +QuotedStr(ComboBox2.Text)';
DMControle.CDSTratamento.Open;
DBGrid1.SetFocus;
end;

[rodrigocarreiro]

FORUM ERRADO !!!!


RSRSRSRSRS
_________________
Rodrigo Carreiro Mourão
Borland Instructor Certified
________________________
TDS Tecnologia® RJ
Centro Autorizado Borland® CodeGear®
http://www.rodrigocarreiro.com