Public adoCn As New ADODB.Connection
Public adoRs As New ADODB.Recordset
'-------------------连接数据库-------------------------------------
Public Function Connection() As Integer
Dim sCon As String
On Error GoTo Errs
sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb"
adoCn.CursorLocation = adUseClient
adoCn.Open sCon
Connection = 0
Exit Function
Errs:
Connection = -1
End Function
'-------------------------------断开数据库-----------------------
Public Function DisConnection() As Integer
On Error GoTo Errs
If adoCn.State = adStateOpen Then adoCn.Close
Set adoCn = Nothing
DisConnection = 0
Exit Function
Errs:
DisConnection = -1
End Function
'使用 DAO 访问本地数据库Access,在程序运行期间一直打开
Set myws = DBEngine.Workspaces(0)
Set mydb2 = myws.OpenDatabase(Data_Path + "\Data\erp.mdb", True, False, ";pwd=" & Get_Pwd("+=0") & "")
Set myset = mydb2.OpenRecordset("select dbuser_id,dbpass_id,dsn from dbuser")
If myset.RecordCount = 0 Then
mydb2.Execute "insert into dbuser select * from dbuser_bak"
myset.Requery
If myset.RecordCount < 1 Then GoTo err_preconnect
End If