 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
RenataAlbergoni
Aprendiz
Registrado: Sexta-Feira, 3 de Fevereiro de 2012
Mensagens: 104
|
 Enviada: Sex Fev 03, 2012 5:20 pm Assunto: Dúvida em config IBDatabase, IBTransaction, IBQuery |
 |
|
Oi amigos, criei um sistema com esses componentes, porem estou tendo problemas com travamento constantes em rede.
Gostaria que vcs conferissem os componentes e configurações que estou usando para me ajudar a descobrir o que acontece...
Estou usando banco de dados Firebird 2.5, componentes interbase.
| Código: | IBDATABASE
AllowStreamedConnected := True;
Connected := True;
DataBaseName := D:\2006\FBDados\FBVENDA.FDB;
DBSQLDialect := 3;
DefaultTransaction := IBTransaction1;
Iddle Timer := 0;
LoginPrompt := False;
Params := [ user_name=sysdba, password=masterkey, lc_ctype=win1252];
SQLDialect := 3;
Tag := 0;
TraceFlgas := []; |
| Código: | IBTRANSACTION1
Active := True;
AllowAutoStart := True;
AutoStopAction := saNone;
DefaultAction := TaCommitRetaining;
DefaultDatabase := MyDatabase;
IDleTimer := 0;
Params := read_committed, rec_version, nowait; |
| Código: | IBQuery
Active := True;
Database := DDataBase.MyDatabase;
Transaction := DDataBase.IBTransaction1;
SQL.Text := 'SELECT * FROM CADASTRO';
UpdateObject := UPCliente |
| Código: | No AfterOpen do IBQuery eu coloco
AtualizarIBQuery(TIBQuery(Dataset));
Application.ProcessMessages; |
| Código: | No AfterPost do IBQuery eu coloco
AtualizarIBQuery(TIBQuery(Dataset));
DDataBase.IbTransaction1.CommitRetaining;
Application.ProcessMessages; |
| Código: | No BeforePost do IBQuery eu coloco
// Gravar Registro
If not DDataBase.IbTransaction1.InTransaction Then
DDataBase.IbTransaction1.StartTransaction; |
| Código: | No OnPostError eu coloco
DDataBase.IbTransaction1.RollbackRetaining; |
| Código: | Procedimento AtualizarIBQuery
// Atualizar IBQuery
procedure AtualizarIBQuery(Tabela: TIBQuery);
var
Bookmark: TBookmark; {Salvar Posição Atual}
begin
if not Tabela.Active then EXIT;
Bookmark := Tabela.GetBookmark;
Tabela.DisableControls;
Try
with Tabela do
begin
Tabela.First;
Tabela.Last;
end;
Finally
Tabela.GotoBookmark (Bookmark);
Tabela.FreeBookmark (Bookmark);
Tabela.EnableControls;
End;
end; |
UPCliente
Não tem mtas configurações, apenas gero os sql... |
|
| Voltar ao Topo |
|
 |
rique_neves
Mestre
Registrado: Sexta-Feira, 17 de Fevereiro de 2012
Mensagens: 873
|
| Enviada: Seg Fev 25, 2013 11:36 pm Assunto: Re: Dúvida em config IBDatabase, IBTransaction, IBQuery |
|
|
boa noite renata seja um pouco mais claro em qual processo ocorre o travamento.
os processos de configuracao .: Ibdatabase você efetua direto no componente ou faz em tempo de execução ?
Olhando seu codigo tenta alterar o idleTimer=1, e faça teste.
_________________
Atrás de todo problema a uma oportunidade brilhantemente disfarçada!
Compartilhar Imagens .: http://s124.photobucket.com/ |
|
| Voltar ao Topo |
|
|
viox
Colaborador
Registrado: Sábado, 22 de Outubro de 2011
Mensagens: 1090
Localização: SINOP - MT
|
| Enviada: Ter Fev 26, 2013 9:01 am Assunto: |
|
|
Olá! são muitos registros ? Caso sim, crie índice na tabela.
Você está trazendo todos os campos da tabela, é necessário ?
É necessário deixar todos os registros no Dataset ?
Debug e fale qual linha precisamente se encontra a lentidão.
_________________
Just another Delphi guy.
http://www.soft42.com
http://www.nortaonegocios.com.br |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
