为什么它告诉我“更新无法找到 TableMapping['DiscTable'] 或 DataTable 'DiscTable'。” 在这条线上:
da.Update(ds, "DiscTable")
我尝试使用 da.Update(ds) 并且也崩溃了。表中的更新还是成功了!?!?如果我删除它就可以了!
Private Sub SelectBtn_Click(sender As Object, e As EventArgs) Handles SelectBtn.Click
Dim ConnString As String
Dim SQLStr As String
Dim OleDBConn As New OleDbConnection()
Dim OleDBCmd As New OleDbCommand()
Dim OleDBdr As OleDbDataReader
Dim ds As New DataSet
Dim IsChecked As Boolean = CBool(DiscDG.Rows(SelectedRowIndex).Cells(SelectedColIndex).Value)
ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=RegDB.accdb;Persist Security Info=False;"
SQLStr = "UPDATE DiscTable " +
"SET LectionsTeacher='" + TeacherLblValue + "', LectionsYN=Yes " +
"WHERE DiscName='" + SelectedRowFirstCell + "'"
OleDBConn.ConnectionString = ConnString
OleDBConn.Open()
OleDBCmd.Connection = OleDBConn
OleDBCmd.CommandText = SQLStr
OleDBdr = OleDBCmd.ExecuteReader
Dim da As New OleDbDataAdapter(SQLStr, OleDBConn)
da.Update(ds, "DiscTable")
OleDBdr.Close()
OleDBConn.Close()
End Sub