IBX, como fechar todas as tabelas e transa��es ao mesmo temp

Question

Boa noite o titlo j� diz tudo,como fechar todas as tabelas e transa��es ao mesmo tempo....Uso IBX...Grato[color=green:8e55c82dbf]Movido de Delphi para Interbase/Firebird[/color:8e55c82dbf]...

Wilson Brito · Answer

Desconecte a Database.Ex:[code:1:3bb49d5082]IBDatabase1.Connected := False;[/code:1:3bb49d5082]...

Martins · Answer

[quote:61515e35d7=�wilsondrb�]Desconecte a Database.Ex:[code:1:61515e35d7]IBDatabase1.Connected := False;[/code:1:61515e35d7][/quote:61515e35d7]Pode ser, mas lembre-se sempre de s� abrir as tabelas quando for utiliz�-las, e ap�s utilizar fech�-las, n�o tem necessidade de deixar tabelas q n�o ser�o utilizadas por determinado procedimento abertas, j� imaginou 20 tabelas em um DataModule, todas marcadas com o [b:61515e35d7]Active = True[/b:61515e35d7] ainda em tempo de projeto, o programa vai ser carregado com todas as tabelas abertas, n�o � uma boa pr�tica, al�m de aumentar consideravelmente o �ndice de corrup��es de sua base. Vai utilizar um procedimento de vendas, vai precisar da TbProdutos, TbClientes, abra apenas quando for chamar o procedimento, logo em seguida torne a fechar as tabelas.Bom desenvolvimento!!!...

Marcos Fernando · Answer

Como o nosso amigo [b:0bdcff37c6]wilsondrb[/b:0bdcff37c6] declarou eu uso, sempre abro e fecho as tabelas de acordo com a necessidade, nunca deixo nanda aberto quando n�o utilizo..

por isso que procuro uma maneira facil de fechar todas as tabelas e transa��es,

Nosso amigo [b:0bdcff37c6]Martins [/b:0bdcff37c6]declarou pra mim fechar a database toda ves, pode ser mais ai n�o vai demorar mais porque toda ves terei que fazer a conex�o com a base novamente???

algu�m faz diferente?

Paulo · Answer

[quote:5b920d116a]vari:integer;beginwith DataModule2 do begin for i:= 0 to ComponentCount-1 do begin  if (Components).ClassName = �TIBQuery� then  TIBQuery(Components).Active:=False; end;end;end;[/quote:5b920d116a]S� n�o se esque�a de adicionar a unit IBQuery ou qquer outra referente a classe dos componentes referenciado em cada formul�rio onde ter� a rotina acima....

Gigatel · Answer

Eu fa�o assim ( apesar de ser duramente criticado pelo m�todo.. ) tenho um tada m�dule onde fica o IBDatabase e IBTransaction somente isto.. ligo as tabelas as elas em seu pr�prio form..ou seja Cadastro de clientes...l� s� tem a tabela clientes e mais alguma que nescessitar..quando inicializo o form ele ativa as tabelas e quando sai desliga..ou seja o banco de dados s� estar� funcionando quando for requisitado..no prescesso de insert ou exclus�o dou Commit no IBTransaction e pronto...tudo funcionando as mil maravilhas...t+ e valew,,

Marcos Fernando · Answer

Grato amigos usei a dica do PAULO:fiz assim:vari:integer;beginwith dmdados do begin// fecha TTIBQueryfor i:= 0 to ComponentCount-1 do beginif (Components).ClassName = �TIBQuery� thenTIBQuery(Components).Active:=False;end; //fim TIBQuery// fecha TIBDataSetfor i:= 0 to ComponentCount-1 do beginif (Components).ClassName = �TIBDataSet� thenTIBDataSet(Components).Active:=False;end; //fim TIBDataSet// fecha TIBTransactionfor i:= 0 to ComponentCount-1 do beginif (Components).ClassName = �TIBTransaction� thenTIBTransaction(Components).Active:=False;end; //TIBTransactionend;end;Se algu�m tiver alguma recomenda��o as ordensThanks...

Afarias · Answer

[code:1:a940977d2f]with IBDatabase do  for i := 0 to Pred(TransactionCount) do    if Transactions&#91;i&93;.InTransaction then      Transactions&91;i&93;.Commit;[/code:1:a940977d2f]T+...

Afarias · Answer

outra forma � usar:[b:a375241161]IBDatabase.CloseDataSets;[/b:a375241161]mas as transa��es s� ser�o fechadas se estiverem configuradas com a propriedade [b:a375241161]AutoStopAction[/b:a375241161] diferente de [b:a375241161]saNone[/b:a375241161]T+...

F�rum IBX, como fechar todas as tabelas e transa��es ao mesmo temp #52856