Dim dset As DataSet Private Sub ConstructionTable() '*** Construction de la table et instanciation du dataset '*** 1ère colonne Dim newTable As DataTable = New DataTable("CLIENT") Dim column As DataColumn column = New DataColumn() column.DataType = System.Type.GetType("System.String") column.ColumnName = "Nom" column.ReadOnly = False '(True pour clé primaire) column.Unique = False '(True pour clé primaire) '*** Add the Column to the DataColumnCollection. newTable.Columns.Add(column) '*** 2ième column. column = New DataColumn() column.DataType = System.Type.GetType("System.String") column.ColumnName = "Prenom" column.AutoIncrement = False column.Caption = "Prenom" column.ReadOnly = False column.Unique = False newTable.Columns.Add(column) '*** 3ième column. column = New DataColumn() column.DataType = System.Type.GetType("System.String") column.ColumnName = "age" column.AutoIncrement = False column.Caption = "age" column.ReadOnly = False column.Unique = False newTable.Columns.Add(column) '*** 4ième column. column = New DataColumn() column.DataType = System.Type.GetType("System.String") column.ColumnName = "contact" column.AutoIncrement = False column.Caption = "contact" column.ReadOnly = False column.Unique = False newTable.Columns.Add(column) '*** 5ième column. column = New DataColumn() column.DataType = System.Type.GetType("System.String") column.ColumnName = "sexe" column.AutoIncrement = False column.Caption = "sexe" column.ReadOnly = False column.Unique = False newTable.Columns.Add(column) '*** 6ième column. column = New DataColumn() column.DataType = System.Type.GetType("System.String") column.ColumnName = "fonction" column.AutoIncrement = False column.Caption = "fonction" column.ReadOnly = False column.Unique = False newTable.Columns.Add(column) ''*** Facultatif pour avoir une clé primaire : ''*** Make the ID column the primary key column. 'Dim PrimaryKeyColumns(0) As DataColumn 'PrimaryKeyColumns(0) = newTable.Columns("Nom") 'newTable.PrimaryKey = PrimaryKeyColumns ' Instantiate the DataSet variable. dset = New DataSet() ' Add the new DataTable to the DataSet. dset.Tables.Add(newTable) End Sub
Private Sub VueDansDGV() ' Instruct the DataGrid to bind to the DataSet, with the Table. bindingSource1.DataSource = dset.Tables("CLIENT") DataGridView1.DataSource = bindingSource1 End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load ConstructionTable() VueDansDGV() End Sub
Dim Row As DataRow Dim ObjComBui As OleDbCommandBuilder Dim Dadpter As OleDbDataAdapter Dim tab As DataTable Function AJOUTER() Try Row = dset.Tables("CLIENT").NewRow Row("Nom") = TextBox1.Text Row("Prenom") = TextBox2.Text Row("age") = TextBox3.Text Row("contact") = MaskedTextBox1.Text Row("sexe") = ComboBox1.Text Row("fonction") = TextBox5.Text dset.Tables("CLIENT").Rows.Add(Row) '*** CONNECTION BD ET DATASET pour mise à jour......... ''Dadpter = New OleDbDataAdapter() ''Dadpter.SelectCommand = New OleDbCommand("..........", ...........) ''ObjComBui = New OleDbCommandBuilder(Dadpter) ''Dadpter.Fill(dset, "CLIENT") ''Dadpter.Update(dset, "CLIENT") ''dset.Tables("CLIENT").Clear() ''tab = dset.Tables("CLIENT") Catch ex As Exception MsgBox(ex.Message) End Try End Function