Fórum Apagar registros DElphi #438260
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
Curtir tópico
+ 0Posts
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);
Gostei + 0
31/03/2013
Vtrx
Gostei + 0
31/03/2013
William
Qual o tipo desse campo "CODIGOS" (VARCHAR ou INTEGER)?
Qual SGBD vc está usando?
Gostei + 0
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);Gostei + 0
31/03/2013
William
Normalmente ela vem como TRUE e não é necessário esse comando commit explícito.
Gostei + 0
31/03/2013
Vtrx
Obrigado pela ajuda pois me incentivou que estava no caminho ceeto para achar o erro.
Gostei + 0
31/03/2013
Vtrx
Gostei + 0
31/03/2013
William
Qualquer dúvida estamos por aí ....
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)