PGlabo

« [ASP.NET|SQL Server] SQL Server から複数アイテム取得 | メイン | [ASP.NET] DataGrid に表示（3パターン） »

2005年10月06日

[ASP.NET|SQL Server] SQL Server から一件アイテム取得

        Dim Conn As SqlConnection
        Dim Cmd As SqlCommand

        'コネクションセット

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

        Conn.Open()

        'パスワード

        Cmd = New SqlCommand("SELECT Pass FROM UsersMst WHERE Id=@Id", Conn)

        Cmd.Parameters.Add("@Id", SqlDbType.VarChar, 6)

        Cmd.Parameters("@Id").Value = TB_Id

        DB_Pass = Cmd.ExecuteScalar

        'ロール

        Cmd = New SqlCommand("SELECT Role FROM UsersMst WHERE Id=@Id", Conn)

        Cmd.Parameters.Add("@id", SqlDbType.VarChar, 20)

        Cmd.Parameters("@Id").Value = TB_Id

        If (IsDBNull(Cmd.ExecuteScalar)) Then

            DB_Role = ""

        Else

            DB_Role = Cmd.ExecuteScalar

        End If

        Cmd.Dispose()

        Conn.Dispose()

2005 / 10 / 06