module1.bas

vc考试系统vc在线 考试系统vc在线 考试系统

Attribute VB_Name = "Module1"
Public adodc1 As New ADODB.Connection
Public rstemp As New ADODB.Recordset
Public rsmc As New ADODB.Recordset
Public rsmp As New ADODB.Recordset
Public rssp As New ADODB.Recordset
Public rso As New ADODB.Recordset
Public rsseap As New ADODB.Recordset
Public rsseac As New ADODB.Recordset
Public i As Integer



Public Function connectstring() As String
connectstring = "provider=microsoft.jet.oledb.4.0;data source=" & _
App.Path & "\pss.mdb;persist security info=false"
End Function
'判断记录是否存在
Public Function isexist(x As String, y As String, n As Integer) As Boolean
For i = 1 To n
   If x = y Then
      isexist = True
      Exit Function
   End If
Next i
isexist = False
End Function