publicvar.vb

来自「用VB.NET写的人员管理系统,可用于二次开发.」· VB 代码 · 共 16 行

Module PublicVar
    Public de As DAO.DBEngine = New DAO.DBEngine
    Public MyWs As DAO.Workspace
    Public Mydb As DAO.Database
    Public Myrec As DAO.Recordset
    Public ManagerName As String
    Public Password As String
    Public Function OpenDb() As Short
        Dim dbstr As String
        dbstr = Application.StartupPath & "\northwind"
        MyWs = de.Workspaces(0)
        Mydb = MyWs.OpenDatabase(dbstr, False, False)
    End Function

End Module