Soyez le premier à donner votre avis sur cette source.
Vue 18 241 fois - Téléchargée 2 506 fois
' Ce qui suit sont des bouts de code qui sont dans l'archive '---------------------------------------- 'Connexion a la base de données ACCESS '---------------------------------------- Public Sub New(ByVal dbPathName As String) Try sqlConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0" _ & "; Data Source=" & dbPathName _ & ";" & "Persist Security Info=False" conn = New OleDbConnection(sqlConnectionString) conn.Open() Catch ex As Exception conn = Nothing sqlConnectionString = "" End Try '---------------------------------------------------------- ' Description : Permet de recupérer les Tables de la base '---------------------------------------------------------- Public Function dataTable_TABLES() As DataTable Dim dt As DataTable dt = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing}) Return dt End Function '---------------------------------------------------------------------- ' Description : Permet de recupérer les Champs d'une table spécifique ' Entree : db_table_name => Nom de table valide '----------------------------------------------------------------------- Public Function dataTable_FIELDS(ByVal db_table_name As String) As DataTable Dim dt As DataTable dt = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, db_table_name}) Return dt End Function End Sub
10 juil. 2010 à 18:35
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.