| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1254 人关注过本帖
标题:求助数据写入,怎么不写入啊
只看楼主 加入收藏
jhzrc
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2017-9-23
结帖率:50%
收藏
已结贴  问题点数:10 回复次数:3 
求助数据写入,怎么不写入啊
'************************************************************
 Private Sub Update_Click()
 
 '调用数据库连接过程
  Call OpenConn
  
 '执行更新sql语句
 cn.Execute "Update 新系统 set 值='00'Where  参数名=' 服务器' "

 

 '调用数据库关闭过程
 Call CloseConn
 
 '调用读取数据库过程
 Call ReadData_Click

 '调用数据库连接过程
  Call OpenConn2
  
 '执行更新sql语句


 cn.Execute "Update 新系统 set 值='02'Where  参数名=' 服务器' "
 
 '调用信息窗口过程
 MsgBox ("全部修改成功,可以正常使用了!")
 
 '调用数据库关闭过程
 Call CloseConn2
 
 '调用读取数据库过程
 Call ReadData_Click

 End Sub
 
 '读取数据库
 
 '************************************************************
 
 Private Sub ReadData_Click()
 
 '清楚屏幕信息
  Me.Cls
  
'调用数据库连接过程
  Call OpenConn
  
 
'调用数据库关闭过程
 Call CloseConn
 
 End Sub


 Private Sub view_click()
 
 '清楚屏幕信息
  Me.Cls
  
'调用数据库连接过程
  Call OpenConn
  
 '执行查询sql语句
 rs.Open "Select * from 编号表", cn
 
 '读取记录集内容
 While Not rs.EOF
 '将记录输出到窗体上
 a = rs("单编号")
 b = rs("单总编号")
 rs.MoveNext
 
Label3.Caption = a
Label4.Caption = b
 Wend
 
'调用数据库关闭过程
 Call CloseConn
 
 End Sub

——————————————————————————
大家帮忙看看,怎么不更新数据啊

一个值='00'
另一个值='02'
都没有更新
在线等
搜索更多相关主题的帖子: Sub 调用 数据库 过程 Call 
2017-09-23 16:52
xyxcc177
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:26
帖 子:197
专家分:1249
注 册:2017-7-8
收藏
得分:5 
where前有空格
2017-09-23 20:21
xyxcc177
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:26
帖 子:197
专家分:1249
注 册:2017-7-8
收藏
得分:0 
还有‘服务器’引号前不能有空格,这样的错误我遇到过,检查数据表中是‘服务器’还是‘  服务器’
2017-09-23 20:28
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:939
专家分:5244
注 册:2015-8-10
收藏
得分:5 
楼上已经说了
1. where 之前必须有一个空格,多了没有关系
2. ‘服务器’还是‘  服务器’必须搞清楚,或者改成模糊查询http:// 懒得写了,自己看这个网站吧
你的错误多半在SQL语句上,建议在Access或者SQL Server上测试一下你的代码,不想改变数据内容的话改成Select就可以
2017-09-25 10:11
快速回复:求助数据写入,怎么不写入啊
数据加载中...
 
   



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

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