Fórum Fazer Consulta e Exclusão do Resultado usando ODBC #529561

[img:descricao=IMG]http://arquivo.devmedia.com.br/forum/imagem/437747-20150825-103423.jpg[/img][img:descricao=Img]img[/img]



Exemplo :
procedure TForm1.BTN_LTClick(Sender: TObject);
begin
Q_.Close;
Q_.SQL.Clear;
Q_.SQL.Text:='SELECT * FROM PROD';
Q_.OPEN;
end;

procedure TForm1.ProcessarClick(Sender: TObject);
begin

SQL_:='SELECT PROD.ID, PROD.NOME, PROD.VALOR, PROD.SALDO FROM PROD WHERE (((PROD.SALDO)=0));';
SQL_DEL:='DELETE PROD.ID, PROD.NOME, PROD.VALOR, PROD.SALDO FROM PROD WHERE (((PROD.SALDO)=0));';

CNX.Connected:=FALSE;
CNX.Connected:=TRUE;


Q_.Close;
Q_.SQL.Clear;
Q_.SQL.Text:=SQL_;
Q_.OPEN;

if (Q_.RecordCount=0) then
BEGIN
ShowMessage('Nenhum registro encontrado');
END
ELSE
BEGIN
if (CK_DEL_SS.Checked=True) then
BEGIN
Q_.Close;
Q_.SQL.Clear;
Q_.SQL.Text:=SQL_DEL;
Q_.ExecSQL;
END;
END;

end;