[vb .net] module de connexion

Question

ne form?

Re!

J'ai fait un module de connexion dont voici le code

Imports System.Data.OleDb



'////////////////////////MODULE FONCTION ACCESS////////////////

Module bdaccess



    Dim MyConnection As New System.Data.OleDb.OleDbConnection



    'proc&#233;dure de connection a une bd access

    Public Sub connection(ByVal nombd As String)

        Try

           
MyConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
source=" & nombd

            MyConnection.Open()

        Catch ex As Exception

           
MessageBox.Show("Impossible d'&#233;tablir la connection &#224; la base." &
ex.Message)

        End Try

    End Sub



    'deconenction de la base

    Public Sub deconnection()

        Try

            MyConnection.Close()

        Catch ex As Exception

           
MessageBox.Show("Impossible d'&#233;tablir la connection &#224; la base." &
ex.Message)

        End Try



    End Sub



    Public Function access(ByVal requetesql As String) As DataSet

        Dim MyAdapter As OleDbDataAdapter = New OleDbDataAdapter

        Dim MyDataSet As DataSet = New DataSet("MesDonn&#233;es")

        Dim StrConnect As String

        Dim MyCommand As OleDbCommand

        Dim requete As String





        Try

            MyCommand = New OleDbCommand(requetesql, MyConnection)

            MyAdapter.SelectCommand = MyCommand

            MyDataSet.Clear()

            MyAdapter.Fill(MyDataSet, "fichier")

            'A ce niveau les donnes r&#233;sultantes de la requete

            'se trouvent dans => MyDataSet.Tables(0)

            Return MyDataSet

        Catch ex As Exception

           
MessageBox.Show("Impossible d'&#233;tablir la connection &#224; la base." &
ex.Message)

        End Try



    End Function

End Module



Comment faire pour l'appeler dans u

(Si la r&#233;ponse vous convient, appuyez sur r&#233;ponse accept&#233;e...)

Il y a plusieurs facon d'&#234;tre con ,mais un con choisit toujours la pire

fduchamp · Answer

A partir du moment ou tes fonctions ou procedures sont publiques et qu'elles ne sont pas une classe specifique, tu peux appeler tes fonctions dans n importe quelle partie de ton projet où tu as ton module.

Autrement dit connection(param1) doit fonctionner dans tout ton projet.

Si ta fonction était dans une classe il t aurait fallu intantcire la classe:
dim Cl1 = New MaClasse
MaClasse.MaFonction(Paral1)

[vb .net] module de connexion

1 réponse

Discussions similaires