mdldb.bas

来自「学生信息管理系统」· BAS 代码 · 共 24 行

Attribute VB_Name = "mdlDB"
Public adoCon As ADODB.Connection
Public adoRS As ADODB.Recordset
Public adoCmd As ADODB.command
Public adoPara As ADODB.Parameter
Public proCon As String
Public userqx As String
Public export As String


Public Sub ConnectDB()
Set adoCon = New ADODB.Connection
With adoCon
   .Provider = "SQLOLEDB"
 
   .ConnectionString = "Server=(local);Uid=sa;Pwd=;Database=MyDB"
    
   .Open
End With

End Sub