| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
大量收QQ微信精准粉/交友粉,非诚勿扰千里之行 始于足下
共有 533 人关注过本帖
标题:求助 我有一個( VB学生信息管理系统) 但不能更新內容 有誰可以幫到我
只看楼主 加入收藏
MacauBoy
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2017-12-13
结帖率:0
  已结贴   问题点数:20  回复次数:4   
求助 我有一個( VB学生信息管理系统) 但不能更新內容 有誰可以幫到我
(VB学生信息管理系统  )  來源  http://down-www.newasp.net/code/cvery_26268175.rar

程式在更新資料時  總說路經出錯

密碼是:  admin
         111     

請教各位  看看有誰能幫幫我修正這源碼

謝謝大家




[此贴子已经被作者于2017-12-13 16:37编辑过]

2017-12-13 16:33
wds1
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:24
帖 子:253
专家分:1401
注 册:2016-3-10
  得分:20 
程序默认先打开照片,之后可以更新。
如果不打开照片,目标文件名是空
此语句调用出错。【 Call WriteImage(.Fields("photo"), mstrFileName)】

如果想不更新照片就可以更新,此条语句加判断【当然更新了照片仍然可以保存照片】
if mstrFileName<>"" then Call WriteImage(.Fields("photo"), mstrFileName)

你原来的程序更新时,如果选择了上传照片,也不会报错。


[此贴子已经被作者于2017-12-15 23:33编辑过]

2017-12-13 20:44
MacauBoy
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2017-12-13
  得分:0 
回复 2楼 wds1
你好

意思是說  如果不需要用到照片更新
          把這一句去掉  其餘資料就可以更新!


想再多問一個問題   

   有沒有方法  仍然可保留照片更新?
   




謝謝

[此贴子已经被作者于2017-12-15 22:38编辑过]

2017-12-15 22:35
wds1
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:24
帖 子:253
专家分:1401
注 册:2016-3-10
  得分:0 
出错的原因是:如果不选择照片,那么照片mstrFileName是空的,因此更新照片字段找不到路径。

1、如果你想实现不论上传不上传,都可以更新。
  可以把语句修改为如果照片文件没上传,就不更新,上传了就更新
  Call WriteImage(.Fields("photo"), mstrFileName)
修改为:if mstrFileName<>"" then Call WriteImage(.Fields("photo"), mstrFileName)

2、如果你想实现,上传了更新照片,没上传按照默认照片更新
那么只要先给mstrFileName赋值就可以。
2017-12-15 23:28
MacauBoy
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2017-12-13
  得分:0 
現在明白了

我已經修改了  運作正常


謝謝詳細解答







[此贴子已经被作者于2017-12-16 20:38编辑过]

2017-12-16 19:53







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

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