module1.bas

来自「是一款专业的销售管理软件」· BAS 代码 · 共 21 行

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