sway-yazen
116Messages postés
14 octobre 2008Date d'inscription
18 octobre 2011Dernière intervention
8 mai 2009 à 04:08
voilà un exemple de connexion tu peux l'utiliser dans ton projet ..
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
merci ton code est correct c'est parfis vraiment merci à vous.
(Outre 2 variables inutilisées dans la fonction (StrConnect) et (requete)
End Function est souligné et le message suivant s'affiche :
Avertissement 1 : La fonction 'access' ne retourne pas une valeur pour tous les chemins de code. Une exception: de référence null peut se produire au moment de l'exécution lorsque le résultat est utilisé.
Débutant en VB 2010 (ex développeur en VB6) je suis un peu paumé...
J'ai bien pigé comment passer le chemin d'accès pour se connecter à la base depuis une Form Ex :
Dim CheminBase As String
CheminBase = "C:\_DATA\BASE.mdb"
Call connection(CheminBase)
En revanche, je suis paumé pour créer le passage des paramètres à la fonction (qui pose un PB en VB 2010 Express) depuis la Form ???
DataSet
OleDbDataAdapter
OleDbCommand
On fait QUOI avec depuis la Form ???
Comment fait-on pour récupérer dans un DataGridView1 un truc du genre :
Select *.* Where TABLE = MaTable FROM Champ MACHIN = `Truc' ORDER BY `NOM ASC
Merci de votre aide.