Fórum DELPHI: Ajudem-me a criar uma pesquisa no banco de dados onde eu consiga obter todos os nomes repetidos dentro de um mês ordenados #533234

//----------------------------------- DECLARE AS VARIÁVEIS ABAIXO
VAR
CONV_DE:STRING;
CONV_ATE:STRING;
SCRIPT_SELECT:STRING;
CLIENTE:STRING;
//----------------------------------------------------------------------

//----------------------------------------------------------------------
DATETIMEPICKER1 RENOMEI PARA DE_DATA
DATETIMEPICKER2 RENOMEI PARA ATE_DATA
//----------------------------------------------------------------------


PROCEDIMENTO DO BUTTON PESQUISAR
BEGIN

//-------------------------------------------------- // AQUI VERIFICA SE FOI DIGITADO ALGO NO EDIT NOME E PREECHE A STRING CLIENTE
if (Ed_nome_cliente.Text<>'') then
BEGIN
CLIENTE:=' AND NOME LIKE ''%'+Ed_nome_cliente.Text+'%''';
END
ELSE
BEGIN
CLIENTE:=' AND NOME IS not NULL';
END;

//--------------------------------------------------

CONV_DE:='';
CONV_ATE:='';

CONV_DE:=DateToStr(DE_DATA.Date); //AQUI ELE VAI LANÇAR A DATA INFORMADA NO DATEPICKER1 PARA A VARIÁVEL CONV_DE
CONV_ATE:=DateToStr(ATE_DATA.Date); //AQUI ELE VAI LANÇAR A DATA INFORMADA NO DATEPICKER2 PARA A VARIÁVEL CONV_ATE


CONV_DE:=StringReplace(CONV_DE,'/','.', [rfReplaceAll, rfIgnoreCase]); //AQUI ELE VAI SUBSTITUIR A / POR .- FIRIBIRD ARMAZENA DATAS POR PONTO
CONV_ATE:=StringReplace(CONV_ATE,'/','.', [rfReplaceAll, rfIgnoreCase]); ///AQUI ELE VAI SUBSTITUIR A / POR .- FIRIBIRD ARMAZENA DATAS POR PONTO
DM.COLETA.Close;


//------------------------------------------------------------------------------------------------------------------------------------------------ CONSTRUÇÃO DO SELECT
SCRIPT_SELECT:='SELECT * FROM SUA_TABELA WHERE '+CLIENTE+' AND DATA BETWEEN '''
+CONV_DE+''' AND '''
+CONV_ATE+''''+
' ORDER BY NOME;';





//--- AQUI ELE ENVIA O SELECT PARA A SUA QRY

DM.SUA_QUERY.SQL.Text:=SCRIPT_SELECT;
DM.SUA_QUERY.OPEN;

if DM.SUA_QUERY.RecordCount=0 then
BEGIN
Application.MessageBox('Nenhum registro encontrado','Resultado da Consulta');
END
else
begin
DM.SUA_QUERY.FetchAll;
end;

FecthAll não está aceitando através do SIMPLEDATASET?

Na verdade, eu gostaria que o código verificasse no mês específicado os nomes dos alunos que repetem mais de 3 vezes, isto é, já chegaram mais de 3 vezes atrasados no mês especificado e mostrasse no DBgrid. Estou usando o SIMPLEDATASET e comando ou propriedade FetchAll não está dando certo porque o delphi menciona erro : Tsimpledataset no contain member name?