VB操作数据库的基本函数模块.docVIP

BackTransparentImage_Module Option Explicit Public Conn As New ADODB.Connection Public Rs As New ADODB.Recordset 临时表 三个系统表 Public UserTable As New ADODB.Recordset 用户表 Public OpeRecord As New ADODB.Recordset 操作记录表 Public TablesInfo As New ADODB.Recordset 操作表信息 Public Type TabaleRecordsets TNumber As Long TName As String TRecordset As ADODB.Recordset End Type Public TRS() As TabaleRecordsets Public Function OpenDataBase(ByVal Path As String, ByVal PassWord As String) As Long Dim i As Long On Error GoTo errHandle 打开数据库 If Trim(PassWord) = Then Conn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Path ;Persist Security Info=False; Else Conn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Path ;Jet OLEDB:Database Password= PassWord ;Persist Security Info=False; End If Conn.Open 活动三个系统表 UserTable.Open select * from UsersTable, Conn, adOpenDynamic, adLockPessimistic OpeRecord.Open select * from OpeRecords, Conn, adOpenDynamic, adLockPessimistic TablesInfo.Open select * from TablesInfo, Conn, adOpenDynamic, adLockPessimistic 得到数据表数组 ReDim TRS(0): i = 0 If TablesInfo.EOF True And TablesInfo.BOF True Then TablesInfo.MoveFirst Do While Not TablesInfo.EOF TRS(i).TName = TablesInfo.Fields(Name).Value TRS(i).TNumber = i TRS(i).TRecordset.Open select * from TRS(i).TName, Conn, adOpenDynamic, adLockPessimistic TablesInfo.MoveNext If Not TablesInfo.EOF Then i = i + 1 ReDim Preserve TRS(i) Else Exit Do End If Loop 反馈操作结果 If Conn.State = adStateOpen Then OpenDataBase = 1 MsgBox 成功打开数据库, vbOKOnly + vbInformation, Information Else GoTo errHandle End If Exit Funct