moddataoperate.bas

排队分诊管理系统源代码！该代码使用VB6开发环境

Attribute VB_Name = "modDataOperate"
'Created by Whorter Wang in 2001\10\29
'This Mod is used to operate databse ,for example , backup or restore database etc.

Option Explicit

Public Function BackupDataBase(strFileName As String) As Boolean
    On Error GoTo ERROR_EXIT
ERROR_EXIT:
    Debug.Print "--Error(modDataOperate -- BackupDataBase):"
    If Err.Number <> 0 Then
        Debug.Print "   Error(" & Err.Number & ")" & Error(Err.Number)
        Err.Clear
    End If
    BackupDataBase = False
End Function