H_Access/Executer.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports System.Data
Imports System.Data.OleDb
Public Class Executer
    Private Sub New()
    End Sub

    ''' <summary>
    ''' ExecuteNonQuery 返回受影响的行数
    ''' </summary>
    ''' <param name="sql">sql</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function ExecuteNonQuery(ByVal sql As String) As Integer
        Using conn As OleDbConnection = DataBase.GetConnection()
            Using cmd As OleDbCommand = conn.CreateCommand()
                cmd.CommandText = sql
                If conn.State <> ConnectionState.Open Then
                    conn.Open()
                End If
                Return cmd.ExecuteNonQuery()
            End Using
        End Using
    End Function

    ''' <summary>
    ''' ExecuteScalar  返回结果第一行第一列 
    ''' </summary>
    ''' <param name="sql">sql</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function ExecuteScalar(ByVal sql As String) As Object
        Using conn As OleDbConnection = DataBase.GetConnection()
            Using cmd As OleDbCommand = conn.CreateCommand()
                cmd.CommandText = sql
                If conn.State <> ConnectionState.Open Then
                    conn.Open()
                End If
                Return cmd.ExecuteScalar()
            End Using
        End Using
    End Function

    ''' <summary>
    ''' GetDataSet 返回DataSet
    ''' </summary>
    ''' <param name="sql">sql</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function GetDataSet(ByVal sql As String) As DataSet
        Using conn As OleDbConnection = DataBase.GetConnection()
            If conn.State <> ConnectionState.Open Then
                conn.Open()
            End If

            Using adapter As New OleDbDataAdapter(sql, conn)
                Dim ds As New DataSet()
                adapter.Fill(ds)
                Return ds
            End Using
        End Using