c_sqlutil.vb

来自「这是一个订单管理系统」· VB 代码 · 共 56 行

Imports System.Data

'****************************************************************
'   DHU
'   Copyright (c) 2006 DHU.
'****************************************************************
'****************************************************************
'ファイル名   : C_SQLUtil.vb
'項目名称     : BAシステム
'機能概要　   :	共通処理
'作成者       : WeiZY
'確認者       : WeiZY
'編集日付     : 2006.07.26
'修正者       : WeiZY
'修正日付     : 2006.8.30
'修正内容概要 :
'****************************************************************

Public Class C_SQLUtil

    Public Overloads Shared Function fExecuteDataset(ByVal commandText As String) As DataSet
        Return SqlHelper.ExecuteDataset(ClassConst.ConnectStr, CommandType.Text, commandText)
    End Function        ' ExecuteDataset

    Public Overloads Shared Function fExecuteDataset( _
                    ByVal transaction As OleDb.OleDbTransaction, _
                    ByVal commandText As String) As DataSet

        Return SqlHelper.ExecuteDataset(transaction, CommandType.Text, commandText)
    End Function        ' ExecuteDataset

    Public Overloads Shared Function fExecuteNonQuery(ByVal commandText As String) As Integer
        Return SqlHelper.ExecuteNonQuery(ClassConst.ConnectStr, CommandType.Text, commandText)
    End Function        ' ExecuteNonQuery

    Public Overloads Shared Function fExecuteNonQuery( _
                    ByVal transaction As OleDb.OleDbTransaction, _
                    ByVal commandText As String) As Integer

        Return SqlHelper.ExecuteNonQuery(transaction, CommandType.Text, commandText)
    End Function        ' ExecuteNonQuery

    Public Overloads Shared Function fExecuteScalar(ByVal commandText As String) As String
        ' Pass through the call providing null for the set of SqlParameters
        Return CType(SqlHelper.ExecuteScalar(ClassConst.ConnectStr, CommandType.Text, commandText), String)
    End Function        ' ExecuteScalar

    'Add by ZhuangH 2006.08.01
    Public Overloads Shared Function fExecuteScalar(ByVal transaction As OleDb.OleDbTransaction, _
                    ByVal commandText As String) As String
        ' Pass through the call providing null for the set of SqlParameters
        Return CType(SqlHelper.ExecuteScalar(transaction, CommandType.Text, commandText), String)
    End Function        ' ExecuteScalar

End Class