1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| ''////////////////////////MODULE FONCTION ACCESS////////////////
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 Sub access(ByVal requetesql As String)
Dim MyAdapter As OleDbDataAdapter = New OleDbDataAdapter()
Dim StrConnect As String
Dim MyCommand As OleDbCommand
Dim requete As String
Try
MyCommand = New OleDbCommand(requetesql, MyConnection)
MyAdapter.SelectCommand = MyCommand
'A ce niveau les donnes résultantes de la requete
'se trouvent dans => MyDataSet.Tables(0)
Catch ex As Exception
MessageBox.Show("Impossible d'établir la connection à la base." & ex.Message)
End Try
End Sub |
Partager