module1.bas

来自「商品进销存管理系统 采用VB和SQL2000开发 具有很强的实用性」· BAS 代码 · 共 19 行

Attribute VB_Name = "Module1"
Public MySign As Boolean

Public Function cnn() As ADODB.Connection     '定义函数
    Set cnn = New ADODB.Connection
    cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_JXC"
    PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_JXC"
End Function

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 "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_JXC"
    Set rs = New ADODB.Recordset
    rs.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic
    Set ESQL = rs
End Function