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
''' <summary>
''' 数据库连接路径及方式
''' </summary>
''' <remarks></remarks>
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
''' <summary>
''' 数据库连接字符串
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property OleConnStr() As String
Get
Return ConnStr
End Get
Set(ByVal value As String)
ConnStr = value
End Set
End Property