sqlconn.bas

学生信息管理系统 学生信息管理系统

Attribute VB_Name = "SQLconn"
Public cnn As New ADODB.Connection
Public cnn1 As New ADODB.Connection

Public qy1 As New ADODB.Recordset '学生信息专用
Public qy2 As New ADODB.Recordset '系别专用
Public qy3 As New ADODB.Recordset '班级专用
Public qy4 As New ADODB.Recordset '学生状态专用
Public qy5 As New ADODB.Recordset '学生成绩专用
Public qy6 As New ADODB.Recordset '历史查询专用
Private Sub Main()
'Dim fo2 As CTranslucentForm
'Set fo2 = New CTranslucentForm
'fo2.hWnd = Form3.hWnd
'fo2.Alpha = 80 / 100 * 255
Load Form3
Form3.Show 1
End Sub
Private Sub tkOpenSQLServerDB( _
        tkServerName As String, _
        tkDefaultDatabase As String, _
        tkUserID As String, _
        tkPassword As String _
    )

    On Error GoTo tkFinish
    On Error GoTo tkFinish
    
    cnn.Open "Provider=SQLOLEDB.1;" & _
        "Data Source=" & tkServerName & ";" & _
        "Use Procedure for Prepare=1;" & _
        "Auto Translate=True;" & _
        "Packet Size=4096;" & _
        "Use Encryption for Data=False;" & _
        "Tag with column collation when possible=False", _
        tkUserID, _
        tkPassword
    cnn.DefaultDatabase = tkDefaultDatabase
    Exit Sub
tkFinish:
    MsgBox Err.Description
    End
    
End Sub