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
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.