module1.bas

物流公司管理系统

Attribute VB_Name = "Module1"
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Function ConnectToServer() As Boolean
On Error GoTo ConnectErr
   Dim provStr As String
   cn.Provider = "sqloledb"
   provStr = "Server=JJ-A96E6B514D88;Database=teacher;UID=sa;pwd=sa"
   cn.ConnectionTimeout = 30
   cn.Open provStr
   ConnectToServer = True
   Exit Function
ConnectErr:
    ConnectToServer = False
    MsgBox "错误代码:" & Err.Number & vbCrLf & "错误描述:" & Err.Description, vbCritical + vbOKOnly, "连接错误"
End Function
Public Function DisConnect() As Boolean
    If cn.State = adStateOpen Then
       cn.Close
    End If
    DisConnect = True
End Function
Public Sub crs(ByVal strsql As String)
   On Error GoTo err1
   Set rs = Nothing
   rs.Open strsql, cn, adOpenDynamic, adLockOptimistic, -1
   Exit Sub
err1:
   MsgBox "错误信息:" & Err.Number & vbCrLf & _
         "错误描述:" & Err.Description, vbCritical
   Call DisConnect
   End
 End Sub