vb.net *** 作Access数据库帮助类_语言综合

概述VB.net *** 作Access数据库的一些常用方法，代码如下: Imports SystemImports System.Data.SqlClientImports System.ConfigurationImports System.Collections.GenericImports System.TextImports System.DataImports System.Conf

VB.net *** 作Access数据库的一些常用方法，代码如下:

imports Systemimports System.Data.sqlClIEntimports System.Configurationimports System.Collections.Genericimports System.Textimports System.Dataimports System.Configuration.ConfigurationSettingsimports System.Data.oleDbPublic Class DB    Private Shared com As oleDb.oleDbCommand    Private Shared reader As oleDb.oleDbDataReader    Private Shared adapter As oleDb.oleDbDataAdapter    Private Shared conn As oleDb.oleDbConnection    ''' <summary>    ''' 获取数据库连接    ''' </summary>    ''' <value></value>    ''' <returns></returns>    ''' <remarks></remarks>    Public Shared Readonly Property NewConn() As oleDbConnection        Get            Dim connectionString As String            'connectionString = System.Configuration.ConfigurationSettings.GetConfig("Supermarket")            '连接2010数据库            'connectionString = "ProvIDer=Microsoft.ACE.olEDB.12.0;Data Source=F:\GCU.accdb"            '连接03-07数据库            connectionString = "ProvIDer=Microsoft.Jet.olEDB.4.0;Data Source=F:\JL\GCU.MDB"            '应该在这里先判断conn是否为nothing            If conn Is nothing Then                conn = New oleDb.oleDbConnection(connectionString)            End If            If conn.State <> ConnectionState.Open Then                conn.open()            End If            Return conn        End Get    End Property    ''' <summary>    ''' 执行增删改(无参)    ''' </summary>    ''' <param name="sql">执行的SQL语句</param>    ''' <returns></returns>    ''' <remarks></remarks>    Public Shared Function ExecuteNonquery(ByVal sql As String) As Integer        com = New oleDb.oleDbCommand(sql,NewConn())        Return com.ExecuteNonquery()    End Function    ''' <summary>    ''' 执行增删改(有参)    ''' </summary>    ''' <param name="sql"></param>    ''' <param name="para"></param>    ''' <returns></returns>    ''' <remarks></remarks>    Public Shared Function ExecuteNonquery(ByVal sql As String,ByVal para As oleDbParameter()) As Integer        com = New oleDb.oleDbCommand(sql,NewConn)        com.Parameters.AddRange(para)        Return com.ExecuteNonquery()    End Function    ''' <summary>    ''' 执行增删改的存储过程    ''' </summary>    ''' <param name="para"></param>    ''' <param name="Procedurename"></param>    ''' <returns></returns>    ''' <remarks></remarks>    Public Shared Function ExecuteNonquery(ByVal para As sqlParameter(),ByVal Procedurename As String) As Integer        Dim cmd As oleDb.oleDbCommand        cmd = New oleDb.oleDbCommand()        cmd.Connection = NewConn()        cmd.CommandText = Procedurename        cmd.CommandType = CommandType.StoredProcedure        cmd.Parameters.AddRange(para)        Return com.ExecuteNonquery    End Function    ''' <summary>    ''' 执行查询(返回一个结果集，无参)    ''' </summary>    ''' <param name="sql"></param>    ''' <returns></returns>    ''' <remarks></remarks>    Public Shared Function GetScalar(ByVal sql As String) As String        Dim dataset As DataSet        dataset = New DataSet()        com = New oleDb.oleDbCommand(sql,NewConn)        adapter = New oleDbDataAdapter(com)        adapter.Fill(dataset)        If dataset.tables.Count > 0 And dataset.tables(0).Rows.Count > 0 Then            Return dataset.tables(0).Rows(0)(0).ToString()        End If        Return "Null"    End Function    ''' <summary>    ''' 执行查询(返回一个结果集，有参)    ''' </summary>    ''' <param name="sql"></param>    ''' <param name="para"></param>    ''' <returns></returns>    ''' <remarks></remarks>    Public Shared Function GetScalar(ByVal sql As String,ByVal para As sqlParameter()) As Integer        com = New oleDb.oleDbCommand(sql,NewConn)        com.Parameters.AddRange(para)        Return Convert.ToInt32(com.ExecuteScalar())    End Function    ''' <summary>    ''' 执行查询(返回一行数据,无参)    ''' </summary>    ''' <param name="sql"></param>    ''' <returns></returns>    ''' <remarks></remarks>    Public Shared Function GetReader(ByVal sql As String) As oleDbDataReader        com = New oleDb.oleDbCommand(sql,NewConn)        reader = com.ExecuteReader()        Return reader    End Function    ''' <summary>    ''' 执行查询(返回一行数据,有参)    ''' </summary>    ''' <param name="sql"></param>    ''' <param name="para"></param>    ''' <returns></returns>    ''' <remarks></remarks>    Public Shared Function GetReader(ByVal sql As String,ByVal para As sqlParameter()) As oleDbDataReader        com = New oleDb.oleDbCommand(sql,NewConn)        com.Parameters.AddRange(para)        reader = com.ExecuteReader()        Return reader    End Function    ''' <summary>    ''' 执行查询(返回一个数据集,无参)    ''' </summary>    ''' <param name="sql"></param>    ''' <returns></returns>    ''' <remarks></remarks>    Public Shared Function GetDataSet(ByVal sql As String) As Datatable        Dim dataset As DataSet        dataset = New DataSet()        com = New oleDb.oleDbCommand(sql,NewConn)        adapter = New oleDbDataAdapter(com)        adapter.Fill(dataset)        Return dataset.tables(0)    End Function    ''' <summary>    ''' 执行查询(返回一个数据集,有参)    ''' </summary>    ''' <param name="sql"></param>    ''' <param name="para"></param>    ''' <returns></returns>    ''' <remarks></remarks>    Public Shared Function GetDataSet(ByVal sql As String,ByVal para As sqlParameter()) As Datatable        Dim dataset As DataSet        dataset = New DataSet()        com = New oleDbCommand(sql,NewConn)        com.Parameters.AddRange(para)        adapter = New oleDbDataAdapter(com)        adapter.Fill(dataset)        Return dataset.tables(0)    End FunctionEnd Class