| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1133 人关注过本帖
标题:求助:帮我看看错在哪里
只看楼主 加入收藏
kiff
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:广州
等 级:贵宾
威 望:46
帖 子:756
专家分:2531
注 册:2013-1-30
收藏
得分:0 
proc proc1
      use z:\data\sh_rkd.dbf exclu in 0
      use z:\data\sh_ckd.dbf exclu in 0
出错后,在此打开这两个表的目的是什么
2013-04-26 20:04
grloy
Rank: 1
等 级:新手上路
帖 子:14
专家分:2
注 册:2013-3-19
收藏
得分:0 
Close All
TempDireFiles='z:\data'
lcMsg = "正在检测服务器 。。。"
Wait lcMsg Window At Srow()/2, (Scols()-Len(lcMsg))/2  Nowait
If Directory('&TempDireFiles')
    Use Data\b_qck
    Zap
    Insert Into Data\b_qck Select * From z:\Data\sh_qck
    Use Data\b_rkd
    Zap
    Insert Into Data\b_rkd Select * From z:\data\sh_rkd
    Use Data\b_ckd
    Zap
    Insert Into Data\b_ckd Select * From z:\data\sh_ckd
    Clea All
    Messagebox('数据库更新成功!!!',48,'信息')
Else
    Wait Clear
    Messagebox('没有找到服务器,或服务器已关闭!请稍后再试!',48,'信息')
Endif
  这样不出错,但有可能出现共享盘里的 z:\data\sh_rkd z:\data\sh_ckd 2个表被别人打开不能连接数据成功了!
  proc proc1
      use z:\data\sh_rkd.dbf exclu in 0
      use z:\data\sh_ckd.dbf exclu in 0
  我的想法是先判断有无人已经占用了。
2013-04-26 20:23
kiff
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:广州
等 级:贵宾
威 望:46
帖 子:756
专家分:2531
注 册:2013-1-30
收藏
得分:0 
那就改成这样吧, 你测试一下,我未测试
Close All
TempDireFiles='z:\data'
lcMsg = "正在检测服务器 。。。"
Wait lcMsg Window At Srow()/2, (Scols()-Len(lcMsg))/2  Nowait
If Directory(TempDireFiles)
    err=.F.
    On Error err=.T.
    Use (TempDireFiles+'\sh_rkd') Exclu In 0
    Use (TempDireFiles+'\sh_ckd') Exclu In 0
    Use (TempDireFiles+'\sh_qck') Exclu In 0
    Use Data\b_qck Exclu In 0
    Use Data\b_rkd Exclu In 0
    Use Data\b_ckd Exclu In 0
    On Error
    If err
        Wait Clear
        Messagebox('管理员在更新服务器数据!请稍后再试!!!',48,'数据库占用信息')
    Else
        Zap In b_qck
        Insert Into b_qck Select * From sh_qck
        Zap In b_rkd
        Insert Into b_rkd Select * From sh_rkd
        Zap In b_ckd
        Insert Into b_ckd Select * From sh_ckd
        Wait Clear
        Messagebox('数据库更新成功!!!',48,'信息')
    Endif
Else
    Wait Clear
    Messagebox('没有找到服务器,或服务器已关闭!请稍后再试!',48,'信息')
ENDIF
Wait Clear
Close All


[ 本帖最后由 kiff 于 2013-4-27 09:17 编辑 ]
2013-04-26 20:39
grloy
Rank: 1
等 级:新手上路
帖 子:14
专家分:2
注 册:2013-3-19
收藏
得分:0 
谢谢 我试试哈
2013-04-27 09:09
grloy
Rank: 1
等 级:新手上路
帖 子:14
专家分:2
注 册:2013-3-19
收藏
得分:0 
测试成功 太谢谢了 已解决!!!!
2013-04-27 09:12
sl亮哥
Rank: 1
等 级:新手上路
帖 子:44
专家分:5
注 册:2013-4-22
收藏
得分:5 
图片附件: 游客没有浏览图片的权限,请 登录注册

请问如何根据D的大小,螺距P以及公差等级得到公差数值啊,求各位大神指点程序?
2013-04-27 16:32
qshuju
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:217
专家分:112
注 册:2011-6-9
收藏
得分:0 
参与一下,以后学习
2013-04-29 20:56
快速回复:求助:帮我看看错在哪里
数据加载中...
 
   



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

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