default.aspx.vb

来自「Windows 绑定代码实例」· VB 代码 · 共 23 行

Imports System.Data.Common
Imports System.Data
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        showrsresults(Me.SqlDataSource1.Select(New DataSourceSelectArguments("state")))
    End Sub
    Protected Sub showrsresults(ByVal e As IEnumerable)
        Dim idx As IEnumerator = e.GetEnumerator
        While idx.MoveNext
            If idx.Current.GetType() Is GetType(DataRowView) Then
                Dim drv As DataRowView = DirectCast(idx.Current, DataRowView)
                Response.Output.Write("{0},{1},{2} </br>", drv(0), drv(1), drv(2))
            ElseIf idx.Current.GetType() Is GetType(DbDataRecord) Then
                Dim dr As DbDataRecord = DirectCast(idx.Current, DbDataRecord)
                Response.Output.Write("{0},{1},{2} </br>", dr(0), dr(1), dr(2))

            End If
        End While
    End Sub
End Class