module1.bas

来自「VB影碟出租系统」· BAS 代码 · 共 31 行

Attribute VB_Name = "Module1"
'Download by http://www.codefans.net
Option Explicit


Public gCon As New ADODB.Connection
Public gRst As New ADODB.Recordset
Public SQL As String
Public gX As Excel.Application
Public Sub OpenDBFile()
gCon.Open "provider=microsoft.jet.oledb.4.0;data source=" _
           & App.Path & "\cdlent.mdb;Mode=ReadWrite;Persist Security Info=True;Jet OLEDB:Database Password=123456"
End Sub

Public Sub CloseDBFile()
gCon.Close
End Sub

Public Sub OpenRS(SQL As String)
gRst.Open SQL, gCon, adOpenStatic, adLockBatchOptimistic
End Sub


Public Sub CloseRS()
gRst.Close
CloseDBFile
End Sub