Comment remplir un Dataset avec toutes les tables d'une db?

Hello,

Comment remplir un dataSet avec toutes les tables d'une database?

Merci

Welby

Bon je fais les questions - réponses: :yaisse2:

Voici le code:

Public Function FillDataSet() As DataSet

Dim cmd As Data.Common.DbCommand
Dim dbAdap As Data.Common.DbDataAdapter
Dim ds As New DataSet
Dim schemaTables As DataTable
Dim row As DataRow

Try
cmd = GetDbCommand()
dbAdap = GetDbDataAdapter()
connectionDb.GetSchema()
schemaTables = connectionDb.GetSchema("Tables")

For Each row In schemaTables.Rows

cmd = connectionDb.CreateCommand
cmd.CommandType = CommandType.TableDirect
cmd.CommandText = row("TABLE_NAME").ToString
dbAdap.SelectCommand = cmd
dbAdap.Fill(ds, row("TABLE_NAME").ToString)

Next

Return ds

Catch ex As Exception
MsgBox("FillDataSet:" & ex.Message)
Return Nothing
End Try

End Function


Private Function GetDbCommand() As Data.Common.DbCommand
Return New OleDb.OleDbCommand
End Function

Private Function GetDbConnection(ByVal aConnectionString As String) As Data.Common.DbConnection
Return New OleDb.OleDbConnection(aConnectionString)
End Function

Private Function GetDbDataAdapter() As Data.Common.DataAdapter
Return New OleDb.OleDbDataAdapter()
End Function

Private Function GetDbCommandBuilder(ByVal dbDataAdapter As Data.Common.DbDataAdapter) As Data.Common.DbCommandBuilder
Return New OleDb.OleDbCommandBuilder(dbDataAdapter)
End Function