modys.bas

超市的管理系统

Attribute VB_Name = "ModDBACCESS"
Option Explicit
Public con As New ADODB.Connection
Public strName As String




Public Function ConnectToServer() As Boolean
    
On Error GoTo connecterr
 
'连接到sqlserver
    
    con.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=xf;Data Source=."
    
    con.ConnectionTimeout = 30
    
    con.Open
    
    ConnectToServer = True
    
    Exit Function
    
'错误处理

connecterr:

    ConnectToServer = False
    
    MsgBox "错误代码：" & Err.Number & vbCrLf & _
           "错误描述：" & Err.Description, vbCritical + vbOKOnly, "错误连接！"
           
    
    
End Function


Public Function QueryXFInfo(ByVal strSQL As String) As ADODB.Recordset

On Error GoTo on_queryerr

Dim rct As New ADODB.Recordset

Set rct = Nothing           '重新查询，设置该对象为空
    
Call rct.Open(strSQL, con, adOpenDynamic, adLockBatchOptimistic, -1)
    
Set QueryXFInfo = rct
    
Exit Function
    
    
on_queryerr:

   MsgBox "错误代码：" & Err.Number & vbCrLf & _
           "错误描述：" & Err.Description, vbCritical + vbOKOnly, "错误！"
    
End Function
    
    
Public Function DisConnect() As Boolean

On Error Resume Next

    If con.State = adStateOpen Then
    
        con.Close
        
    End If
    
DisConnect = True

End Function


Public Sub main()

    frmLogin.Show
 
End Sub