multithread avec une base de données AccessRésolu

Question

Salut &#224; tous,



Je d&#233;veloppe une appli qui doit faire des acces concurents sur une m&#234;me
base de donn&#233;es. C'est un peu long , mais je donne un max d'element pour



J'utilise OLE DB pour piloter la base de donn&#233;es (cf connection string plus bas). Les requ&#234;tes marchent toutes s&#233;quentiellement.



Je cr&#233;e bien des thread diff&#233;rent dans le code, mais la base de donn&#233;es refuse les acces concurents 



J'ai un message d'erreur du type:



ExecuteReader requires an open and available Connection. The connection's current state is Open, Executing..



Je pense que &#231;a vient de la connectionString, mais je ne sais pas quoi mettre...



Je vous donne quelques lignes de code pour expliquer un peu plus:



'La connection String



       
Me.FinancialConnection.ConnectionString = "Jet OLEDB:Global Partial
Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database Locking
Mode=0;Jet OLEDB:Database Password=;Data Source=""C:\My
Documents\db1.mdb"";Password=;Jet OLEDB:Engine Type=5;Jet OLEDB:Global
Bulk Transactions=1;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet
OLEDB:System database=;Jet OLEDB:SFP=False;Extended
Properties=;Mode=Share Deny None;Jet OLEDB:New Database Password=;Jet
OLEDB:Create System Database=False;Jet OLEDB:Don't Copy Locale on
Compact=False;Jet OLEDB:Compact Without Replica Repair=False;User
ID=Admin;Jet OLEDB:Encrypt Database=False;"




'les diff&#233;rentes sub que je veux "Threader"



    Private Sub OGQuery()

        Me.OGCommand.CommandText = "SELECT [Client Group] FROM [ExtractCJI3] "



        Me.OGDataAdapter.Fill(Me.DataSet1, "OG")

    End Sub



    Private Sub SuppliersQuery()

        Me.SupplierCommand.CommandText = "SELECT [Client Group] FROM [Extract CJI3 Propre]"



        Me.SupplierDataAdapter.Fill(Me.DataSet1, "Suppliers")

    End Sub



    Private Sub CustomersQuery()

        Me.CustomerCommand.CommandText = "SELECT [Client Group] FROM [All MU]"



        Me.CustomerDataAdapter.Fill(Me.DataSet1, "Customers")

    End Sub



'Creation des threads



    Private Sub buildSpendsbyOGGrid()



        Dim myOGThread As New System.Threading.Thread(AddressOf OGQuery)

        Dim mySuppliersThread As New System.Threading.Thread(AddressOf SuppliersQuery)

        Dim myCustomersThread As New System.Threading.Thread(AddressOf CustomersQuery)



        myOGThread.Start()

        myCustomersThread.Start()

        mySuppliersThread.Start()



        myOGThread.Join()

        myCustomersThread.Join()

        mySuppliersThread.Join()

    End Sub







Si vous avez m&#234;me que des &#233;l&#233;ments de r&#233;ponse, je suis preneur!!!



Vinz

cs_dragon · Accepted Answer

c'est simple, il te faut un patron singleton.

un peu dur a expliquer comme &#231;a, je fais un tutorial l&#224; dessus demain, sinn en attendant, fouille sur le net sur le singleton.

un singleton est une classe qui est accessible par n'importe o&#249; dans le programme et m&#234;me par les thread et en tout moment, il y aura seulement une seule instance et jamais 2, malgr&#233; que 2 thread peut-&#234;tre en m&#234;me temps dedans.

Le principle est au lieu de faire un new sur la class, c'est de demander une instance. Si elle existe pas, l'instance sera cr&#233;&#233;, puis elle te sera donner. Ensuite, tu peux faire ce que tu veux avec, comme une classe normal, juste &#231;a cr&#233;ation est diff&#233;rente

------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

veyraud · Answer

Je ne connais pas les singletons , mais je vais chercher je te donne un retour .




Vinz

cs_dragon · Answer

je fais &#231;a un peu plus tard. Je suis du qu&#233;bec, donc avec le d&#233;calage tu auras &#231;a demain matin en te levant


------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

Multithread avec une base de données Access

3 réponses

Discussions similaires