update 不能更新 access 急死了 快来帮帮我呀!
以下是代码
Private Sub dg_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dg.UpdateCommand
Dim mianji1 As String = CType(e.Item.Cells(0).Controls(0), TextBox).Text
Dim didian1 As String = CType(e.Item.Cells(1).Controls(0), TextBox).Text
Dim jiage1 As String = CType(e.Item.Cells(2).Controls(0), TextBox).Text
Dim shuidian1 As String = CType(e.Item.Cells(3).Controls(0), TextBox).Text
Dim wuye1 As String = CType(e.Item.Cells(4).Controls(0), TextBox).Text
Dim chaoyang1 As String = CType(e.Item.Cells(5).Controls(0), TextBox).Text
Dim cheku1 As String = CType(e.Item.Cells(6).Controls(0), TextBox).Text
Dim louceng1 As String = CType(e.Item.Cells(7).Controls(0), TextBox).Text
Dim conn As OleDbConnection
Dim cmd As OleDbCommand
conn = New OleDbConnection( "Provider=Microsoft.Jet.OleDb.4.0;Data Source= " & Server.MapPath( "logon.mdb "))
cmd = New OleDbCommand( "update chushou set mianji= ' " & mianji1 & " ',didian= ' " & didian1 & " ',jiage= ' " & jiage1 & " ',shuidian= ' " & shuidian1 & " ',wuye= ' " & wuye1 & " ',chaoyang= ' " & chaoyang1 & " ',cheku= ' " & cheku1 & " ',louceng= ' " & louceng1 & " ' where mianji= ' " & mianji1 & " ' ", conn)
Try
conn.Open()
Dim i As Integer = cmd.ExecuteNonQuery()
If i > 0 Then
Response.Write( " <script language= 'javascript '> alert( '修改成功! ') </script> ")
Else
Response.Write( " <script language= 'javascript '> alert( '修改记录失败! ') </script> ")
End If
Catch ex As Exception
Response.Write( " <script language= 'javascript '> alert( ' " + ex.Message.ToString() + " ') </script> ")
Finally
conn.Close()
End Try
dg.EditItemIndex = -1
Call BindGrid()
End Sub
哪里出错了??
access要设置什么地方吗??
[解决办法]
1.sql出错2.没有写入权限或文件只读.3.文件被占用方式打开
[解决办法]
ACCESS文件是否开了ASPNET用户可读写权限
ACCESS文件是否开了IIS匿名用户可读写权限
ACCESS文件是否正被其他进程访问
ACCESS文件属性是否只读
如果以前都可以运行，很可能是权限问题
