📄 dataenvironment1.dsr
字号:
VERSION 5.00
Begin {C0E45035-5775-11D0-B388-00A0C9055D8E} DataEnvironment1
ClientHeight = 7380
ClientLeft = 0
ClientTop = 0
ClientWidth = 7815
_ExtentX = 13785
_ExtentY = 13018
FolderFlags = 1
TypeLibGuid = "{C66AC080-494C-4084-A978-3109A40404C6}"
TypeInfoGuid = "{3FBFAD93-61D0-451B-8A5B-DB07EAF70302}"
TypeInfoCookie = 0
Version = 4
NumConnections = 1
BeginProperty Connection1
ConnectionName = "Connection1"
ConnDispId = 1001
SourceOfData = 3
ConnectionSource= $"DataEnvironment1.dsx":0000
QuoteChar = 34
SeparatorChar = 46
EndProperty
NumRecordsets = 0
End
Attribute VB_Name = "DataEnvironment1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub DataEnvironment_Initialize()
Dim strconn As String
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source="strconn=strconn & app.path &"\学生信息.mdb " & ";Persist Security Info=True"
Connection1.ConnectionString = strconn
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -