Hello,
Comment remplir un dataSet avec toutes les tables d'une database?
Merci
Welby
Hello,
Comment remplir un dataSet avec toutes les tables d'une database?
Merci
Welby
Bon je fais les questions - réponses:
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager