📄 module1.bas

📁 本系统实现了对实验室设备的增删改查等基本的功能

💻 BAS

字号:

Attribute VB_Name = "Module1"
Public rslog As New ADODB.Recordset
Public Function DBCnn() As ADODB.Connection '连接数据库
    Set DBCnn = New ADODB.Connection
    DBCnn.Open "driver=SQL Server;server=" + frmlog.Txtdbsev.Text + ";uid=;pwd=;database=SYSGLXT"
End Function

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -