LIAISON VB.NET ET ACCESS

---

Commentaire sur cette source (11)
Ajouter un commentaire et/ou une note

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 :-)

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

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

16 juillet 2004 19:51:31 :

Corrections de 2 fautes

19 juillet 2004 16:19:29 :

Attention2

• RADIOBUTTON EN .NET SUR PLUSIEURS CONTENEURS DIFFÉRENTS
• SUPPRIMER LES DOUBLONS D'UNE TABLE (VBA ACCESS)
• PATRON ITERATEUR, TUTORIAL PATRON 4
• [VB.NET] FORM AVEC DES SCROLLBARS AUTOMATIQUE
• PATRON OBSERVER, TUTORIAL PATRON 3

• RÉORGANISER UNE LISTVIEW AVEC DES IMAGES DANS LES 3 PREMIÈRES COLONES
• INSTALL DLL OCX ( ACTIVEX )
• CRÉATION DE FORM ET DE CONTRÔLES
• RANDOMPASSWORDGENERATOR
• UN TODO QUI PARLE