欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

请帮小弟我看看这段代码,多谢

更新时间: 2014-01-05 02:26:06 责任编辑: Author_N1

 

请帮我看看这段代码,谢谢
我是一个新手,刚看vb没几天,从网上看到一个备份access数据的实例,但是照写下来编译却通不过,请大家帮我看看,不要笑我菜,谢谢
Option   Explicit

Dim   dbasize   As   Long
Dim   dbasize2   As   Long
Dim   PathName   As   String
Dim   NoDba   As   Boolean
Private   mclsMidTier   As   clsMidTier
Dim   DB   As   Connection

Private   Sub   cmdClose_Click()
        frmDatabaseRestore.Hide
        Unload   frmDatabaseRestore
End   Sub

Private   Sub   cmdRestore_Click()
        If   MsgBox( "恢复数据库从   "   &   txtSource   &   "   将替换已经存在的文件。你想继续吗? ",   vbYesNo)   =   vbYes   Then
                DoRestore   txtSource.Text,   App.Path
'                 If   NoDba   =   True   Then
                  MsgBox   "恢复数据库成功,单击[确定]然后退出程序! "
                  frmDatabaseRestore.Hide
                  Unload   frmDatabaseRestore
'                 End   If
        Else
          lblStatus.Caption   =   "恢复数据库被中止! "
        End   If
End   Sub

Private   Sub   cmdSource_Click()
        On   Error   GoTo   Erro
        Dim   strTemp   As   String
        strTemp   =   fBrowseForFolder(Me.hWnd,   "Restore   From ")
        If   strTemp   <>   " "   Then
                txtSource   =   strTemp
                dbasize2   =   FileLen(txtSource   &   "\Student.MDB ")
                lblSelectedDba   =   "请选择所备份的数据库文件   :   "   &   Format((dbasize2   /   1024)   /   1024,   "standard ")   &   "MB. "
                cmdRestore.Enabled   =   True
        End   If
Erro:
                Select   Case   err.Number
                      Case   53   'File   Not   Found
                            lblSelectedDba   =   "没有选择备份文件位置! "
                            cmdRestore.Enabled   =   False
                End   Select
End   Sub

Private   Sub   Form_Activate()
        lblSize   =   Format((dbasize   /   1024)   /   1024,   "standard ")   &   "MB. "
End   Sub

Private   Sub   Form_Load()
        PathName   =   App.Path   &   "\Student.MDB "
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:26:06
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/9781/
本文WWW.DOC100.NET DOC100.NET版权所有。