Fazer Consulta e Exclusão do Resultado usando ODBC
Bom dia a Todos,
Pessoal alguém pode me dar uma ajuda, eu tenho um banco e fiz a conexão ODBC tudo corretamente, porém eu quero rodar um sql de select e após trazer os resultados eu selecionar qual eu desejo excluir ou seja rodar um delete no resultado selecionado. Eu já tenho os sql tudo pronto só quero saber como que vou manipular isso no delphi? Usando o TSQLQuery do dbexpress?
Pessoal alguém pode me dar uma ajuda, eu tenho um banco e fiz a conexão ODBC tudo corretamente, porém eu quero rodar um sql de select e após trazer os resultados eu selecionar qual eu desejo excluir ou seja rodar um delete no resultado selecionado. Eu já tenho os sql tudo pronto só quero saber como que vou manipular isso no delphi? Usando o TSQLQuery do dbexpress?
Wellington Felicio
Curtidas 0
Respostas
Raimundo Pereira
23/08/2015
[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;
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;
GOSTEI 0