1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Private _Tformation As New DataTable
Private Sub frmtest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim _adapterF As Data.OleDb.OleDbDataAdapter
Dim _ObjDataSetF As Data.DataSet
_adapterF = New Data.OleDb.OleDbDataAdapter(My.Settings.SQLFormations, My.Settings.dataConnectionString)
_ObjDataSetF = New Data.DataSet
_adapterF.Fill(_ObjDataSetF)
For Each row As DataRow In _ObjDataSetF.Tables(0).Rows
_Tformation.ImportRow(row)
Next
Dim col1 As New DataColumn
MessageBox.Show(_Tformation.Columns.Count.ToString) |
Partager