module1.bas

来自「C/S模块」· BAS 代码 · 共 17 行

Attribute VB_Name = "Module1"

Public conn As New ADODB.Connection  '连接数据库
Public rs As New ADODB.Recordset

Public Sub openconn()
On Error GoTo chek
    Set conn = New ADODB.Connection
  conn.ConnectionString = "provider=sqloledb.1;integrated security=sspi;" + _
                    "initial catalog=银行管理系统;data source=cy"
                    conn.Open
 Exit Sub
chek:
    MsgBox "开操作失败！", vbRetryCancel + vbExclamation, "错误提示"
End Sub