Inclure une base de donnée access dans VB
Résolu/Fermé
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
A voir également:
- Inclure une base de donnée access dans VB
- Vb - Télécharger - Langages
- Base de registre - Guide
- Vb cable - Télécharger - Audio & Musique
- Formules excel de base - Guide
- La base de données de sécurité du serveur n'a pas de compte d'ordinateur pour la relation ✓ - Forum Réseau
5 réponses
cyrilyon
Messages postés
118
Date d'inscription
lundi 12 mai 2008
Statut
Membre
Dernière intervention
1 juillet 2010
7
10 juil. 2008 à 09:43
10 juil. 2008 à 09:43
Ton programme est en quel langage?
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
'////////////////////////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