|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。datagrid|索引|成绩当把DataSet绑定到Datagrid控件,
并使用DataAdapter工具修正数据库
如:
dimadpasnewOleDbDataAdapter(stradp,conn)
dimocbasnewOleDbCommandBuilder(adp)
adp.DeleteCommand=ocb.GetDeleteCommand()
adp.Update(ds,"Orders")
--------------------------------
实行删除操纵时,如我们到场如许一个办法:
submydatagrid_delete(senderasobject,easdatagridcommandeventargs)
dimdtasnewDataTable()
dt=ds.Tables("Orders")
dimdrasDataRow
dr=dt.Rows(E.Item.ItemIndex)
dr.delete
dr.AcceptChanges已经实验利用完全删除,发明adp主动更新回数据库时,没法主动天生响应的sql语句
办理删除以后页最初一项时呈现的页索引非常
*****************************************************************
dimlastEditPageasinteger=mydatagrid.currentPageIndex
If(mydatagrid.pageCount-mydatagrid.currentPageIndex)=1andmydatagrid.Items.Count=1Then
Ifmydatagrid.pageCount>1Then
lastEditPage=LastEditPage-1
Else
lastEditPage=0
EndIf
EndIf
mydatagrid.currentPageIndex=lastEditPage
****************************************************************
session("orderList")=ds
mydatagrid.edititemindex=-1
mydatagrid.datasource=ds.tables("Orders")
mydatagrid.databind()
endsub
当由第一个入手下手逐一删除时呈现了非常,发明在删除第二时,删不失落,即本来的dr(2)没有主动变成dr(1)。假如我们利用dr.deletedr.acceptChanges则能够主动变更,可是下面申明了,则没法利用主动更新回到数据库。我们必需取得删除时的实践索引,以是就用了一个本办法,在以后的ds中别的建了一个Table,坚持同步删除,可是在Table的id列中,保留实践的索引值,详细代码以下:
办理dr索引的一个举措:
dimorderTableasnewDataTable()建一个一时表用来保留索引,坚持同步删除
dimtheNewRowasDataRow
dimdcasDataColumn
orderTable.TableName="orderId"
ds.Tables.add(orderTable)
dc=newDataColumn()
dc.ColumnName="id"
orderTable.columns.add(dc)
dimdcKey()asDataColumn={orderTable.Columns("id")}
orderTable.primaryKey=dcKey
dimiasinteger
Fori=0to(ds.Tables("Users").Rows.Count-1)
theNewRow=orderTable.NewRow()
theNewRow("id")=i.toString()
orderTable.Rows.add(theNewRow)
Next
上述删除功效中加的代码,交换dr=dt.Rows(e.Item.ItemIndex):
dimdrOrderasDataRow
drOrder=ds.Tables("orderId").Rows(E.Item.ItemIndex)
dimcurrentOrderasinteger=CInt(drOrder("id"))+mydatagrid.currentPageIndex*mydatagrid.PageSize
dr=dt.Rows(currentOrder)
drOrder.delete
假如有更新功效,则交换dr=dt.Rows(e.Item.ItemIndex):
dimdrOrderasDataRow
drOrder=ds.Tables("orderId").Rows(E.Item.ItemIndex)
dimcurrentOrderasinteger=CInt(drOrder("id"))+mydatagrid.currentPageIndex*mydatagrid.PageSize
dr=dt.Rows(currentOrder)
</p>问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时. |
|