rz600000
2004-12-28, 04:02 AM
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<Script Languate="VB" Runat="Server">
Sub Page_Load(sender As Object, e As Eventargs)
'使用 Connection 物件開啟資料連接
Dim objConn As New OleDbConnection()
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("Grades.mdb")
objConn.Open()
'建立 DataAdapter 物件
Dim objCmd As New OleDbDataAdapter()
'指定 SelectCommand 屬性
objCmd.SelectCommand = New OleDbCommand("Select * From 成績單", objConn)
'指定 UpdateCommand 屬性及其參數
objCmd.UpdateCommand = New OleDbCommand()
objCmd.UpdateCommand.CommandText = "Update 成績單 Set 學號=?, " & _
"姓名=?, 會計=?, 統計=? Where 學號=?"
objCmd.UpdateCommand.Connection = objConn
objCmd.UpdateCommand.Parameters.Add("@學號", OleDbType.VarChar, 8, "學號")
objCmd.UpdateCommand.Parameters.Add("@姓名", OleDbType.VarChar, 4, "姓名")
objCmd.UpdateCommand.Parameters.Add("@會計", DbType.Byte, Nothing, "會計")
objCmd.UpdateCommand.Parameters.Add("@統計", DbType.Byte, Nothing, "統計")
objCmd.UpdateCommand.Parameters.Add("@舊學號", OleDbType.VarChar, 8, "學號")
objCmd.UpdateCommand.Parameters("@舊學號").SourceVersion = DataRowVersion.Original
'建立 DataSet 物件,並將 SelectCommand 的執行結果置入 DataSet 物件中
Dim DS As New DataSet()
objCmd.Fill(DS, "成績單")
objConn.Close()
'建立 myTable 為 DataTable 物件,且將 DataSet 物件的成績單資料表指定給 myTable
Dim myTable As DataTable = DS.Tables("成績單")
'新增資料列
Dim myRow As DataRow = myTable.NewRow()
myRow("學號") = "A8608011"
myRow("姓名") = "小丸子"
myRow("會計") = 95
myRow("統計") = 70
myTable.Rows.Add(myRow)
'將 DataSet 物件的資料更新到來源資料
objCmd.Update(DS, "成績單")
End Sub
</Script>
運作必須使用更新查詢。
描述: 在執行目前 Web 要求的過程中發生未處理的例外情形。請檢閱堆疊追蹤以取得錯誤
的詳細資訊,以及在程式碼中產生的位置。
例外詳細資訊: System.Data.OleDb.OleDbException: 運作必須使用更新查詢。
會出現以上的錯誤 拜託求救 或是我要刪 除資料也不行=.=+
贊助商連結
<%@ Import Namespace="System.Data.OleDb" %>
<Script Languate="VB" Runat="Server">
Sub Page_Load(sender As Object, e As Eventargs)
'使用 Connection 物件開啟資料連接
Dim objConn As New OleDbConnection()
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("Grades.mdb")
objConn.Open()
'建立 DataAdapter 物件
Dim objCmd As New OleDbDataAdapter()
'指定 SelectCommand 屬性
objCmd.SelectCommand = New OleDbCommand("Select * From 成績單", objConn)
'指定 UpdateCommand 屬性及其參數
objCmd.UpdateCommand = New OleDbCommand()
objCmd.UpdateCommand.CommandText = "Update 成績單 Set 學號=?, " & _
"姓名=?, 會計=?, 統計=? Where 學號=?"
objCmd.UpdateCommand.Connection = objConn
objCmd.UpdateCommand.Parameters.Add("@學號", OleDbType.VarChar, 8, "學號")
objCmd.UpdateCommand.Parameters.Add("@姓名", OleDbType.VarChar, 4, "姓名")
objCmd.UpdateCommand.Parameters.Add("@會計", DbType.Byte, Nothing, "會計")
objCmd.UpdateCommand.Parameters.Add("@統計", DbType.Byte, Nothing, "統計")
objCmd.UpdateCommand.Parameters.Add("@舊學號", OleDbType.VarChar, 8, "學號")
objCmd.UpdateCommand.Parameters("@舊學號").SourceVersion = DataRowVersion.Original
'建立 DataSet 物件,並將 SelectCommand 的執行結果置入 DataSet 物件中
Dim DS As New DataSet()
objCmd.Fill(DS, "成績單")
objConn.Close()
'建立 myTable 為 DataTable 物件,且將 DataSet 物件的成績單資料表指定給 myTable
Dim myTable As DataTable = DS.Tables("成績單")
'新增資料列
Dim myRow As DataRow = myTable.NewRow()
myRow("學號") = "A8608011"
myRow("姓名") = "小丸子"
myRow("會計") = 95
myRow("統計") = 70
myTable.Rows.Add(myRow)
'將 DataSet 物件的資料更新到來源資料
objCmd.Update(DS, "成績單")
End Sub
</Script>
運作必須使用更新查詢。
描述: 在執行目前 Web 要求的過程中發生未處理的例外情形。請檢閱堆疊追蹤以取得錯誤
的詳細資訊,以及在程式碼中產生的位置。
例外詳細資訊: System.Data.OleDb.OleDbException: 運作必須使用更新查詢。
會出現以上的錯誤 拜託求救 或是我要刪 除資料也不行=.=+
贊助商連結