module1.bas

学生管理系统

Attribute VB_Name = "Module1"
Public cnn As ADODB.Connection
Public rs1 As New ADODB.Recordset
Public rs3 As New ADODB.Recordset
Public rs2 As New ADODB.Recordset
Public xh As String
Public PublicStr As String
Public BH As String
Public MySign As Boolean

Public Function cnn1() As ADODB.Connection     '定义函数
  Set cnn1 = New ADODB.Connection
  cnn1.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=xscj"
  PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=xscj"
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=xscj"
Set rs = New ADODB.Recordset
rs.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic
Set ESQL = rs
End Function
Public Function cnn2() As ADODB.Connection     '定义函数
  Set cnn2 = New ADODB.Connection
  cnn2.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=xscj"
  PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=xscj"
End Function