melhor maneira de gravar
Ola Pessoal
Tenho um servidor Linux e as estações o windows XP
usando o banco Firebird 1.5 e no Deplhi uso os componentes
IB, qual seria o melhor procedimento para gravar os
dados no servidor ?
Grato
Claudio
Tenho um servidor Linux e as estações o windows XP
usando o banco Firebird 1.5 e no Deplhi uso os componentes
IB, qual seria o melhor procedimento para gravar os
dados no servidor ?
Grato
Claudio
Claudiocjr
Curtidas 0
Respostas
Bruno Belchior
14/09/2005
uma vez conectando com o servidor Linux, poderá guardar da forma como trabalha quando está conectado em um servidor windows... ou via [b:64aaef3032]SQL[/b:64aaef3032] ou via [b:64aaef3032]TDataSet[/b:64aaef3032]...
GOSTEI 0
Claudiocjr
14/09/2005
Obrigado Bruno pela sua Colaboração
Porem o que eu gostaria de saber é se
como eu estou fazendo é a maneira correta.
Fasso assim
try
StartTransaction ;
ibquery1.SQL.Clear ;
IBQuery1.close;
ibquery1.SQL.Clear ;
ibquery1.SQL.Add(´insert into classif(´);
ibquery1.SQL.Add(´sigla_un,masca_un,descr_un)´);
ibquery1.sql.add(´values (´);
ibquery1.sql.add(´:psigla_un,:pmasca_un,:pdescr_un)´);
ibquery1.ParamByName(´psigla_un´).Asstring := fsigla_un.text;
ibquery1.parambyname(´pmasca_un´).asstring := fMasca_un.text ;
ibquery1.ParamByName(´pdescr_un´).AsString := fDescr_un.Text ;
ibquery1.ExecSQL ;
CommitRetaining ;
except
on Exc:Exception do
begin
showMessage(´Ocorreu um erro na tentativa de gravar o registro: ´+Exc.Message);
princi.tran.Rollback;
end;
end;
Isto gravaria imediatamente no servidor sem problemas
mesmo que outros usuario estejam inserindo arquivos
na mesmo hora ?
t+
Claudio
Porem o que eu gostaria de saber é se
como eu estou fazendo é a maneira correta.
Fasso assim
try
StartTransaction ;
ibquery1.SQL.Clear ;
IBQuery1.close;
ibquery1.SQL.Clear ;
ibquery1.SQL.Add(´insert into classif(´);
ibquery1.SQL.Add(´sigla_un,masca_un,descr_un)´);
ibquery1.sql.add(´values (´);
ibquery1.sql.add(´:psigla_un,:pmasca_un,:pdescr_un)´);
ibquery1.ParamByName(´psigla_un´).Asstring := fsigla_un.text;
ibquery1.parambyname(´pmasca_un´).asstring := fMasca_un.text ;
ibquery1.ParamByName(´pdescr_un´).AsString := fDescr_un.Text ;
ibquery1.ExecSQL ;
CommitRetaining ;
except
on Exc:Exception do
begin
showMessage(´Ocorreu um erro na tentativa de gravar o registro: ´+Exc.Message);
princi.tran.Rollback;
end;
end;
Isto gravaria imediatamente no servidor sem problemas
mesmo que outros usuario estejam inserindo arquivos
na mesmo hora ?
t+
Claudio
GOSTEI 0