Code To Fill data table in DataGrid,fill static, get DataSet combo in asp.Net

Code To Fill DataGrid using asp.net 

You can try Code To Fill DataGrid using asp.net common class. After creation these methods you need to call these method to your form editors by creating class object.


 Fill DataGrid  
 Private Sub fillgrid()  
 dim dta2 as New dataTable  
 Dim str1 As String = "select * from receipt_detail "  
 Dim datatb As New DataTable  
 datatb = obj.OpenDataTable(str1, "receipt_detail")  
 dta2.DataSource = datatb  
 dta2.DataBind()  
 End Sub  
 'Other Related Function  
 Public Function OpenCn() As Boolean  
 Try  
 If cn Is Nothing Then  
 cn = New SqlConnection  
 End If  
 If Not (cn.State = ConnectionState.Open) Then  
 cn.ConnectionString = constr  
 cn.Open()  
 End If  
 Finally  
 End Try  
 Return True  
 End Function  
 Public Function Closecn() As Boolean  
 Try  
 If Not (cn Is Nothing) Then  
 cn.Close()  
 End If  
 Finally  
 cn.Dispose()  
 End Try  
 Return True  
 End Function  
 Public Function OpenDataTable(ByVal strSQL As String, ByVal TableName As String) As DataTable  
 Try  
 OpenCn()  
 Dim da As SqlDataAdapter = New SqlDataAdapter(strSQL, cn)  
 Dim dt As DataTable = New DataTable  
 da.Fill(dt)  
 dt.TableName = TableName  
 Return dt  
 Finally  
 Closecn()  
 End Try  
 End Function  

How to fill static combo using data table and data reader in asp dot net


 Public Function FillStaticComboTrans() As DataTable  
 Dim dtnr As New DataTable  
 dtnr.Columns.Clear()  
 'dtnr.Columns.Add("R_NR")  
 dtnr.Columns.Add("ID")  
 dtnr.Columns.Add("Text")  
 Dim dr As DataRow  
 dr = dtnr.NewRow  
 dr.Item(0) = "0"  
 dr.Item(1) = "Select"  
 dtnr.Rows.Add(dr)  
 dr = dtnr.NewRow  
 dr.Item(0) = "102"  
 dr.Item(1) = "Opening Balances"  
 dtnr.Rows.Add(dr)  
 dr = dtnr.NewRow  
 dr.Item(0) = "101"  
 dr.Item(1) = "Deputation"  
 dtnr.Rows.Add(dr)  
 dr = dtnr.NewRow  
 dr.Item(0) = "103"  
 dr.Item(1) = "Advances"  
 dtnr.Rows.Add(dr)  
 dr = dtnr.NewRow  
 dr.Item(0) = "104"  
 dr.Item(1) = "Batch Process "  
 dtnr.Rows.Add(dr)  
 Return dtnr  
 End Function  


Code to get DataSet using asp dot net


 Dim cmd As New SqlCommand(str, objCn.OpenDB())  
 cmd.CommandType = CommandType.Text  
 Try  
 Dim ds As New DataSet  
 Dim adp As New SqlDataAdapter(cmd)  
 adp.Fill(ds, Table)  
 Return ds  
 Catch ex As Exception  
 MsgBox("clsCommon::FetchData::Error occured.", MsgBoxStyle.Critical, "XyZ")  
 Finally  
 objCn.CloseDB()  
 cmd.Dispose()  
 End Try  
 End Function  
 Excecute Scalar:  
 Public Function Exe_Scalar(ByVal str As String, ByVal table As String) As String  
 Dim cd As String  
 Dim cmd As New SqlCommand(str, objCn.OpenDB())  
 cmd.CommandType = CommandType.Text  
 Try  
 cd = cmd.ExecuteScalar()  
 Return cd  
 Catch ex As Exception  
 MsgBox("clsCommon::FetchData::Error occured.", MsgBoxStyle.Critical, "XYZ")  
 Finally  
 objCn.CloseDB()  
 cmd.Dispose()  
 End Try  
How to bind data grid using asp.net code

 Dim str1 As String  
 Dim myDataSet As New DataSet  
 str1 = "select * from abc"  
 cn.closeDb()  
 Dim adp As New SqlDataAdapter(str1, cn.openDb())  
 adp.Fill(myDataSet, "PRICES_PLAN")  
 myDataSet.Tables(0).AcceptChanges()  
 GridView1.DataSource = myDataSet.Tables(0)  
 GridView1.DataBind()