accessdb.vb

使用Access数据库演示的任务分配管理程序 一个使用ADO.NET基于Microsoft Access数据库演示的任务分配管理的程序

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:2.0.50727.42
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System
Imports System.Configuration
Imports System.Data
Imports System.Text
Imports System.Web

'*************************************************************
' Class Name:  AccessDb
' Purpose:  Oledb specific data access class
' Description: 
'***************************************************************
Namespace Database
    
    Public Class AccessDb
        
        Private ConnectionString As String = ""
        
        Private factory As DbSingletonFactoryOleDb = Nothing
        
        Public Sub New()
            MyBase.New
            Me.InitializeClass
        End Sub
        
        Private Sub InitializeClass()
            'TODO: Add custom configuration settings for:  { VS2002, VS2003, VS2005, App.Config, Web.config, or etc...}
            'TODO : Connection String: 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Samplewind.mdb;Persist Security Info=False'
            Dim dataURL As String = DataDirectory + "dbTeamVision.mdb"
            ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + dataURL + ";Persist Security Info=False"
            Me.factory = DbSingletonFactoryOleDb.Instance
        End Sub

        Friend ReadOnly Property DataDirectory() As String
            Get
                Dim dir As New System.IO.DirectoryInfo(Application.StartupPath)
                Return dir.FullName + "\Data\"
            End Get
        End Property
        
        Function Update(ByVal sql As String) As Integer
            Dim connection As System.Data.IDbConnection = Me.factory.CreateConnection
            connection.ConnectionString = Me.connectionString
            Dim command As System.Data.IDbCommand = Me.factory.CreateCommand
            command.Connection = connection
            command.CommandText = sql
            connection.Open
            Dim rowsAffected As Integer = command.ExecuteNonQuery
            connection.Close
            connection.Dispose
            Return rowsAffected
        End Function
        
        Overloads Sub Insert(ByVal sql As String)
            Me.Insert(sql, false)
        End Sub
        
        Overloads Function Insert(ByVal sql As String, ByVal GetID As Boolean) As Long
            Dim ID As Long = -1
            Dim connection As System.Data.IDbConnection = Me.factory.CreateConnection
            connection.ConnectionString = Me.connectionString
            Dim command As System.Data.IDbCommand = Me.factory.CreateCommand
            command.Connection = connection
            command.CommandText = sql
            connection.Open
            command.ExecuteNonQuery
            If (GetID = true) Then
                command.CommandText = "SELECT @@IDENTITY"
                ID = CType(command.ExecuteScalar,Long)
            End If
            connection.Close
            connection.Dispose
            Return ID
        End Function
        
        Function GetDataSet(ByVal sql As String) As System.Data.DataSet
            Dim connection As System.Data.IDbConnection = Me.factory.CreateConnection
            connection.ConnectionString = Me.connectionString
            Dim command As System.Data.IDbCommand = Me.factory.CreateCommand
            command.Connection = connection
            command.CommandText = sql
            Dim adapter As System.Data.IDbDataAdapter = Me.factory.CreateDataAdapter
            adapter.SelectCommand = command
            Dim ds As System.Data.DataSet = New DataSet
            adapter.Fill(ds)
            connection.Close
            connection.Dispose
            Return ds
        End Function
        
        Function GetDataTable(ByVal sql As String) As System.Data.DataTable
            Return Me.GetDataSet(sql).Tables(0)
        End Function
        
        Function GetDataRow(ByVal sql As String) As DataRow
            Dim dt As DataTable = Me.GetDataTable(sql)
            If (dt.Rows.Count > 0) Then
                Return dt.Rows(0)
            End If
            Return Nothing
        End Function
        
        Function GetScalar(ByVal sql As String) As Object
            Dim connection As System.Data.IDbConnection = Me.factory.CreateConnection
            connection.ConnectionString = Me.connectionString
            Dim command As System.Data.IDbCommand = Me.factory.CreateCommand
            command.Connection = connection
            command.CommandText = sql
            connection.Open
            Dim o As Object = command.ExecuteNonQuery
            connection.Close
            connection.Dispose
            Return o
        End Function
    End Class
End Namespace