Connexion ADODB simultanées

[nak]

Bonjour à tous,

J'utilise un fichier partagé avec un système d'enregistrement dans une base.xlsx

Malheureusement si plusieurs personnes enregistrent en même temps, j'ai une jolie erreur

J'ai vu que Excel ne gérait pas les verrouillages optimistes ou pessimistes. Exist-il quand même une parade, une fonction similaire ?

Merci

A+

Sub Fermer_et_sauvegarder()
Dim Cn As ADODB.Connection
Dim Cd As ADODB.Command
Dim Rst As ADODB.Recordset
Dim Fichier As String, NomFeuille As String
Dim VSearch As String, i As Integer, L As Integer
Dim DernLigne As Long

' Chemin d'accès de la base
Fichier = "D:\Base\Base_FI.xlsx"
'Nom de la feuille dans le classeur fermé
NomFeuille = "BaseFI"

' Créer la connexion
Set Cn = New ADODB.Connection
With Cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
        & Fichier & ";Extended Properties=""Excel 12.0;HDR=NO;"""
    .Open
End With

Set Cd = New ADODB.Command
Cd.ActiveConnection = Cn

' Ouvrir 1000 lignes d'enegistrement
Cd.CommandText = "SELECT * FROM [BaseFI$A1:AA65000]"
Set Rst = New ADODB.Recordset
Rst.Open Cd, , adOpenKeyset, adLockOptimistic

' Boucler sur plusieurs lignes
DernLigne = Sheets("Fiche").Range("A" & Rows.Count).End(xlUp).Row
For L = 20 To DernLigne

' Chercher la valeur dans la BdD
Rst.Find "F1 = '" & Cells(L, 1) & "'", , adSearchForward, 1
    
' Si on se retrouve à la fin des enregistrement
' On en créé un nouveau
If Rst.EOF = True Then Rst.AddNew

    ' On rempli la ligne d'enregistrement avec les valeurs
    For i = 0 To 26 ' Mettre ici le nombre de champs -1
    Rst(i).Value = Sheets("Fiche").Cells(L, 1 + i)
    Next i

Next L

' Metre à jour la ligne d'enregistrement
Rst.Update
    
' Fermer la connexion
Cn.Close

' Effacer les variables objet
Set Cn = Nothing
Set Cd = Nothing
Set Rst = Nothing

End Sub

 

[nak]

Re : Connexion ADODB simultanées

Bonsoir,

Alors personne n'a de solution pour mon problème ?

Voici la piste sur laquelle je suis en train de faire des tests.

Lorsque un utilisateur clique sur le bouton enregistrer :
- Je regarde si un fichier reserve.txt est présent dans un dossier temp.
- Si non :
- Je crée le fichier reserve.txt
- Je lance l'enregistrement avec ADODB
- Je temporise 2 secondes pour être certain que la connexion est fermée
- J'efface le fichier reserve.txt
- Si oui :
- MsgBox pour inviter l'utilisateur à relancer l'enregistrement

Que pensez vous de cette astuce ? Qui ressemble à du bricolage je vous l'accorde

A+

 

[tototiti2008]

Re : Connexion ADODB simultanées

Bonsoir nak,

ça peut marcher, mais Excel n'est pas une base de données multi-utilisateur
Vouloir en faire une avec Excel, c'est peut-être se tromper d'outil, mais bon, ça peut marcher
Si j'ai compris, ton classeur est partagé ? Les expériences que j'ai eu sur classeur partagé et macros ne m'ont pas laissé de bons souvenirs, pas de soucis de ce côté là ?
Si tu utilises ton classeur partagé comme juste une base de données (celle à laquelle tu te connectes pour ajouter un enregistrement avec ADO), alors je te conseillerais de te connecter à une vraie base de données (même Access devrait pouvoir gérer une dizaine d'accès concurrents simultanés)