Verificando Tabelas

[Cleverson Honório Gouvêa]

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!!!

[Progr'amador]

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.

[DELPHI-Man32]

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