Fórum Consulta SQL retorna em branco #508184

Verifique se os parâmetros estão sendo passados corretamente

Amigo...é justamente isso. Eu não sei o porque pois no mysql-front quando eu retiro os parâmetros e coloco valores diretos a consulta funciona perfeitamente. vou colocar abaixo como eu carreguei as variáveis Dia, Mes e Ano usadas como parâmetros. Detalhe, todas elas declaradas na procedure como string. Depois de carregá-las é que vem a minha consulta.

Dia := IntToStr(DayOf(Now));
Ano := IntToStr(YearOf(Now));
Mes := IntToStr(MonthOf(Now));

Pessoal estou colocando a minha procedure por favor onde está o erro. Não acho por nada. Não sei o motivo de o parâmetro não receber o valor da label.

procedure TForm_Principal.Button3Click(Sender: TObject);
var
marcador_limpar_DBGrid: integer;
Dia, Mes, Ano : String;

begin

marcador_limpar_DBGrid := 1;
Label6.Caption := IntToStr(marcador_limpar_DBGrid);
Dia := Label3.Caption;
Mes := Label4.Caption;
Ano := Label5.Caption;
// ############################################
// ############################################
with DM.ADOQuery_Lst_Compromissos DO
begin
Close;
SQL.Clear;
SQL.Add('SELECT A.Cod_Agenda_Geral, A.Dia, A.Mes, A.Ano, A.Titulo_Agenda_Geral, A.Tipo_Listagem_Agenda_Geral,');
SQL.Add(' B.Cod_Listage_Compromissos, B.Cod_Agenda_Geral, B.Titulo_Compromisso, B.Desc_Compromisso');
SQL.Add(' FROM agenda_geral A, listagem_compromissos B');
SQL.Add(' WHERE A.Dia =:A1');
SQL.Add(' AND A.Mes =:A2');
SQL.Add(' AND A.Ano =:A3 ORDER BY B.Cod_Listage_Compromissos ASC');
Parameters.ParamByName('A1').Value := Dia;
Parameters.ParamByName('A2').Value := Mes;
Parameters.ParamByName('A3').Value := Ano;
Open;

if not DM.ADOQuery_Lst_Compromissos.IsEmpty then
begin
DBGrid_Principal.DataSource := DM.DataSource_Lst_Compromissos;
DBGrid_Principal.Columns[0].FieldName := 'Cod_Listage_Compromissos';
DBGrid_Principal.Columns[1].FieldName := 'Titulo_Compromisso';
end;

end;
// ############################################
// ############################################
end;

Se eu trocar as variáveis Dia, Mes e Ano por valores tipo '30', '01' e '2015' funciona perfeitamente. Não estou entendendo pq a variável enm colocando o label.caption direto carrega o parâmetro.

Pelo jeito seus campos DIA, MES e ANO são string, certo ?
Tenta informar no parâmetro que o valor que será recebido é string.

Olá amigo. Bem, consegui resolver. Rrubinho...já tinha tentado isso mas ficava em branco tb. Então resolvi conferir o BD e vi que cometi um erro muito bobo. Na tabela o campo Dia recebe valore como sendo '01' e não '1' como estava sendo carregado o parâmetro pela label referente a essa variável Dia. Um erro besta que me atrasou bastante. Obrigado a atenção de todos e as tentativas de ajuda. E um alerta: Sempre prestem atenção não apenas na declaração de variável mas tb como o valor é passado pro BD pq depois isso faz uma diferença e tanto. O negócio é ganharmos tempo. Um abraço a todos e tópico encerrado pra mim.