在Access数据库的更新数据行.（Access + DataGrid）,该怎么解决
日期：2014-05-18 浏览次数：20429 次
在Access数据库的更新数据行...（Access + DataGrid）
在Access数据库的添加数据行和删除行，都测试成功了。
可是更新数据行就是不行...
查了很多文章，可惜...
还希望那位高手指点...
下面为源码.........
<%@ Page Language= "VB " ContentType= "text/html " ResponseEncoding= "utf-8 " %>
<%@ Import Namespace= "System.Data " %>
<%@ Import NameSpace= "System.Data.OleDb " %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN " "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd ">
<html xmlns= "http://www.w3.org/1999/xhtml ">
<head>
<meta http-equiv= "Content-Type " content= "text/html; charset=utf-8 " />
<link media= "all " rel= "stylesheet " type= "text/css " href= "CSS/Style.css " />
<title> Update </title>
<script language= "VB " runat= "server ">
Dim MyConnection As OleDbConnection
Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)
MyConnection = New OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;DATA Source= " & Server.MapPath( "Database/933c1601697f3642.mdb "))
If Not (IsPostBack) Then
BindGrid()
End If
End Sub
Sub MyDataGrid_Edit(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs)
MyDataGrid.EditItemIndex = CInt(E.Item.ItemIndex)
BindGrid()
End Sub
Sub MyDataGrid_Cancel(Sender As Object, E As DataGridCommandEventArgs)
MyDataGrid.EditItemIndex = -1
BindGrid()
End Sub
Sub MyDataGrid_Update(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs)
Dim MyCommand As OleDbCommand
Dim UpdateCmd As String = "UPDATE RecordBase SET RECORD_DATE=@RECORD_DATE, ADDRESS=@ADDRESS, ACTION_CODE=@ACTION_CODE, POLICE_NAME=@POLICE_NAME, CAR_CODE=@CAR_CODE, CAR_TYPE=@CAR_TYPE WHERE (REC_ID = @Id) "
在Access数据库的添加数据行和删除行，都测试成功了。
可是更新数据行就是不行...
查了很多文章，可惜...
还希望那位高手指点...
下面为源码.........
<%@ Page Language= "VB " ContentType= "text/html " ResponseEncoding= "utf-8 " %>
<%@ Import Namespace= "System.Data " %>
<%@ Import NameSpace= "System.Data.OleDb " %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN " "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd ">
<html xmlns= "http://www.w3.org/1999/xhtml ">
<head>
<meta http-equiv= "Content-Type " content= "text/html; charset=utf-8 " />
<link media= "all " rel= "stylesheet " type= "text/css " href= "CSS/Style.css " />
<title> Update </title>
<script language= "VB " runat= "server ">
Dim MyConnection As OleDbConnection
Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)
MyConnection = New OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;DATA Source= " & Server.MapPath( "Database/933c1601697f3642.mdb "))
If Not (IsPostBack) Then
BindGrid()
End If
End Sub
Sub MyDataGrid_Edit(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs)
MyDataGrid.EditItemIndex = CInt(E.Item.ItemIndex)
BindGrid()
End Sub
Sub MyDataGrid_Cancel(Sender As Object, E As DataGridCommandEventArgs)
MyDataGrid.EditItemIndex = -1
BindGrid()
End Sub
Sub MyDataGrid_Update(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs)
Dim MyCommand As OleDbCommand
Dim UpdateCmd As String = "UPDATE RecordBase SET RECORD_DATE=@RECORD_DATE, ADDRESS=@ADDRESS, ACTION_CODE=@ACTION_CODE, POLICE_NAME=@POLICE_NAME, CAR_CODE=@CAR_CODE, CAR_TYPE=@CAR_TYPE WHERE (REC_ID = @Id) "
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
