module1.bas

来自「本系统为客户管理系统 (1)本系统的数据库为SQL Server 2000」· 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_Client"
  PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_Client"
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_Client"
Set rs = New ADODB.Recordset
rs.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic
Set ESQL = rs
End Function