link.bas
来自「小型超市管理系统.」· BAS 代码 · 共 9 行
BAS
9 行
Attribute VB_Name = "link"
Public Sub link()
Set Mcon = New ADODB.Connection
'函数link的功能是连接数据库
Mcon.ConnectionString = "Provider=sqloledb;Data Source=zhw;Initial Catalog=SuperMarketdb;User Id=sa;Password=820527;"
Mcon.Open
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?