Duvida sobre DELETE
Olá pessoal, esto querendo exluir registro de uma tabela usando SQL, no OnClick do botão eu coloquei a seguinte rotina:
procedure TFormPesConsultor.BitBtn1(Sender: TObject);
begin
With Query1 Do
Begin
Close;
SQL.Add(´DELETE FROM Table1);
SQL.Add(´WHERE Codigo=´10´´);
open;
ShowMessage(´OK´);
End;
end;
end.
O registro é exluido mais aparece um erro:
Project BackOffice.exe raised exception class Enopesultset with message´Error Creating cursor handle.´ Process stopped.Use step or Run to continue.
Error Creating Cursor Handle.
Obs.: Lenbrando que o ´BackOffice´ que aparece na messagem de erro é o nome do meu sistema.
Obrigado
procedure TFormPesConsultor.BitBtn1(Sender: TObject);
begin
With Query1 Do
Begin
Close;
SQL.Add(´DELETE FROM Table1);
SQL.Add(´WHERE Codigo=´10´´);
open;
ShowMessage(´OK´);
End;
end;
end.
O registro é exluido mais aparece um erro:
Project BackOffice.exe raised exception class Enopesultset with message´Error Creating cursor handle.´ Process stopped.Use step or Run to continue.
Error Creating Cursor Handle.
Obs.: Lenbrando que o ´BackOffice´ que aparece na messagem de erro é o nome do meu sistema.
Obrigado
Leandrosl
Curtidas 0
Respostas
Weber
04/03/2004
Use OPEN somente quanto estiver fazendo um Select.
Quanto a Query conter INSERT, UPDATE ou DELETE utilize EXECSQL.
então vai ficar assim:
procedure TFormPesConsultor.BitBtn1(Sender: TObject);
begin
With Query1 Do
Begin
Close;
SQL.Add(´DELETE FROM Table1);
SQL.Add(´WHERE Codigo=´10´´);
ExecSQL;
ShowMessage(´OK´);
Quanto a Query conter INSERT, UPDATE ou DELETE utilize EXECSQL.
então vai ficar assim:
procedure TFormPesConsultor.BitBtn1(Sender: TObject);
begin
With Query1 Do
Begin
Close;
SQL.Add(´DELETE FROM Table1);
SQL.Add(´WHERE Codigo=´10´´);
ExecSQL;
ShowMessage(´OK´);
GOSTEI 0
Leandrosl
04/03/2004
Obrigado, funciono perfeita, mais aproveitando a oportunidade gostaria de saber como posso excluir o registro em duas tabelas usando o clausa DELETE.
Obrigado
Obrigado
GOSTEI 0