Fun��o Delete

Question

Ola eu tenho um dbgrid que esta mostrando os dados via sql, eu gostaria de saber como eu fa�o para deletar o registro selecionado do dbgrid usando fun��o SQL>...???...

Danielvbhp · Answer

????????...

Danielvbhp · Answer

????????...

Danielvbhp · Answer

????????...

Danielvbhp · Answer

ser� que algu�m poderia me ajudar???? com este topico...

F�rum Vini · Answer

Ol�,se voc� quiser fazer com SQL:[code:1:09ff50ce47]var ID: Integer;begin  ID:= Query1.FieldByName(�CampoChavePrimaria�).asInteger;    if Query1.Active then    Query1.Close;  Query1.SQL.Text:= �Delete from Nome_tabela where CampoChavePrimaria = �+InttoStr(ID);  Query1.Active:= True;end;[/code:1:09ff50ce47]Ou pelo jeito tradicional:[code:1:09ff50ce47]Query1.Delete;[/code:1:09ff50ce47]O seu campo chave primaria deve ser compat�vel com Integer.Espero ter ajudado.Vinicius....

Danielvbhp · Answer

Cara eu coloquei o seguinte codigo para DELETAR .

var ID: Integer;
begin 
  ID:= Query1.FieldByName(�Cod�).asInteger;
  if Query1.Active then
    Query1.Close;
  Query1.SQL.Text:= �Delete from etiqueta where Cod = �+InttoStr(ID);
Query1.Active:= True;

e ele me retorna o seguinte mensagem....

Error Creating cursor handle

F�rum Vini · Answer

[quote:cb3f72b34d=�danielvbhp�]Cara eu coloquei o seguinte codigo para DELETAR .[code:1:cb3f72b34d]var ID: Integer;begin   ID:= Query1.FieldByName(�Cod�).asInteger;  if Query1.Active then    Query1.Close;  Query1.SQL.Text:= �Delete from etiqueta where Cod = �+InttoStr(ID);Query1.Active:= True;[/code:1:cb3f72b34d]e ele me retorna o seguinte mensagem....Error Creating cursor handle[/quote:cb3f72b34d]Ops,esqueci de um detalhe, troque a linha:[code:1:cb3f72b34d]Query1.Active:= True;[/code:1:cb3f72b34d]Por:[code:1:cb3f72b34d]Query1.ExecSql;[/code:1:cb3f72b34d]Espero ter ajudado.Vinicius....

Danielvbhp · Answer

Cara o C�digo que voce me passou esta dando certo o unico erro que esta dando � que quando ele Deleta, depois disso ele n�o me mostra mais nada no banco do DBgrid1..

var ID: Integer;
begin
  ID:= Query1.FieldByName(�Cod�).asInteger;
  if Query1.Active then
    Query1.Close;
  Query1.SQL.Text:= �Delete from etiqueta where Cod = �+InttoStr(ID);
Query1.ExecSql;

o que tenho que fazer para aparecer os dados depois de deletado o registro?????

Danielvbhp · Answer

Muito Obrigado Pela Ajuda eu coloquei estas linhas a mais para fazer isso dar tipo um refresh no dbgrid1 e deu certo obrigado.;..

var ID: Integer;
var a,c: String;
begin
  ID:= Query1.FieldByName(�Cod�).asInteger;
  if Query1.Active then
    Query1.Close;
  Query1.SQL.Text:= �Delete from etiqueta where Cod = �+InttoStr(ID);
Query1.ExecSql;
Query1.SQL.Clear;
a:=�Select * From etiqueta �;
c:=�Order By Nome�;
Query1.SQL.Add(a+c);
Query1.Close;
Query1.Open

F�rum Fun��o Delete #213205