timeout()Résolu

Question

Bonjour,
j'ai fait un programme en VB qui permet le transfert d'une base de donnée, il passe bien, mais à un certain moment je veux arreter l'execution de cette application pendant 5min, si vous pouvez m'aider, comment je peux utiliser la fonction timeout(), ou sleep sous VB6.0
merci beucoup

sara_net · Accepted Answer

salut,
merci de m'avoir repondre, mais lorsque je l'ai appliquer dans une boucle
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Do While rsc.fin000 = 0
     '# Création de la liaison
     Set wrkJet = CreateWorkspace("", "", "", dbUseODBC)
     Set db = wrkJet.OpenConnection("", dbDriverNoPrompt, False, "ODBC;DSN=;UID=;PWD=")
     'selection fin000
     lsql = "select fin000 from qgpl.ven2800 order by ven2800.tim001 desc"
     Set rsc = db.OpenRecordset(lsql)
 Sleep 2000
Loop
 il m'a revoye l'erreur suivante:" Procedure Sub ou Fuction non definie"
cordialement

cs_Exploreur · Answer

Salut,

Voici déjà pour l'utilisation de Sleep :

Dans un module, ou form

'Api Pause
 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Utilisation :
     'Pause
      Sleep 2000 ' Ici 2 secondes

A+
Exploreur

cs_Exploreur · Answer

Salut,


Déclare l'Api de windows dans ta Form(Général) ou tu veux utiliser la pause 


A+


Exploreur

sara_net · Answer

merci infiniment, ça marche tres bien.
c'est vraiment super!

cs_Exploreur · Answer

Salut,

Cela fait toujours plaisir d'avoir pu répondre à une Demande....Pensez réponse acceptée...!<>!

A+
Exploreur

Timeout()

5 réponses

Votre réponse

Discussions similaires