COMO NAO DEIXAR O PROGRAMA TRAVAR

BRENNO 08/03/2005 17:04:56
#71770
Queria Saber como eu faco para em grandes operacoes impedir q o programa trave, tipo meu sistema trava mais volta apos terminar a operacao teria como ele fazer a operacao sem acontecer isso?
USUARIO.EXCLUIDOS 08/03/2005 17:08:30
#71771
coloca o DoEvents

entre a operaco
WEBMASTER 09/03/2005 00:12:36
#71830
isso mesmo, por exemplo
Private Sub FunçãoGRande()
Dim x
do until x=90000
call Função1
call função2
DoEvents <----------------------
loop
end sub


e se não for função em loop vah colocando o DoEvents entre pedaços grandes, espero ter ajudado tb flw ae
USUARIO.EXCLUIDOS 09/03/2005 06:46:05
#71839
Caso sua preocupação seja quando você faz acesso à  base de dados e sua aplicação fique travada enquanto processa algo no banco e esse processamento seja demorado, utilize conexão assincrona. Dessa forma sua aplicação não trava de jeito nenhum.

Espero ter ajudado
USUARIO.EXCLUIDOS 09/03/2005 08:06:33
#71842
e como é especificado para q a conexao seja aberta como assíncrona
USUARIO.EXCLUIDOS 09/03/2005 08:09:22
#71844
no ado é a opcao


adAsyncExecute
USUARIO.EXCLUIDOS 09/03/2005 08:30:31
#71848
mas sÂÂÂ'tem um probelma ele nao espera a conexao se completar para prosseguir

exemplo eu dou no sub_main()

db.open ......., adAsyncExecute

dai ele me joga para o form pricipal até mesmo se terminar a conexao


como resolve isso ?
USUARIO.EXCLUIDOS 09/03/2005 08:57:46
#71851 

Db.Open ("DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & Server & "; DATABASE=" & Database & "; UID=" & User & "; pwd=  " & Senha & " ;OPTION=3"), , , adAsyncConnect
  While (Db.State = adStateConnecting)
    DoEvents
          
    Wend
Tópico encerrado , respostas não são mais permitidas
Voltar