Base en réseau avec VB + Access+ ADO : HELPPPP !!!!

Question

Bonjour,

J'ai toujours des problemes avec ADO et access. Lorsque j'attaque en reseau un m&#234;me base avec le programme ci dessous ADO m'affiche le message au apres quelques secondes "Champ actuellement verouill&#233;". Puis il n'y &#224; plus qu'&#224; faire CTRL+ALT+SUP sur le VB

J'ai d&#233;j&#224; pos&#233; la question dur le forum et on m'a repondu d'utiliser directement une requete SQL. J'ai test&#233; et le resultat est pire.

Bref comment g&#233;rer proprement l'acc&#233;s &#224; une base r&#233;seau avec ADO ou du moins comment g&#233;rer cette erreur "Champ actuellement verouill&#233;".

    For Cpt = 0 To 25500
        Set MyRecordSet = New ADODB.Recordset
        MyRecordSet.open "MaTable", AdoMyBase, adOpenKeyset, adLockOptimistic
        
        MyRecordSet.AddNew



        MyRecordSet.fields("MyType").value = "TOTO"
        MyRecordSet.Update
    
        ' Fermeture du recordset
        If (Not MyRecordSet Is Nothing) Then
            If MyRecordSet.State = adStateOpen Then MyRecordSet.Close
            Set MyRecordSet = Nothing
        End If
    
    Next

crenaud76 · Answer

Essaye d'ouvrir ton recordet en adOpenDynaset au lieu de AdOpenKeySet

Christophe R

cs_CanisLupus · Answer

Salut,

S'il s'agit seulement d'ajouter un enreg, pourquoi ne pas faire un simple ?

AdoMyBase.Execute " INSERT INTO MaTable (MyType) VALUES ('" & TaVarTxt & "')"

Loup Gris

cs_globule · Answer

Pour reponde a Lou Gris, comme je l'ai dit dans mon message le SQL conduit au m&#234;me resultat (enregistrement bloqu&#233; si on utilise trop de requetes en reseau simultanement).
Mon programme fonctionne, le probleme c'est uniquement en r&#233;seau.

cs_CanisLupus · Answer

Alors, il ne reste plus qu'&#224; utiliser 

sub machin()
on error goto etiquette
....
....
....
exit sub
etiquette:
resume
end sub

Ca bouclera tant qu'il y aura verrouillage.
Je reconnais, c'est pas tr&#232;s propre et risqu&#233; mais je ne vois rien d'autre pour l'instant.

Loup Gris

cs_globule · Answer

J'ai deja essay&#233; et le resultat est pas terrible. De plus il y a le risque de boucle infinie.
Mais d'apres les reponses, j'en conclu qu'ADO+access et incapable de g&#233;rer un r&#233;seau proprement. C'est incroyable !

crenaud76 · Answer

ADO sait parfaitement bien travailler en r&#233;seau, mais Access, il n'aime pas vraiment cela.

Christophe R

cs_globule · Answer

Je parle de bases de type access 2002 pas du logiciel lui m&#234;me

Base en réseau avec VB + Access+ ADO : HELPPPP !!!!

7 réponses

Discussions similaires