mdldb.bas

用VB实现的一个学生管理系统

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