campo so grava em meu micro
30/07/2006
0
Amigos estou com um pequeno problema, estou desenvolvendo um sistema que acessa um banco na net, o que acontece é o sguinte:
Em minha maquina funciona tudo bem, todos os campos são gravados. mas quando mando o programa para outra maquina mesmo com o delphi instalado ele não grava um unico campo que é o da senha
a tabela tem sete campos somente não grava o campo senha
é um campo varchar com 40 posições not null, gravo neste campo a senha criptografada
utilizo Mysql 4.1 Delphi 7 e DBExpress.
Minha rotina de gravação é esta:
[color=red:8c0c01c5e3]p_Filial := strtoint(Form_Principal.vIdFilial);
p_User := Ednome.Text;
p_Senha := vSenuser;
p_ADM := ADM;
with DM.SQLUser do Begin
close;
sql.clear;
sql.Add(´Insert Into Usuarios (id_filial, user_name, senha, adm) Values(:p_Filial,:p_User,:p_Senha,:p_ADM)´);
Params[0].value := p_Filial;
Params[1].value := p_User;
Params[2].value := p_Senha; [/color:8c0c01c5e3] [color=blue:8c0c01c5e3]//Este campo so grava em minha maquina [/color:8c0c01c5e3]
[color=red:8c0c01c5e3] Params[3].value := p_ADM;
ExecSQL();
end;
Dm.CDSUser.Active := false;[/color:8c0c01c5e3]
Em minha maquina funciona tudo bem, todos os campos são gravados. mas quando mando o programa para outra maquina mesmo com o delphi instalado ele não grava um unico campo que é o da senha
a tabela tem sete campos somente não grava o campo senha
é um campo varchar com 40 posições not null, gravo neste campo a senha criptografada
utilizo Mysql 4.1 Delphi 7 e DBExpress.
Minha rotina de gravação é esta:
[color=red:8c0c01c5e3]p_Filial := strtoint(Form_Principal.vIdFilial);
p_User := Ednome.Text;
p_Senha := vSenuser;
p_ADM := ADM;
with DM.SQLUser do Begin
close;
sql.clear;
sql.Add(´Insert Into Usuarios (id_filial, user_name, senha, adm) Values(:p_Filial,:p_User,:p_Senha,:p_ADM)´);
Params[0].value := p_Filial;
Params[1].value := p_User;
Params[2].value := p_Senha; [/color:8c0c01c5e3] [color=blue:8c0c01c5e3]//Este campo so grava em minha maquina [/color:8c0c01c5e3]
[color=red:8c0c01c5e3] Params[3].value := p_ADM;
ExecSQL();
end;
Dm.CDSUser.Active := false;[/color:8c0c01c5e3]
Dpinho
Curtir tópico
+ 0
Responder
Posts
02/08/2006
Dpinho
cara cola ai a mensagem de erro que ta dando..
Este é um dos probelmas não retorna nenhuma mensagem de erro, salva todos os campos da tabela, porem não salva somente o campo senha. Mais engraçado ainda não acontece em todas as maquinas apenas em algumas com XP e 98
Responder
Clique aqui para fazer login e interagir na Comunidade :)