| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 334 人关注过本帖
标题:怎么无法更新数据库啊
只看楼主 加入收藏
sncelpl
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2006-6-28
结帖率:100%
收藏
已结贴  问题点数:2 回复次数:3 
怎么无法更新数据库啊
Private Sub Command9_Click()
Set RS = New ADODB.Recordset '新建一个recordset
RS.CursorType = adOpenStatic
RS.CursorLocation = adUseClient
RS.LockType = adLockPessimistic
RS.Open "SELECT * FROM byq1 ", Con
RS.AddNew
With RS
.Fields("zzg1AB") = Text1(0).Text
......
.Update
End With



now_add = Not now_add
MsgBox ("确定打印吗")
DataReport.DataMember = "Command2"
DataReport.Show

While Not RS.EOF()
RS.Delete
RS.MoveNext
Wend
RS.Close
End Sub

关闭打印页后选下一个数据怎么还是上个数据啊大老们帮忙看下。
搜索更多相关主题的帖子: End 数据库 Recordset With 更新 
2022-04-28 11:35
cwa9958
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:40
帖 子:188
专家分:1036
注 册:2006-6-25
收藏
得分:2 
你关闭后打开,Text1里的数据更新了吗?
还有,你打开byq1表看看,里面的数据是什么
2022-04-28 13:32
sncelpl
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2006-6-28
收藏
得分:0 
回复 2楼 cwa9958
变了的
数据库里也是变了的点打印还是上次的数据找不到原因了
2022-04-28 19:05
sncelpl
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2006-6-28
收藏
得分:0 
已解决
2022-04-29 10:52
快速回复:怎么无法更新数据库啊
数据加载中...
 
   



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

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