Liaison vb.net et access

Soyez le premier à donner votre avis sur cette source.

Snippet vu 17 226 fois - Téléchargée 29 fois

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

Ajouter un commentaire

Commentaires

slikamyahmed
Messages postés
3
Date d'inscription
dimanche 16 mars 2008
Statut
Membre
Dernière intervention
5 janvier 2010
-
pour aider les gens il faut donner quelque chose bien testé et bien fini,faut il casser la tête pour faire une simple connexion

merci
zouzouzizou
Messages postés
3
Date d'inscription
dimanche 11 février 2007
Statut
Membre
Dernière intervention
22 février 2008
-
une demonstration serait bien utile
kamal2007
Messages postés
1
Date d'inscription
mardi 17 avril 2007
Statut
Membre
Dernière intervention
25 mai 2007
-
MERCI POUR l'aide
cs_winni
Messages postés
9
Date d'inscription
dimanche 27 avril 2003
Statut
Membre
Dernière intervention
26 mai 2008
-
laquelle ?
cs_dragon
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
3 -
oui, tu dois faire une référence

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.