| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1635 人关注过本帖
标题:commondialog如何覆盖同名文件的问题
只看楼主 加入收藏
wei855198
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:5
帖 子:228
专家分:944
注 册:2009-4-24
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:5 
commondialog如何覆盖同名文件的问题
我使用ADOX创建ACCESS数据库文件,使用了commondialog,如何存在同名文件,虽然能出现是否覆盖的提示,但是如果我点了是,就会出现文件已经存在的错误。使用的代码如下
      Dim fm As String 'fm变量用来获取用户输入的文件名
      CommonDialog1.Filter = "MDB文件(*.mdb)|*.mdb|AllFiles(*.*)|*.*|"
      CommonDialog1.FilterIndex = 1
      CommonDialog1.InitDir = App.Path
      CommonDialog1.Flags = &H2
      CommonDialog1.Action = 2
      If CommonDialog1.FileName = "" Then
        MsgBox "你必须输入一个文件名,请重新保存一次!"
        Exit Sub
      Else
        fm = CommonDialog1.FileName
      End If
      pstr = "Provider=Microsoft.Jet.OLEDB.4.0;"
      pstr = pstr & "Data Source=" & fm
     
     
      cat.Create pstr '创建数据库
请大家指正错误之处,不胜感激。
搜索更多相关主题的帖子: commondialog 文件 
2009-09-02 11:47
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:20 
你可以 KILL 掉这个文件再来创建。
一般新建一个文件时,如果是2进制文件或其它类型的文件,覆盖时,都是建议程序里KILL 掉原文件,再创建新文件。
顺序文件不做这个建议,因为顺序文件新建命令会自动清空原文件
      If CommonDialog1.FileName = "" Then
        MsgBox "你必须输入一个文件名,请重新保存一次!"
        Exit Sub
      Else
        fm = CommonDialog1.FileName
        kill fm
      End If

授人于鱼,不如授人于渔
早已停用QQ了
2009-09-03 09:42
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
你可以KILL掉这个文件
      If CommonDialog1.FileName = "" Then
        MsgBox "你必须输入一个文件名,请重新保存一次!"
        Exit Sub
      Else
        fm = CommonDialog1.FileName
        kill fm
      End If

授人于鱼,不如授人于渔
早已停用QQ了
2009-09-03 09:43
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
这论坛设置,
前一句不能灌水,害得又重打,结果又算回复成功,

授人于鱼,不如授人于渔
早已停用QQ了
2009-09-03 09:44
wei855198
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:5
帖 子:228
专家分:944
注 册:2009-4-24
收藏
得分:0 
十分感激

护肤小店 http://mina2010.
靓装小店 http://liangliyizu2010.
2010-03-04 21:48
快速回复:commondialog如何覆盖同名文件的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029423 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved