ASP.NET(vb.net) & GridView - DataSet,DataTable,TableRow

Author: admin | Posted: 06-06-2010 | Category: ASP.NET(vb.net) & GridView Control

ASP.NET(vb.net) & GridView - DataSet,DataTable,TableRow Example scripts how to Explains GridView control in asp.net , Binding the datasource (DataSet,DataTable,TableRow) to GridView control.

ShotDev Focus:
- ASP.NET(vb.net) & GridView - DataSet,DataTable,TableRow

Example

GridViewDataSetDataTable.aspx

<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Page Language="VB" %>
<script runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim dt As DataTable

'*** DataSet To DataTable ***'
'dt = CreateDsToDt()

'*** DataTable ***'
'dt = CreateDataTable()

'*** DataSet ***'
dt = CreateDataSet.Tables(0) '*** Convert DataSet to DataTable ***'

'*** TableRows ***'
'dt = DataTableRows()

'*** BindData to GridView ***'
myGridView.DataSource = dt
myGridView.DataBind()
End Sub

'*** DataTable ***'
Function CreateDataTable() As DataTable
Dim objConn As New OleDbConnection
Dim dtAdapter As OleDbDataAdapter
Dim dt as new DataTable

Dim strConnString As String
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";"
objConn = New OleDbConnection(strConnString)
objConn.Open()

Dim strSQL As String
strSQL = "SELECT * FROM customer"

dtAdapter = New OleDbDataAdapter(strSQL, objConn)
dtAdapter.Fill(dt)

dtAdapter = Nothing

objConn.Close()
objConn = Nothing

Return dt '*** Return DataTable ***'

End Function

'*** DataSet ***'
Function CreateDataSet() As DataSet
Dim objConn As New OleDbConnection
Dim objCmd As New OleDbCommand
Dim dtAdapter As New OleDbDataAdapter

Dim ds As New DataSet
Dim strConnString,strSQL As String

strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";"
strSQL = "SELECT * FROM customer"

objConn.ConnectionString = strConnString
With objCmd
.Connection = objConn
.CommandText = strSQL
.CommandType = CommandType.Text
End With
dtAdapter.SelectCommand = objCmd

dtAdapter.Fill(ds)

dtAdapter = Nothing
objConn.Close()
objConn = Nothing

Return ds '*** Return DataSet ***'

End Function

'*** DataSet To DataTable ***'
Function CreateDsToDt() As DataTable
Dim objConn As New OleDbConnection
Dim objCmd As New OleDbCommand
Dim dtAdapter As New OleDbDataAdapter

Dim ds As New DataSet
Dim dt As DataTable
Dim strConnString,strSQL As String

strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";"
strSQL = "SELECT * FROM customer"

objConn.ConnectionString = strConnString
With objCmd
.Connection = objConn
.CommandText = strSQL
.CommandType = CommandType.Text
End With
dtAdapter.SelectCommand = objCmd

dtAdapter.Fill(ds)
dt = ds.Tables(0)

dtAdapter = Nothing
objConn.Close()
objConn = Nothing

Return dt   '*** Return DataTable ***'

End Function

'*** TableRows (DataTable) ***'
Function DataTableRows() As DataTable
Dim dt As New DataTable
Dim dr As DataRow

'*** Column ***'
dt.Columns.Add("CustomerID")
dt.Columns.Add("Name")
dt.Columns.Add("Email")
dt.Columns.Add("CountryCode")
dt.Columns.Add("Budget")
dt.Columns.Add("Used")

'*** Rows ***'
dr = dt.NewRow
dr("CustomerID") = "C001"
dr("Name") = "Win Weerachai"
dr("Email") = "win.weerachai@shotdev.com"
dr("CountryCode") = "TH"
dr("Budget") = "1000000"
dr("Used") = "600000"
dt.Rows.Add(dr)

'*** Rows ***'
dr = dt.NewRow
dr("CustomerID") = "C002"
dr("Name") = "Jake Sully"
dr("Email") = "jake.sully@shotdev.com"
dr("CountryCode") = "EN"
dr("Budget") = "2000000"
dr("Used") = "800000"
dt.Rows.Add(dr)

'*** Rows ***'
dr = dt.NewRow
dr("CustomerID") = "C003"
dr("Name") = "Tony Stark"
dr("Email") = "tony.stark@shotdev.com"
dr("CountryCode") = "US"
dr("Budget") = "3000000"
dr("Used") = "600000"
dt.Rows.Add(dr)

'*** Rows ***'
dr = dt.NewRow
dr("CustomerID") = "C004"
dr("Name") = "Peter Parker"
dr("Email") = "peter.parker@shotdev.com"
dr("CountryCode") = "US"
dr("Budget") = "4000000"
dr("Used") = "100000"
dt.Rows.Add(dr)

Return dt '*** Return DataTable ***'
End Function
</script>
<html>
<head>
<title>ShotDev.Com Tutorial</title>
</head>
<body>
<form id="form1" runat="server">
<asp:GridView id="myGridView" runat="server">
</asp:GridView>
</form>
</body>
</html>

Create a asp.net file and save to path root-path/dotnet/

Run
http://localhost/dotnet/GridViewDataSetDataTable.aspx

Screenshot

.
.
.