Bonjour,

voici mon problème
à l'occasion ma bdd access se fige avec le message
La base de données est ouverte en lecture seul. Vous pouvez uniquement modifier les données à l'aide de table. Pour modifier la structure, enregistrez une copie local.

Cette bdd est sur le réseau et ceux qui l'utilise, leurs nom d'utilisateur sont en lecture seul à cet endroit.

mon programme qui interroge cette bdd est seulement un select, aucun insert ni update.
tout fonctionne très bien sauf qu'a l'occasion elle se fige via mon programme.
En fermant ce programme sur l'ordinateur en question elle redevient ok.

voici mon code

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
35
36
37
38
39
40
41
42
43
44
45
        Dim da As New OleDbDataAdapter()
        Dim ds As New DataSet()
        Dim dt As DataTable
        Dim S_Conn_BDD As String
        Dim Nom_bdd As String = "U:\bdd\job.mdb"
        Dim result1 As String
        Dim enfant As String
        Dim connexionOle As OleDbConnection = New OleDbConnection
 
        S_Conn_BDD = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Nom_bdd & ";User Id=admin;Password=;"
        connexionOle = New OleDbConnection(S_Conn_BDD)
        connexionOle.Open()
 
        da = New OleDbDataAdapter("SELECT * FROM Pere_fils WHERE Pere_fils.Fils = '" & CHOIX & "'", connexionOle)
 
        da.Fill(ds, "Pere_fils")
 
        For i = 0 To ds.Tables(0).Rows.Count - 1
 
            dt = ds.Tables("Pere_fils")
 
            Dim row As DataRow
 
            row = dt.Rows(i)
 
            enfant = row("FILS")
            result1 = result1 & ", " & row("PERE")
 
        Next
 
 
        connexionOle.Close()
        connexionOle.Dispose()
        da.Dispose()
 
        connexionOle = Nothing
        ds = Nothing
        da = Nothing
 
        GC.Collect()
        GC.WaitForPendingFinalizers()
        GC.Collect()
        GC.WaitForPendingFinalizers()
 
'...
J'ai vue plusieurs cas qui on ce message sur le net mais aucun correspond à ce problème.

Merci!