• 0
Sign in to follow this  
Cleverson Honório Gouvêa

Verificando Tabelas

Question

E aew pessoal? Beleza?

To com uma dúvida que surgiu a um tempo!

Estava usando o comando: "table.delete" para excluir dados da tabela, foi quando percebi que se a tabela está vazia e eu precionar o botão irá aparecer uma mensagem de erro!!!!

Minha primeira reação foi querer criar uma forma de isso não ocorrer, do botão verificar antes de excluir para ao invés de um erro que prejudica o programa dar uma mensagem "A tabela está vazia, não há dados para serem apagados!!!"

Mas pensei melhor e percebi que não há lógica em se abrir um formulário de pesquisa se não há o que pesquizar!!!!

Então queria a ajuda de vocês pra saber como faço essa verificação, mas preciso fazer nos dois no botão e no Form pois quando abrirmos o Form, ele tiver dados e apagarmos todos irá acontecer o erro do botão!!!

valeu pela força galera!!!

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Olá Cleverson,

você pode usar o compoente TQuery,

Ex:

Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('SELECT * FROM NOME_TABELA');
Query1.Open;

if Query1.RecordCount > 0 then
   table.delete;

Abs. Progr'amador.

Share this post


Link to post
Share on other sites
  • 0

usando o exemplo do nosso amigo programador e dando uma incrementada.

você usa o evento OnClick do button que abre o form de pesquisas:

DM.Query1.Close;
DM.Query1.Sql.Clear;
DM.Query1.Sql.Add('SELECT * FROM NOME_TABELA');
DM.Query1.Open;
if Query1.RecordCount = 0 then
begin
MessageBeep(MB_ICONERROR);
ShowMessage('Não há dados a serem pesquisados. A tabela está vazia!'); 
end
else
begin
FormulárioDePesquisa.Show;
end;

T+, VAGNER

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this