Problema com delecao - Delphi, ado, sql 2005 express
Tenho um sistema que foi desenvolvido em Delphi 5 e utiliza o Sql Server 2005 Express com Ado.
Mas para minha surpresa o sistema esta apresentando comportamento diferenciado dependendo do servidor em que o mesmo esta instalado.
Com alguns servidores o Delete não funciona e com outros o funcionamento he normal. O resto dos comandos (update, insert, edit) tudo normal, somente a deleção apresenta problemas..
Abaixo segue o código responsável pelo delete do registro.
if BtExc.Enabled then
begin
Deleta:=true;
if FrDmIN.QyIN_Usuario.FieldByName(´CARTEIRAINTEIRA´).IsNull then
f_mensagem([s_semDados],0)
else
begin
if f_pergunta([´Confirma a exclusão do registro ?´],1) then
begin
// log de ação...
f_LogTrabalho(FrUsuario.Caption,FrUsuario.Caption,´EXCLUSAO DO USUARIO : ´+
FrDmIN.QyIN_Usuario.FieldByName(´UNIMED´).AsString+
FrDmIN.QyIN_Usuario.FieldByName(´CARTEIRAINTEIRA´).AsString);
FrDmIN.QyIN_Usuario.delete;
end;
end;
end;
GrGeral.Setfocus;
Acredito que seja alguma permissão no banco ou no Windows XP, se alguem passou por problema parecido ou tem alguma ideia agradeço.
Mas para minha surpresa o sistema esta apresentando comportamento diferenciado dependendo do servidor em que o mesmo esta instalado.
Com alguns servidores o Delete não funciona e com outros o funcionamento he normal. O resto dos comandos (update, insert, edit) tudo normal, somente a deleção apresenta problemas..
Abaixo segue o código responsável pelo delete do registro.
if BtExc.Enabled then
begin
Deleta:=true;
if FrDmIN.QyIN_Usuario.FieldByName(´CARTEIRAINTEIRA´).IsNull then
f_mensagem([s_semDados],0)
else
begin
if f_pergunta([´Confirma a exclusão do registro ?´],1) then
begin
// log de ação...
f_LogTrabalho(FrUsuario.Caption,FrUsuario.Caption,´EXCLUSAO DO USUARIO : ´+
FrDmIN.QyIN_Usuario.FieldByName(´UNIMED´).AsString+
FrDmIN.QyIN_Usuario.FieldByName(´CARTEIRAINTEIRA´).AsString);
FrDmIN.QyIN_Usuario.delete;
end;
end;
end;
GrGeral.Setfocus;
Acredito que seja alguma permissão no banco ou no Windows XP, se alguem passou por problema parecido ou tem alguma ideia agradeço.
Brahma
Curtidas 0
Respostas
Macario
21/12/2006
Olá.
VocÊ faz uso de componente TADOTable?
O Log que você executa é salvo de que maneira?Na base? em txt?
Ja verificou a possibilidade de ser a rotina de Log que impede o sucesso do comando delete?
Como você mesmo disse pode ser problema de direito, caso esteja usando txt para salvar o log.
[]´s
VocÊ faz uso de componente TADOTable?
O Log que você executa é salvo de que maneira?Na base? em txt?
Ja verificou a possibilidade de ser a rotina de Log que impede o sucesso do comando delete?
Como você mesmo disse pode ser problema de direito, caso esteja usando txt para salvar o log.
[]´s
GOSTEI 0
Brahma
21/12/2006
QyIn_Usuario he um adoQuery
A procedure de log esta toda comentada .. da para desconsiderar...
A procedure de log esta toda comentada .. da para desconsiderar...
GOSTEI 0
Macario
21/12/2006
Olá.
Sendo um ADOQuery você não teria que efetivar o delete na base, usando um ApplyUpdates ou um Commit(não faço uso do ADO).
[]´s
Sendo um ADOQuery você não teria que efetivar o delete na base, usando um ApplyUpdates ou um Commit(não faço uso do ADO).
[]´s
GOSTEI 0
Brahma
21/12/2006
o que posso te adiantar he que funciona...
pois dos 5 servidores de Sql server em dois esta dando este problema ... entao codificacao creio que nao é o problema....
pois dos 5 servidores de Sql server em dois esta dando este problema ... entao codificacao creio que nao é o problema....
GOSTEI 0