Discussion :

[Asdorve]

Bonjour,

Voilà donc mon problème:

je récupère des infos dans une base de données et je les affiche dans un datagrid.

Des fois, si quelqu'un est dans l'enregistrement que je veux récupérer, le programme s'arrête et reprend une fois que l'autre personne a fini de consulter l'enreg en question.

Comment je peux faire pour afficher un message lorsque le temps d'exécution dépasse 20 secondes par exemple?

Merci beaucoup pour votre aide.

[totoche]

Associer un timer avec Connection.state n'est pas une bonne solution?

[Asdorve]

Peut-être. Je ne connais pas...

EDIT:

Voici où ça bloque quand un autre utilisateur est dans l'enregistrement (en rouge):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  'on effectue la requête sql en tenant compte de DateDéfinitve
    cmdADO.CommandText = "SELECT..."

    'Configurer le recordset
    'si le recordset est déjà ouvert on le ferme
        If rsADO.State = adStateOpen Then
        rsADO.Close
    End If
    'Curseur client
    rsADO.CursorLocation = adUseClient
    'curseur dynamique
    rsADO.CursorType = adOpenDynamic
    'on verrouille l'enregistrement des accès dans la source de données
    rsADO.LockType = adLockPessimistic
    
    'ouverture du recordset
    rsADO.Open cmdADO

[totoche]

une piste avec Jet OLEDB:Lock Delay

J'ai trouvé ça
http://bidou.ftp-developpez.com/Cour...ype%20ADODB%22

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TaConnexion.Properties("Jet OLEDB:Lock Delay") = 20000

[Asdorve]

j'utilise pas OLEDB pour me connecter

j'utilise ADODB. Je vais voir s'il n'existe pas cette propriété aussi pour ADODB.

Merci

[Asdorve]

j'ai fait ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    cnnADO.Properties("ADODB:Lock Delay") = 20000

ça a pas l'air de marcher.

[totoche]

ADO ne permet pas de se connecter directement à une base de données particulière : cette API passe obligatoirement par OLE DB.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cnnADO.Properties("Jet OLEDB:Lock Delay") = 20000

[Asdorve]

Message d'erreur sur cette ligne:

Impossible de trouver l'objet dans la collection correspondant au nom ou à la référence ordinale demandé

[totoche]

Aie tu utilises cnnADO.Provider = "MSDataShape"

[Asdorve]

non, je passe un DSN

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
'Déclaration des variables locales
    Dim strInput As String
 
    InitConnection = False
    'Initialisation de la chaine de connexion
    cnnADO.ConnectionString = "DSN=GTI;"
 
    'Vérifie que la connexion est bien fermée
    If cnnADO.State = adStateOpen Then
        cnnADO.Close
    End If
 
    'Connexion à la base de données
    cnnADO.Open cnxString, GTI, GTI, adSyncConnect
 
    'Attente que la connexion soit établie
    While (cnnADO.State = adStateConnecting)
        DoEvents
    Wend
 
    'Vérification des erreurs dans le cas d'une mauvaise connexion
    If cnnADO.Errors.Count > 0 Then
 
        'Affichage des erreurs
        MsgBox cnnADO.Errors.Item(0)
        InitConnection = False
        Exit Function
 
        Else
            InitConnection = True
    End If
 
    cmdADO.ActiveConnection = cnnADO

[Asdorve]

Bon, j'ai utilisé .CommandTImeOut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
...
On Error GoTo Erreur
    'ouverture du recordset
    MonErreur = "TimeOut"
    cmdADO.CommandTimeout = 10
     MonErreur = ""
    rsADO.Open cmdADO
 
Exit Sub
 
Erreur:
If MonErreur = "TimeOut" Then
    MsgBox ("Une autre personne utilise la ressource. Réessayez ultérieurement.")
Else
    ...
End If
...

Voilà!

@+
Merci à totoche qui a répondu!

[Asdorve]

Bon, j'ai utilisé .CommandTImeOut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
...
On Error GoTo Erreur
    'ouverture du recordset
    MonErreur = "TimeOut"
    cmdADO.CommandTimeout = 10
     MonErreur = ""
    rsADO.Open cmdADO
 
Exit Sub
 
Erreur:
If MonErreur = "TimeOut" Then
    MsgBox ("Une autre personne utilise la ressource. Réessayez ultérieurement.")
Else
    ...
End If
...

Bonjour,

je reviens sur ce que j'ai dit.
Après des tests, il apparait que .CommandTimeOut ne s'applique que lorsque je fais cmdADO.ActiveConnection = cnnADO, mais pas lorsque je fais rsADO.Open cmdADO.

Je rappelle donc le problème: si quelqu'un lit un enregistrement de la table, on bloque ici: rsADO.Open cmdADO

Comment je peux faire pour au moins lire les données qui sont déjà lues pas quelqu'un d'autre?

Merci

[Asdorve]

Personne n'a d'idée?

[totoche]

Peux tu changer le verrouillage du curseur en optimiste?

[Asdorve]

salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
'Curseur client
    rsADO.CursorLocation = adUseClient
'curseur dynamique
    rsADO.CursorType = adOpenDynamic
    
'on verrouille l'enregistrement des accès dans la source de données
    rsADO.LockType = adLockOptimistic

j'ai toujours le même problème.

[Delbeke]

Avec dao, les tables ne sont verouillées que le temps entre le Edit/AddNew et le update. De plus seul un blocks de 4 ko est verouillé pour chaque edit/addnew : celui contenant le recordset
Je ne sais pas pour ado

[Asdorve]

SAlut DElbeke,

je viens de faire le test suivant:

-personne ne lit les données,
-je lance l'appli et ça marche.

-moi et moi seul lis un enregistrement,
-le programme plante,
-je sors de l'enregistrement,
-le programme reprend et se termine correctement.