Liaison vb.net et access

Commenter

Contenu du snippet

je suis parti d'un problème, ADO.Net se connecte a une base de donnée, mais ferme tout de suite la connection après. Donc il faut se reconnecter dessus a chaque fois. Le problème viens du fait, quand on a beaucoup de connection a faire, ça ralentie beaucoup le code, donc voici une astuce

Faite une référence a Access
Crée un module dans Access, ex: Module1

créer une procédure dedans, ex: Test

ensuite, de VB.Net appeller la procédure qui se trouve dans Access et le tour est joué.

Biens sur, si c'était que ça, ça vaudra pas la peine de dire juste ça. Donc voici un module en VB.Net qui fait tout pour vous :-)

Source / Exemple : 


Module Access2
    Dim soft As Access.Application
    Dim ouvert As Boolean = False

    Public Sub impression(ByVal nom As String, Optional ByVal Acview As Access.AcFormView = Access.AcFormView.acPreview, Optional ByVal filtre As String = "", Optional ByVal where As String = "")
        ouvrirAccess()
        Try
            soft.DoCmd.OpenReport(nom, Acview, filtre, where)
            soft.DoCmd.Maximize()
        Catch
        End Try
    End Sub

    Public Sub executerCode(ByVal code As String, ByVal arg1 As String)
        ouvrirAccess()
        Try
            soft.Run(code, arg1)
        Catch
        End Try
    End Sub

    Public Sub executerCode(ByVal code As String, ByVal arg1 As String, ByVal arg2 As String)
        ouvrirAccess()
        Try
            soft.Run(code, arg1, arg2)
        Catch
        End Try
    End Sub

    Public Sub executerCode(ByVal code As String)
        ouvrirAccess()
        soft.Run(code)
    End Sub

    Public Sub fermeture()
        On Error Resume Next
        soft.CloseCurrentDatabase()
        soft.Quit()
        soft = Nothing
    End Sub

    Public Sub ouvrirAccess()
        Dim temp As String
        Try
            temp = soft.CurrentDb.Version
        Catch
            If Not ouvert Then
                soft = New Access.Application
                soft.Visible = True
                ouvert = True
            End If
            soft.OpenCurrentDatabase("C:\projet.mdb")
        End Try
    End Sub
End Module

Conclusion :


attention, si vous voulez appeller la procédure Test, faut faire executerCode("Test") et pas executerCode("Module1.Test")

Attention 2: les type interger passe sasn problème, malgré le fait qu'un integer .Net est 32 bit et un integer Access est 16 bit. par contre, un type date passe pas :-(. Pour passer une date, la procédure dans Access va devoir recevoir un string et une conversion automatique va se faire entre la date .Net vers un string Access. Ensuite si vous voulez travailler avec une date sous access, envoyer la dans un variable de type date pis mettez lui un format

ex: sous Access pour recevoir un format Date de .Net
Public Sub GroupeHoraireTest(test As String)
Dim temp As Date
temp = Format(test, "yyyy-mm-dd")
MsgBox temp
End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_dragon)