「DB関数」の編集履歴（バックアップ）一覧はこちら

「DB関数」(2008/02/29 (金) 09:37:25) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

#highlight(vb.net){{

    'DBにクエリ投げる(結果無し)　引数はクエリ文字列
    Private Shared Sub ExecuteQuery(ByVal Query As String)

        Dim hConnection As New System.Data.SqlClient.SqlConnection
        hConnection = OpenDB()

        Dim hCommand As System.Data.SqlClient.SqlCommand

        ' hConnection から SqlCommand のインスタンスを生成する
        hCommand = hConnection.CreateCommand()

        ' hConnection から SqlCommand のインスタンスを生成する
        hCommand = hConnection.CreateCommand()

        ' 実行する SQL コマンドを設定する
        hCommand.CommandText = Query

        ' SQL コマンドを実行し
        hCommand.ExecuteNonQuery()

        ' hCommand を破棄する (正しくは オブジェクトの破棄を保証する を参照)
        hCommand.Dispose()

    End Sub

    'DBにコネクション張る
    Private Shared Function OpenDB()

        ' 接続文字列を生成する
        Dim stConnectionString As String = String.Empty
        stConnectionString = System.Configuration.ConfigurationManager.ConnectionStrings.Item("DraftConnectionString").ToString

        ' SqlConnection の新しいインスタンスを生成する (接続文字列を指定)
        Dim hConnection As New System.Data.SqlClient.SqlConnection(stConnectionString)

        Try
            ' データベース接続を開く
            hConnection.Open()
        Catch

        End Try

        Return hConnection

    End Function

    'DBをSqlDataReaderに格納する
    Private Shared Sub ReadQuery(ByVal QUERY As String, ByRef hReader As System.Data.SqlClient.SqlDataReader)

        Dim hConnection As New System.Data.SqlClient.SqlConnection
        hConnection = OpenDB()

        ' hConnection から SqlCommand のインスタンスを生成する
        Dim hCommand As System.Data.SqlClient.SqlCommand = hConnection.CreateCommand()

        ' 実行する SQL コマンドを設定する
        hCommand.CommandText = QUERY

        ' 指定した SQL コマンドを実行して SqlDataReader を構築する
        hReader = hCommand.ExecuteReader()

    End Sub

]]

#highlight(vb.net){{

    'DBにクエリ投げる(結果無し)　引数はクエリ文字列
    Private Shared Sub ExecuteQuery(ByVal Query As String)

        Dim hConnection As New System.Data.SqlClient.SqlConnection
        hConnection = OpenDB()

        Dim hCommand As System.Data.SqlClient.SqlCommand

        ' hConnection から SqlCommand のインスタンスを生成する
        hCommand = hConnection.CreateCommand()

        ' hConnection から SqlCommand のインスタンスを生成する
        hCommand = hConnection.CreateCommand()

        ' 実行する SQL コマンドを設定する
        hCommand.CommandText = Query

        ' SQL コマンドを実行し
        hCommand.ExecuteNonQuery()

        ' hCommand を破棄する (正しくは オブジェクトの破棄を保証する を参照)
        hCommand.Dispose()

    End Sub

    'DBにコネクション張る
    Private Shared Function OpenDB()

        ' 接続文字列を生成する
        Dim stConnectionString As String = String.Empty
        stConnectionString = System.Configuration.ConfigurationManager.ConnectionStrings.Item("DraftConnectionString").ToString

        ' SqlConnection の新しいインスタンスを生成する (接続文字列を指定)
        Dim hConnection As New System.Data.SqlClient.SqlConnection(stConnectionString)

        Try
            ' データベース接続を開く
            hConnection.Open()
        Catch

        End Try

        Return hConnection

    End Function

    'DBをSqlDataReaderに格納する
    Private Shared Sub ReadQuery(ByVal QUERY As String, ByRef hReader As System.Data.SqlClient.SqlDataReader)

        Dim hConnection As New System.Data.SqlClient.SqlConnection
        hConnection = OpenDB()

        ' hConnection から SqlCommand のインスタンスを生成する
        Dim hCommand As System.Data.SqlClient.SqlCommand = hConnection.CreateCommand()

        ' 実行する SQL コマンドを設定する
        hCommand.CommandText = QUERY

        ' 指定した SQL コマンドを実行して SqlDataReader を構築する
        hReader = hCommand.ExecuteReader()

    End Sub

}}