4pm 方法操datagrid

1，建立数据库连接

#Region " Open connection " '=========================================================== 'Function: openDBConnection 'Purpose: provides an SQL connection to the server '=========================================================== Public Shared Function openDBConnection() As System.Data.SqlClient.SqlConnection 'Get connection string from XML file Dim DB_CONN_STR As String = System.Configuration.ConfigurationManager.AppSettings("constring") Dim dbConnection As System.Data.SqlClient.SqlConnection = Nothing If (dbConnection Is Nothing) Then dbConnection = New System.Data.SqlClient.SqlConnection(DB_CONN_STR) Try dbConnection.Open() Catch ex As Exception Throw New Exception("Unable to open connection to database(" & ex.Message & ")", ex) dbConnection = Nothing End Try End If Return dbConnection End Function #End Region

2，建立数据集 dataset

'=========================================================== 'Function: gGetPropertyPictures 'Purpose: Returns dataset of property pictures '=========================================================== Public Shared Function gGetPropertyPictures(ByVal iList As Integer) As DataSet 'Open connection Dim objConn As SqlConnection = openDBConnection() Dim objCmd As SqlCommand = New SqlCommand("spGetPictureCountMAY2006", objConn) objCmd.CommandType = CommandType.StoredProcedure objCmd.CommandTimeout = My.Settings.SqlTimeout 'Input Params objCmd.Parameters.Add("@idList", SqlDbType.Int).Value = iList 'Must use an adapter and DataSet to use paging (since these retrieve data ICollections and store on cache) Dim objAda As SqlDataAdapter = New SqlDataAdapter(objCmd) Dim objDSet As DataSet = New DataSet objAda.Fill(objDSet) 'Clean up objCmd.Dispose() objAda.Dispose() closeDBConnection(objConn) 'Return value Return objDSet End Function

3，数据集dataset的一个参数

#Region " Properties " '=========================================================== 'Properties: misc 'Purpose: Values retrieved from querystring url or viewstate '=========================================================== Public Property QueryProperty() As Integer Get 'Primarily retrieve from Querystring If Request.QueryString("id") <> "" Then Return Request.QueryString("id") End If 'If not in querystring then retrieve from ViewState Dim o As Object = Me.ViewState("_QueryProperty") If o Is Nothing Then Return gNoPreference Else Return Int(o) End If End Get Set(ByVal Value As Integer) Me.ViewState("_QueryProperty") = Value End Set End Property Public ReadOnly Property iUserId() As Integer Get Return objFormsId.Ticket.UserData End Get End Property #End Region

4，给datagrid绑定数据源

'================================================== 'Function: OutputPicList 'Purpose: Output list of pictures added by the user '================================================== Public Sub OutputPicList() Dim objDSet As DataSet = gGetPropertyPictures(QueryProperty) 'Bind paged data to DataGrid DataGrid1.DataSource = objDSet DataGrid1.DataBind() '-------------------------------------------------------------------------- 'Set visibility for controls: don't show DataGrid or header text if no rows '-------------------------------------------------------------------------- If objDSet.Tables(0).DefaultView.Count = 0 Then SetVisibility(DataGrid1, False) SetVisibility(btnDelImage, False) SetVisibility(btnUpdatePicOrder, False) Else SetVisibility(DataGrid1, True) SetVisibility(btnDelImage, True) SetVisibility(btnUpdatePicOrder, True) End If 'Clean up objDSet.Dispose() End Sub #End Region

4pm 方法操datagrid相关推荐

EasyUI加zTree使用解析 easyui修改操作的表单回显方法验证框提交表单前验证 datagrid的load方法
带参提交一次查询,从服务器加载新数据.这是一个神奇的方法 $('#dg').datagrid('load',{code: '01',name: 'name01' }); easyui修改操作的回显方法 ...
EasyUI加zTree使用解析 easyui修改操作的表单回显方法验证框提交表单前验证 datagrid的load方法...
带参提交一次查询,从服务器加载新数据.这是一个神奇的方法 $('#dg').datagrid('load',{code: '01',name: 'name01' }); easyui修改操作的回显方法 ...
datagrid数据表格使用方法
将静态HTML渲染为datagrid样式: <table class="easyui-datagrid&q ...
拖放 DataGrid 列--来自MSDN
发布日期: 09/19/2004 | 更新日期: 09/19/2004 Chris Sano Microsoft Corporation 摘要:了解如何利用基本的 GDI 功能,从而通过 DataGr ...
关于DataGrid等控件中的自动编号
作者:未知请作者速与本人联系序号内容 1 Taye 2 BOx 3 Glass 4 StarCraft 一.正序 A.AllowPaging=False情况下 <asp:DataGri ...
使用 ASP+ DataGrid 控件来创建主视图/详细资料视图
Nikhil Kothari Microsoft Corporation 2000年8月简介 Microsoft® Visual Studio.NET 的下一发行版包括 DataGrid Web 控 ...
EasyUI DataGrid根据字段动态合并单元格
为什么80%的码农都做不了架构师?>>> 1.合并方法 /** * EasyUI DataGrid根据字段动态合并单元格 * 参数 tableID 要合并table的id * ...
Silverlight教程第三部分：使用 Networking取回数据并填充DataGrid
[原文地址]Silverlight Tutorial Part 3: Using Networking to Retrieve Data and Populate a DataGrid [原文发表日期 ...
让jquery easyui datagrid列支持绑定嵌套对象
嵌套对象是指返回的json数据,是对象的某个属性自带有属性.而我们恰恰又需要这个属性,默认情况下easyui的datagrid是不支持绑定嵌套对象的.比如:datagrid的field属性只能为fie ...
[导入]关于DataGrid等控件中的自动编号
作者:Taye 论坛中有很多人问关于DataGrid的自动编号问题,但在论坛中我已经回复过好几次,但还是不断有人问序号内容 1 Taye 2 BOx 3 Glass 4 StarCraft 一.正 ...

4pm 方法操datagrid

4pm 方法操datagrid相关推荐

最新文章

热门文章