Consultas Sql Em Delphi

[Zolhos]

negógio é o seguinte

eu tou fazendo uma consulta em sql aqui no projeto (via query)

só que pode acontecer de simplesmente não achar nada na consulta

daí quando não axa nada simplesmente dá uma mensagem de erro

como é q eu faço pra mostrar um MESSAGEDLG se não tiver resultado nenhum na consulta?

[Progr'amador]

Olá Zolhos.

Após o Query.Open você pode fazer o seguinte:

   if Query.RecorCount = 0 then begin
      MessageDlg(...);
      Exit;
   End;

FWL!!!

[Zolhos]

akabei de fazer isso

na verdade é RecordCount hehehe

e deu erro do mesmo jeito

nem chegou a aparecer o messageDlg

então vou postar o meu codigo aqui pra vocês tentarem descobrir onde tá errado beleza?

sqlRegistros := 'SELECT * FROM BateCartao WHERE cartaoFunc = "'+ cmbFuncionario.text +'" AND cartaoMes = "'+ intToStr(mesNumeroEscrito) +'" AND cartaoAno = "'+ cmbAno.text +'" ORDER BY cartaoDia ';
qryRegistros.sql.clear;
qryRegistros.sql.Add(sqlRegistros);
qryRegistros.open;

ele dá o erro nessa linha OPEN

a mensagem é a seguinte:

Project veggie_burger.exe raised exception class EDBEngineError with message 'General SQL error. [Microsoft][Driver ODBC para Access] Too few parameters. Expected 3.'. Process stopped. Use Step or Run to continue.

[Progr'amador]

hehehe!!! é mesmo! ingoli o d (RecordCount).

Pois bem, se você gosta de usar um monte de aspas em vez parametros, tenta isso:

sqlRegistros := 'SELECT * FROM BateCartao WHERE cartaoFunc = '+''''+ cmbFuncionario.text +''''+' AND cartaoMes = '+''''+ intToStr(mesNumeroEscrito) +''''+' AND cartaoAno = '+''''+ cmbAno.text +''''+' ORDER BY cartaoDia ';

qualquer coisa, posta ae falow!

Abs.