DataGrid หรือ Gridview สามารถที่จะนำข้อมูลที่ไม่ใช่ข้อมูลจาก Database ไปใส่ได้หรือป่าว

<%@ 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 DataGrid ***'
		myDataGrid.DataSource = dt
		myDataGrid.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") = "[email protected]"
        dr("CountryCode") = "TH"
        dr("Budget") = "1000000"
        dr("Used") = "600000"
        dt.Rows.Add(dr)

		'*** Rows ***'
		dr = dt.NewRow
        dr("CustomerID") = "C002"
        dr("Name") = "John Smith"
        dr("Email") = "[email protected]"
        dr("CountryCode") = "EN"
        dr("Budget") = "2000000"
        dr("Used") = "800000"
        dt.Rows.Add(dr)

		'*** Rows ***'
		dr = dt.NewRow
        dr("CustomerID") = "C003"
        dr("Name") = "Jame Born"
        dr("Email") = "[email protected]"
        dr("CountryCode") = "US"
        dr("Budget") = "3000000"
        dr("Used") = "600000"
        dt.Rows.Add(dr)
		
		'*** Rows ***'
		dr = dt.NewRow
        dr("CustomerID") = "C004"
        dr("Name") = "Chalee Angel"
        dr("Email") = "[email protected]"
        dr("CountryCode") = "US"
        dr("Budget") = "4000000"
        dr("Used") = "100000"
        dt.Rows.Add(dr)

		Return dt '*** Return DataTable ***'
	End Function
</script>
<html>
<head>
<title>ThaiCreate.Com ASP.NET - DataGrid</title>
</head>
<body>
	<form id="form1" runat="server">
	<asp:DataGrid id="myDataGrid" runat="server">
	</asp:DataGrid>	
	</form>
</body>
</html>