module1.bas

小区物业管理系统,(vb6+SQLServer2000+使用说明)

Attribute VB_Name = "Module1"
Option Explicit
Public adors As New ADODB.Recordset
Public adocon As New ADODB.Connection
Public MyStr As String
Public Function cn() As ADODB.Connection    '定义函数
    '返回一个数据库连接
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_wygl.mdb;Persist Security Info=False"
End Function

Public Sub main()
    adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_wygl.mdb;Persist Security Info=False"
End Sub


Public Function ESQL(ByVal sql As String) As ADODB.Recordset   '定义函数
    '创建连接
    Set adocon = New ADODB.Connection
    '打开连接
    adocon.Open cn
    Set adors = New ADODB.Recordset
    adors.Open Trim(sql), adocon, adOpenKeyset, adLockOptimistic
    Set ESQL = adors
End Function