<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb" Inherits="WebApplication1.WebForm1"%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <title>WebForm1</title> <meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0"> <meta name="CODE_LANGUAGE" content="Visual Basic 7.0"> <meta name="vs_defaultClientScript" content="JavaScript"> <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5"> </HEAD> <body MS_POSITIONING="GridLayout"> <form id="Form1" method="post" runat="server"> <FONT face="新細明體"> <asp:DataGrid id="DataGrid1" style="Z-INDEX: 101; LEFT: 52px; POSITION: absolute; TOP: 75px" runat="server" AutoGenerateColumns="False"> <Columns> <asp:BoundColumn DataField="person_no"></asp:BoundColumn> <asp:BoundColumn DataField="person_name"></asp:BoundColumn> </Columns> </asp:DataGrid></FONT> </form> </body> </HTML> 'VB Code Option Strict On Imports System.Data.SqlClient Public Class WebForm1 Inherits System.Web.UI.Page Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid#Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: This method call is required by the Web Form Designer 'Do not modify it using the code editor. InitializeComponent() End Sub#End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim strCn As String = "uid=sa;pwd=;Initial Catalog=table;Data Source=sprogram" Dim strSQL As String = " SELECT person_no,person_name,sex,enable " & _ " FROM dbo.person " Dim sadTest As New SqlDataAdapter(strSQL, strCn) Dim dsTest As New DataSet() sadTest.Fill(dsTest, "person") DataGrid1.DataSource = dsTest.Tables("person").DefaultView DataGrid1.DataBind() End SubEnd Class
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>WebForm1</title>
<meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<FONT face="新細明體">
<asp:DataGrid id="DataGrid1" style="Z-INDEX: 101; LEFT: 52px; POSITION: absolute; TOP: 75px" runat="server" AutoGenerateColumns="False">
<Columns>
<asp:BoundColumn DataField="person_no"></asp:BoundColumn>
<asp:BoundColumn DataField="person_name"></asp:BoundColumn>
</Columns>
</asp:DataGrid></FONT>
</form>
</body>
</HTML>
'VB Code
Option Strict On
Imports System.Data.SqlClient
Public Class WebForm1
Inherits System.Web.UI.Page
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid#Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub#End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strCn As String = "uid=sa;pwd=;Initial Catalog=table;Data Source=sprogram"
Dim strSQL As String = " SELECT person_no,person_name,sex,enable " & _
" FROM dbo.person "
Dim sadTest As New SqlDataAdapter(strSQL, strCn)
Dim dsTest As New DataSet()
sadTest.Fill(dsTest, "person")
DataGrid1.DataSource = dsTest.Tables("person").DefaultView
DataGrid1.DataBind() End SubEnd Class