📄 module1.bas
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -