1@ Page Language="VB" Debug="true" trace="true"
1@ Import NameSpace="System.Data"
1@ Import NameSpace="System.data.SQLClient"
1<script language="VB" runat="server">
2Sub Page_Load(sender as object, E as eventargs)
3Dim ds as DataSet
4Dim MyConnection as SQLConnection
5Dim MyAdpt as SQLDataAdapter
6MyConnection =New SQLConnection("server='localhost';UID=sa;PWD=wenasen.com; database=credit_sql")
7MyAdpt = New SQLDataAdapter("select * from admin",MyConnection)
8ds= new DataSet()
9MyAdpt.Fill(ds,"admin")
10dgA.DataSource=ds.tables("admin").defaultView
11dgA.DataBind()
12end sub
13</script>
1<html>
2<head>
3<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
4<title>显示SQL数据库</title>
5</head>
6<body>
7<form id="form1" runat="server">
8<asp:datagrid allowpaging="true" alternatingitemstyle-backcolor="#CCCCCC" border="1" cellpadding="1" edititemstyle-backcolor="" headerstyle-backcolor="#00CCCC" id="dgA" runat="server" width="100%"></asp:datagrid>
9</form>
10</body>
11</html>