Inclure une base de donnée access dans VB
Résolu
Orzhov
-
riadhfe -
riadhfe -
Bonjour,
je suis sous windows vista et j'essaye de faire un programme qui pourrai inclure un BDD access mais le prb je sais pas comment faire pour l'inclure?
elle se trouve sur mon ordi donc cela sert a rien de me connecter a une base.
En fait j'ai des renseignement a entrer a parti d'une text box et j'aimerai bien que ces renseignement entre dans la base
merci
je suis sous windows vista et j'essaye de faire un programme qui pourrai inclure un BDD access mais le prb je sais pas comment faire pour l'inclure?
elle se trouve sur mon ordi donc cela sert a rien de me connecter a une base.
En fait j'ai des renseignement a entrer a parti d'une text box et j'aimerai bien que ces renseignement entre dans la base
merci
Configuration: Windows Vista Internet Explorer 7.0
5 réponses
-
-
-
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Imports System.Data.OleDb
'////////////////////////MODULE FONCTION ACCESS////////////////
Module bdaccess
Dim MyConnection As New System.Data.OleDb.OleDbConnection()
'procé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'établir la connection à 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'établir la connection à 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é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ésultantes de la requete
'se trouvent dans => MyDataSet.Tables(0)
Return MyDataSet
Catch ex As Exception
MessageBox.Show("Impossible d'établir la connection à la base." & ex.Message)
End Try
End Function
End Module
CODE EN VUSIAL BASIC
