Apagar registros DElphi
29/03/2013
0
Tenho um aplicativo simples em C++ Borland que usa o ZEOS.
Transcreví as mesmas funções para Delphi mas não estou conseguindo apagar os dados.
A rotina é:
DataModule2.ZQuery1.Close;
DataModule2.ZQuery1.SQL.Clear;
DataModule2.ZQuery1.SQL.Append(''delete from SAMSUNG'');
DataModule2.ZQuery1.SQL.Append(''where CODIGOS = (''+QuotedStr(Str)+ '')'');
DataModule2.ZQuery1.ExecSQL;
Application.MessageBox(''O dado foi excluido com sucesso'',''*Aviso*'',MB_ICONHAND+ MB_OK);No programa em C++,essas linhas dão conta do recado(só que com a síntese C++),ja no Delphi os registros são apagados mas se eu abrir o programa novamente eles'' voltam'',isto é,não está apagando no banco.
Alguma sugestão?
Vtrx
Posts
30/03/2013
William
DataModule2.ZQuery1.Close;
DataModule2.ZQuery1.SQL.Clear;
DataModule2.ZQuery1.SQL.Add('delete from SAMSUNG');
DataModule2.ZQuery1.SQL.Add('where CODIGOS = ' + QuotedStr(Str));
DataModule2.ZQuery1.ExecSQL;
Application.MessageBox('O dado foi excluido com sucesso','*Aviso*',MB_ICONHAND+ MB_OK);
31/03/2013
William
Qual o tipo desse campo "CODIGOS" (VARCHAR ou INTEGER)?
Qual SGBD vc está usando?
31/03/2013
Vtrx
DataModule2.ZQuery1.SQL.Clear;
DataModule2.ZQuery1.SQL.Add('delete from SAMSUNG');
DataModule2.ZQuery1.SQL.Append('where CODIGOS = ('+QuotedStr(Str)+')');
DataModule2.ZQuery1.ExecSQL;
DataModule2.ZConnection1.Commit;
Application.MessageBox('O dado foi excluido com sucesso','*Aviso*',MB_ICONHAND+ MB_OK);31/03/2013
William
Normalmente ela vem como TRUE e não é necessário esse comando commit explícito.
31/03/2013
Vtrx
Obrigado pela ajuda pois me incentivou que estava no caminho ceeto para achar o erro.
31/03/2013
Vtrx
31/03/2013
William
Qualquer dúvida estamos por aí ....
Clique aqui para fazer login e interagir na Comunidade :)
