📄 ch14-05-04.aspx
字号:
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<% Response.Expires = 0 %>
<Html>
<Head>
<Script Language="VB" Runat="Server">
Sub Page_Load(Obj As Object, e As EventArgs)
Dim TableName As String = "UserDatas"
Dim DSN As String, tSQL As String
DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("ASP.NET网页数据库.mdb") & ";"
' 设置SQL语言的内容
tSQL = "Select * From UserDatas"
DataBind(DSN, tSQL, TableName)
End Sub
' 将DataSet与DataGrid控件集合的Sub程序
Sub DataBind(Byval DSN As String, Byval tSQL As String , _
ByVal TableName As String )
myDataGrid.Visible = "True"
Dim OBJConn As OleDbConnection = New OleDbConnection(DSN)
Dim OBJDS as DataSet=New DataSet()
Dim OBJCmd as New OleDbDataAdapter(tSQL, OBJConn)
OBJCmd.Fill(OBJDS, TableName)
MyDataGrid.Datasource=OBJDS.Tables(TableName).DefaultView
MyDataGrid.DataBind()
OBJConn.Close()
End Sub
</Script>
</Head>
<Body>
<H2>用户注册信息</H2>
<Form Runat="Server">
<asp:Datagrid runat="server"
Id="MyDataGrid"
GridLines="Both"
BorderColor="Black">
</asp:DataGrid>
</Form>
</Body>
</Html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -