[VB.Net]Connection Access

Question

Je reçoi une erreur après (environ) 100 requêtes a ma base de donnée SQL ???

voici comment je me connecte


Friend WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
    Friend WithEvents OleDbCommand1 As System.Data.OleDb.OleDbCommand
    Public drd1 As System.Data.OleDb.OleDbDataReader

    Public Sub ouvertureRST(ByVal SelectRST As String)
        Static ouvert As Boolean = False
        connection()
        Me.OleDbCommand1 = New System.Data.OleDb.OleDbCommand(SelectRST, OleDbConnection1)
        drd1 = OleDbCommand1.ExecuteReader
    End Sub

    Public Sub connection()
        Static erreur As Integer = 0
        Try
            Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection("Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
            "ocking Mode=0;Jet OLEDB:Database Password=;Data Source=""C:\Documents and Settings\savmax\Mes documents\Visual Studio Projects\HeureW\HeureW2.mdb""" & _
            ";Password=" & Constante.pass & ";Jet OLEDB:Engine Type=4;Jet OLEDB:Global Bulk" & _
            " Transactions=1;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System database=""w:" & _
            "\Timetech\Formulaire\RappTK2000.mdw"";Jet OLEDB:SFP=False;Extended Properties=;Mo" & _
            "de=ReadWrite;Jet OLEDB:New Database Password=;Jet OLEDB:Create System Database=F" & _
            "alse;Jet OLEDB:Don't Copy Locale on Compact=True;Jet OLEDB:Compact Without Repl" & _
            "ica Repair=False;User ID=" & Constante.logon & ";Jet OLEDB:Encrypt Database=False")
            '
            'OleDbConnection1
            '
            'Me.OleDbConnection1.ConnectionString = 

            OleDbConnection1.Open()
        Catch
            If erreur <> 10 Then
                erreur += 1
                fermerConnection()
                connection()
            Else
                MsgBox("Erreur rendu as 10")
            End If
        End Try
        erreur = 0
    End Sub

    Public Sub fermerConnection()
        On Error Resume Next
        OleDbCommand1.Dispose()
        OleDbCommand1 = Nothing
        OleDbConnection1.Dispose()
        OleDbConnection1.Close()
        OleDbConnection1.ReleaseObjectPool()
        Me.OleDbConnection1.ConnectionString = ""
        OleDbConnection1 = Nothing
        If Not drd1.IsClosed Then
            drd1.Close()
        End If
        drd1 = Nothing
    End Sub



Comme vous pouvez le voir, s,il y a un problème, je m'assure de fermer la base de donnée puis je la ré-ouvre, mais pourant, malgré que les 3 variables (OleDbCommand1, OleDbConnection1,drd1) sont bien a nothing, ça marche toujours pas, ça plante quand même. Quelqu'un a une solution ou a une autre façon de se connecter a une base de donnée Access local sans serveur ???

cs_dragon · Answer

je croyais que ça avait planté le post, vu que j'ai fais un autre topic avec exactement le même titre

[VB.Net]Connection Access

1 réponse

Discussions similaires