社区
数据库(包含打印,安装,报表)
帖子详情
用cnn.Execute "up 如何更新mdb里的最后一条记录
dandelionl
2004-10-06 09:44:38
用cnn.Execute "up 如何更新mdb里的最后一条记录,where iD=? ID我不知道等于几。
功能:当程序开始后,条件1满足时先向数据库里追加资料,条件2满足时,更新最后一条记录。
重复开始:条件1满足时先向数据库里追加资料,条件2满足时,更新最后一条记录。
...全文
128
7
打赏
收藏
用cnn.Execute "up 如何更新mdb里的最后一条记录
用cnn.Execute "up 如何更新mdb里的最后一条记录,where iD=? ID我不知道等于几。 功能:当程序开始后,条件1满足时先向数据库里追加资料,条件2满足时,更新最后一条记录。 重复开始:条件1满足时先向数据库里追加资料,条件2满足时,更新最后一条记录。
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
a_cer
2004-10-06
打赏
举报
回复
一定要用 execute吗?
通过 rs.movelast 不是一样可以!
haohaohappy
2004-10-06
打赏
举报
回复
last函数拉
vbman2003
2004-10-06
打赏
举报
回复
Access有个last函数,可以取最后一条记录:
Update TableName
Set iName = 'abc'
Where id in (Select Last(id) From TableName)
victorycyz
2004-10-06
打赏
举报
回复
首先取最后一条记录的ID
Dim rs As New ADODB.Recordset
dim i as long
rs.CursorLocation = adUseClient
rs.Open "select top 1 ID from tablename order by id desc",db
if rs.RecordCount>0 then
i=rs!ID '这个i就是最后一条的ID了
end if
tztz520
2004-10-06
打赏
举报
回复
首先取最后一条记录的ID
Dim rs As New ADODB.Recordset
dim i as long
rs.CursorLocation = adUseClient
rs.Open "select ID from tablename order by id",db
if rs.RecordCount>0 then
rs.MoveLast
i=rs.Fields(0).Value'这个i就是最后一条的ID了
end if
ryuginka
2004-10-06
打赏
举报
回复
你的想法不错,不过执行效率不高的.你还要考虑临界状态啊,比如没有数据.
dandelionl
2004-10-06
打赏
举报
回复
自己想了一种
cnn.Execute "update sheet1 set js_time='" & d & " '
Where ID = (select max(ID) from sheet1) "
接着问--程序里如何得到右下角的已上网 那个连接时间 http://community.csdn.net/Expert/topic/3426/3426724.xml?temp=.811886
ASP数据库连接方式大全
#######以下是一个类文件,下面的注解是调用类的方法################################################ # 注意:如果系统不支持建立Scripting.FileSystemObject对象,那么数据库压缩功能将无法使用 # Access 数据库...
JSDecoder
Public Class JSDecoder Private Const STATE_COPY_INPUT = 100 Private Const STATE_READLEN = 101 Private Const STATE_DECODE = 102 Private Const STATE_UNESCAPE = 103 Private Pick_Encodi...
vb电表管理系统设计与实现
鉴于以上原因我们有必要开发一种帮作电费管理人员的软件系统,可以完成检查用户用电情况,每月抄度,信息录入以及基本数据维护的各项功能.本系统采用visual basic 6.0与微软Access数据库方式.界面尽量做到人性化,数据...
EXCEL常见问题五十问题解答
用命令按扭打印一个sheet1中B2:M30区域中的内容?我想在Sheet2中制件一个命令按扭, 打印表Sheet1中的[B2:M30] 区域中的内容?解答:可以将打印区域设为b2:m30,然后打印,如:sheets("sheet1").printarea=&...
RealPython 中文系列教程(一百二十五)
是一个基本的构建模块,许多其他算法都是基于它构建的。它与你在整个编程生涯中会看到的几个令人兴奋的想法有关。理解 Python 中排序算法的幕后工作方式是实现解决现实问题的正确高效算法的基本步骤。
数据库(包含打印,安装,报表)
1,217
社区成员
55,952
社区内容
发帖
与我相关
我的任务
数据库(包含打印,安装,报表)
VB 数据库(包含打印,安装,报表)
复制链接
扫一扫
分享
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章