关于删除或者更新后绑定的问题
coley 2004-06-17 05:46:47 说明‘是我暂时注销的,不过请注意下在SUB DATAGRDIUP方法中的不同
代码如下
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
'提取初始设置CSS
css = db.getwebconfig.rows(0).item("cssset")
'判断用户合法性
' If Session("adminname") = "" Then
' addboard.Visible = False
' else
If Not Page.IsPostBack Then
DataGrid1.DataSource = db.filldatagrid()
DataGrid1.DataBind()
End If
' End If
End Sub
Public Sub addnewboard(ByVal obj As Object, ByVal e As EventArgs)
End Sub
Public Sub Datagridedit(ByVal obj As Object, ByVal e As DataGridCommandEventArgs)
DataGrid1.EditItemIndex = e.Item.ItemIndex
DataGrid1.DataSource = db.filldatagrid()
DataGrid1.DataBind()
End Sub
Public Sub datacancel(ByVal obj As Object, ByVal e As DataGridCommandEventArgs)
DataGrid1.EditItemIndex = -1
DataGrid1.DataSource = db.filldatagrid()
DataGrid1.DataBind()
End Sub
Public Sub Datagridup(ByVal obj As Object, ByVal e As DataGridCommandEventArgs)
If db.updatestore(e) Then
Response.Redirect("admin_addboard.aspx")
如果在更新后用上面的,数据还是要手动刷新下
'If Not Page.IsPostBack Then
'DataGrid1.DataSource = db.filldatagrid()
'DataGrid1.DataBind()
' End If
End If
End Sub
Public Sub datagriddel(ByVal obj As Object, ByVal e As DataGridCommandEventArgs)
在删除事件中我点了一下,数据删除了,但是页面不会刷新的,我手动刷新下就可以了,在点后我查看数据库还是有数据,但是在手动刷新后数据就没有了,奇怪
If db.deldategrid(e) Then
Response.Redirect("admin_addboard.aspx")
End If
End SUB
另外想问下,为什么我刷新快了,页面就显示
未指定的错误
说明: 执行当前 Web 请求期间,出现未处理的异常。请检查堆栈跟踪信息,以了解有关该错误以及代码中导致错误的出处的详细信息。
异常详细信息: System.Data.OleDb.OleDbException: 未指定的错误
源错误:
行 39: Dim strconn As String = "provider=Microsoft.jet.OLEDB.4.0;data source=" & Server.MapPath("db/db.mdb")
行 40: dbconn = New OleDbConnection(strconn)
行 41: dbconn.Open()
行 42: End Function
OleDbException (0x80004005): 未指定的错误]
System.Data.OleDb.OleDbConnection.ProcessResults(Int32 hr) +20
System.Data.OleDb.OleDbConnection.InitializeProvider() +57
System.Data.OleDb.OleDbConnection.Open() +203
ybkxweb.myweb.config.dbopen() in F:\ybkxweb\dll.vb:41
ybkxweb.myweb.config.getwebconfig() in F:\ybkxweb\dll.vb:706
ybkxweb.addboard.Page_Load(Object sender, EventArgs e) in F:\ybkxweb\admin_addboard.aspx.vb:37
System.Web.UI.Control.OnLoad(EventArgs e) +67
System.Web.UI.Control.LoadRecursive() +35
System.Web.UI.Page.ProcessRequestMain() +731
分不多,只想能有人指点下,自学不容易啊