Dim ds as DataSet ... Dim row as DataRow row = ds.tables(0).NewRow ... ' Travailler avec le DataRow 'Dim Cpt as integer = Numéro de colonne 'For cpt=0 to DataRow.count-1 ' Row.ItemArray(cpt) = Cpt.ToString 'Next Cpt ... ds.tables(0).rows.add(row)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cb As New OleDb.OleDbCommandBuilder(dr) cOn.Open() ds.Clear() CoM.CommandText = "SELECT * from [etudiant]" dr.Fill(ds) Dim ndr As DataRow ndr = ds.Tables(0).NewRow ndr("CNE") = Label17.Text ndr("CODEDEP") = Label22.Text ndr("CIN") = Label18.Text ndr("NOM") = Label20.Text ndr("PRENOM") = Label19.Text ndr("ADRESSE") = Label16.Text ndr("DATEN") = Label15.Text ndr("MOTDEPASSE") = Label14.Text ds.Tables(0).Rows.Add(ndr) cb = New OleDbCommandBuilder(dr) dr.Update(ds) ds.Clear() dr.Fill(ds) cOn.Close()