On error

Question

Salut! Je vous explique mon probl&#232;me! J'ai une fonction qui s'occupe de se connecter &#224; une base de donn&#233;e! Seulement de par mes traitements, il arrive que la connexion soit impossible. Ce que je voudrais, c'est que quand les lignes de connexion plante, au lieu de faire planter le programme, je voudrais attendre une courte periode et retenter la connexion:! En fait faut que je parte sur les On Error mais j'ai du mal &#224; les faire fonctionner!! Jvous laisse quand meme mon bout de code qui ne fonctionne pas :( .. Merci d'avance pour ceux qui pourront m'aider


Public Function ConnexionBDD()
    
    On Error GoTo Attente
    'D&#233;finition du pilote de connexion
    cnx.Provider = "Microsoft.Jet.Oledb.4.0"
    'D&#233;finition de la cha&#238;ne de connexion
    cnx.ConnectionString = Chemin
    'Ouverture de la base de donn&#233;es
    cnx.Open

Attente:
    Sleep 200
    ConnexionBDD
    
End Function

NHenry · Answer

D&#233;j&#224; utilise On LOCAL Error, sinon ta rouitine sert pour le reste du programme.



Public Function ConnexionBDD()
    
    On Error GoTo Attente
Etiquette:

    'D&#233;finition du pilote de connexion
    cnx.Provider = "Microsoft.Jet.Oledb.4.0"
    'D&#233;finition de la cha&#238;ne de connexion
    cnx.ConnectionString = Chemin
    'Ouverture de la base de donn&#233;es
    cnx.Open
    

    Exit function
Attente:
    Sleep 200
    Resume Etiquette    
End Function

Un conseille, utilise les fonction que lorsque tu retourne kkechose.



Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)



NH

On error

1 réponse

Discussions similaires