vb.net查询更新添加删除access数据库(标准化类库)
部分代码:
Imports System
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Collections.Generic
Imports System.Text
Imports System.Data
Imports System.Configuration.ConfigurationSettings
Imports System.Data.OleDb
Public Class Database
Private ConnStr As String
Private AcConn As OleDbConnection
'''
''' 数据库连接路径及方式
'''
'''
Sub New()
'ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Test.mdb;Persist Security Info=False"
ConnStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Test.accdb;Persist Security Info=False"
End Sub
Sub New(ByVal OleConnStr As String)
ConnStr = OleConnStr
End Sub
Sub New(ByVal AcessVision As String, ByVal DataSource As String, ByVal PersistInfo As String)
'connectionString = System.Configuration.ConfigurationSettings.GetConfig("Supermarket")
'连接2010数据库
'connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\GCU.accdb"
'连接03-07数据库
ConnStr = "Provider=" & AcessVision & ";Data Source=" & DataSource & ";Persist Security Info=" & PersistInfo
End Sub
'''
''' 数据库连接字符串
'''
'''
'''
'''
Public Property OleConnStr() As String
Get
Return ConnStr
End Get
Set(ByVal value As String)
ConnStr = value
End Set
End Property
1