Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-窗体/数据页

用VB6打开Access

时 间:2017-11-28 12:21:11
作 者:大海   ID:42003  城市:深圳
摘 要:用VB6打开Access
正 文:

Sub main()
    Dim acc As String
    Dim strpath As String
    Dim mypassword As String
    Dim Mmdb As String
    Dim Fform As String
    Dim WScr As Object
    On Error Resume Next
    acc = "new00"    '数据库名
    Mmdb = ".mdb"  '数据库类型
    Fform = "测试窗体"  '登陆窗体名
    mypassword = "0000000"    '数据库 密码
    strpath = App.Path & "\" & acc & Mmdb    '数据库路径
    Dim New_mdb As Object    '定义对象
    Set New_mdb = CreateObject("access.application")
    Set WScr = CreateObject("WScript.Shell")
    ''''启用所有宏
    WScr.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & New_mdb.Version & "\Access\Security\VBAWarnings", "00000001", "REG_DWORD"
    New_mdb.OpenCurrentDatabase strpath, False, mypassword   '在新文件中打开数据库文件
    New_mdb.UserControl = True    '用户激活新打开的文件
    New_mdb.DoCmd.OpenForm Fform    '     '打开数据库的窗体,注意access不可以设置启动窗体
    Set WScr = Nothing
    Set New_mdb = Nothing
End Sub



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助