PGlabo

« [ASP.NET] DataGrid に表示（3パターン） | メイン | [ASP.NET|SQL Server] SQL Server へアップデート »

2005年10月06日

[ASP.NET|SQL Server] SQL Server からドロップダウンリストへ

        Dim Conn As SqlConnection
        Dim Cmd As SqlCommand
        Dim DR As SqlDataReader

        Conn = New SqlConnection("server=localhost;User ID=sa;Password=;database=TEST;")

        Conn.Open()

        Cmd = New SqlCommand("SELECT * FROM RolesMst ORDER BY RoleNO ASC", Conn)

        'クエリを実行して、DataReader を確立する

        DR = Cmd.ExecuteReader

        ddlRole.Items.Add(New ListItem("選択してください", ""))

        'DataReader から１行ずつ読み込む

        Do While (DR.Read())

            'ドロップダウンリストに各フィールドの内容を追加する

            ddlRole.Items.Add(New ListItem(DR.Item("RoleText"), DR.Item("RoleValue")))

        Loop

        DR.Close()

        Cmd.Dispose()

        Conn.Dispose()

        ddlRole.SelectedIndex = 0

2005 / 10 / 06