module1.bas

酒店客房管理系统(vb^+SQLServer2000+使用说明)

Attribute VB_Name = "Module1"
Public adocon As New ADODB.Connection
Public adoRs As New ADODB.Recordset
Public Sub Main()
    adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_KFGL.mdb;Persist Security Info=False"
End Sub
Public Function ESQL(ByVal sql As String) As ADODB.Recordset   '定义函数
    '定义连接
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    '创建连接
    Set cnn = New ADODB.Connection
    '打开连接
    cnn.Open StrCnn
    Set rs = New ADODB.Recordset
    rs.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic
    Set ESQL = rs
End Function
Public Function StrCnn()
    '返回一个数据库连接
    StrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_KFGL.mdb;Persist Security Info=False"
End Function