Ch15-03-04.aspx SELECT语句的群组化数据
Sub Page_Load(Obj As Object, e As EventArgs)
Dim DSN As String, tSQL As String
' 设置使用联机字符串
DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("/ASP/Chap14/ASP.NET网页数据库.mdb") & ";"
' 设置SQL语句
tSQL = "SELECT UserName As 姓名, EMail As 电子邮件地址, " & _
"UserAccount As 登录账号 FROM UserDatas " & _
"GROUP BY UserName, EMail, UserAccount " & _
" ORDER BY UserAccount"
ShowResultSet(DSN, tSQL)
End Sub