1與0的世界

'建立 DataAdapter 物件
 Dim objCmd As New OleDbDataAdapter("Select * From 成績單", objConn)
'建立 CommandBuilder 物件
 Dim objCB As OleDbCommandBuilder = New OleDbCommandBuilder(objCmd)
'建立 DataSet 物件，並將 SelectCommand 的執行結果置入 DataSet 物件中
   Dim DS As New DataSet()
   objCmd.Fill(DS, "成績單")
'建立 myTable 為 DataTable 物件，將 DataSet 物件的成績單資料表指定給 myTable
   Dim myTable As DataTable = DS.Tables("成績單")
'修改資料列
   myTable.Rows(6)("統計") = 80
'刪除資料列
   myTable.Rows(4).Delete()
'新增資料列
   Dim myRow As DataRow = myTable.NewRow()
   myRow("學號") = "A8608011"
   myRow("姓名") = "小丸子"
   myRow("會計") = 95
   myRow("統計") = 70
   myTable.Rows.Add(myRow)
'將 DataSet 物件的資料更新到來源資料
   objCmd.Update(DS, "成績單")