Comando update

Question

ola gente estou tentando fazer um update em uma tabela mas nao estou conseguindo esta dando erro o codigo ta ai: cls_motivo.close; cls_motivo.commandtext := �update CADASTRO_INADIPLENTES set MOTIVO =�...

Einstein · Answer

kra ta faltando um where ai. por isso que ta atualizando todos os registros....

Marco Salles · Answer

Amigo , use a instru��o cds.execute ao inves do open

cls_motivo.close; cls_motivo.commandtext := �update CADASTRO_INADIPLENTES set MOTIVO =� + QuotedStr(ComboBox1.Text); cls_motivo.[b:c6b1fee360]execute[/b:c6b1fee360];

Ciotti · Answer

cara vc podeira me dar um exemplo usando where?valew...

Marco Salles · Answer

exemplo com wherepara campo  integer...[quote:cd652ed1b3]cds.Close;cds.CommandText:=�update COTACAO set Motivo = �+ QuotedStr(ComboBox1.Text)+� where NomeSeuCampo =:pMeuParametro�;cds.Params.parambyname(�pMeuParametro�).[b:cd652ed1b3]asinteger[/b:cd652ed1b3]:=[b:cd652ed1b3]strtoint[/b:cd652ed1b3](Edit1.Text);cds.Execute;[/quote:cd652ed1b3]para campo stringno caso do NomeSeuCampo fpr Integer... No caso do NomeDoSeuCampo fpr string fa�a:[quote:cd652ed1b3]cds.Close;cds.CommandText:=�update COTACAO set Motivo = �+ QuotedStr(ComboBox1.Text)+� where NomeSeuCampo =:pMeuParametro�;cds.Params.parambyname(�pMeuParametro�).[b:cd652ed1b3]asstring[/b:cd652ed1b3]:=Edit1.Text;cds.Execute;[/quote:cd652ed1b3]mas use o [b:cd652ed1b3]cds.execute [/b:cd652ed1b3]conforme dito na primeira ppostagem...

Ciotti · Answer

ola amigo valw funciou , mas so tem um porem quando eu coloco o
query.execute ele altera mas ele fecha a query e nao consigo trabalhar mais com ela tenho que compilar novamente e quando eu uso open ele da um erro:

SQLDATASET �CURSOR NOT RETURN FROM QUERY�

VC SABERIA ME INFORMAR UMA DAS 2 DIFICULDADES?
VALW CARA PELA FORCA , FORTE ABRACO

Marco Salles · Answer

[quote:971be60d9c]ola amigo valw funciou , mas so tem um porem quando eu coloco o query.execute ele altera mas ele fecha a query e nao consigo trabalhar mais [/quote:971be60d9c]voce quer servi�o completo n� , barba ,cabelo e bigode[quote:971be60d9c]cds.Close; cds.CommandText:=�update CADASTRO_INADIPLENTES  set Motivo = �+ QuotedStr(ComboBox1.Text)+ � where NomeSeuCampo =:pMeuParametro�; cds.Params.parambyname(�pMeuParametro�).asstring:=Edit1.Text; cds.Execute;cds.CommandText:=��;cds.close;cds.CommandText:=�select * From Motivo�;cds.Open;[/quote:971be60d9c]...

Ciotti · Answer

AAAA MULEKE FUNCIONOU SO FIZ UM PEQUENA ALTERCAO VOU POSTAR O CODIGO.

var i : Integer;
begin
with datamodule1 do
begin
i := StrToInt(DBEdit1.Text);
cls_motivo.close;
cls_motivo.commandtext := �update CADASTRO_INADIPLENTES set MOTIVO =:MOTIVO � + � where ID_INADIPLENTES =:ID_INADIPLENTES�;
cls_motivo.Params.ParamByName(�MOTIVO�).AsString := ComboBox1.Text;
cls_motivo.Params.Parambyname(�ID_INADIPLENTES�).AsString:=IntToStr(i);
cls_motivo.Execute;
cls_motivo.close;
cls_motivo.CommandText:=�select * From CADASTRO_INADIPLENTES�;
cls_motivo.Open;
ShowMessage(�Registro alterado com sucesso�);

CARA VALEW, FICO MUITO GRATO PELA SUA ATENCAO. FORTE ABRACO

Marco Salles · Answer

barba , cabel e bigode.. :P...

F�rum Comando update #333918