ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2352|回复: 8

请教自动生成号的问题!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2004-1-5 10:51 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
请教各位! SQL数据表中有两个字段,一个是年份(如:2004)字段1,另一个是数字字段2,字段1中有2003,有2004, 如何在数据增加时,字段2等于字段1为2004的最大值? 例如字段1=2004 字段2=1,新增时字段1=2004,字段2=2! 原来的程序如下: txtUpNo(0) = Year(Now()) 'txtUpNo(0) 为字段1 sSQL = sSQL & "select max(字段2) maxNo from 信息表 " Set rs = New ADODB.Recordset rs.ActiveConnection = cn rs.CursorType = adOpenStatic rs.LockType = adLockOptimistic rs.Open sSQL txtUpNo(1) = rs!maxNo + 1 'txtUpNo(1)为字段2 rs.Close 原来只有字段1=2003的时候,字段2自动增加!现在有2004了!字段2应该重新开始生成了! 但是字段2还是连着2003的最大值增加??!! 请帮忙解决! 谢谢!

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-1-5 13:34 | 显示全部楼层
其实只要在我的程序里稍微改动就行了! 你的方法我看不懂呀! 能帮我改改吗?

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-1-6 08:46 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
现在数据表里还没有2004呢!txtUpNo(0) = Year(Now()) 怎么办?

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-1-7 07:53 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
还是不行! 我把完整的代码给你吧!你的邮箱或者QQ? 我的MAIL:ZHW369@21CN.COM QQ:
[此贴子已经被作者于2004-1-7 9:47:17编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-1-8 11:02 | 显示全部楼层
谢谢loadhigh版主的帮助和指点!问题解决了!谢谢!以后请多指教!

TA的精华主题

TA的得分主题

发表于 2004-1-7 12:32 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
或改成: txtUpNo(1) = iif(rs.recordcount=0,0,rs.fields(0))+ 1 'txtUpNo(1)为字段2

TA的精华主题

TA的得分主题

发表于 2004-1-6 12:02 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
以下是引用巫山神女在2004-1-6 8:46:00的发言: 现在数据表里还没有2004呢!txtUpNo(0) = Year(Now()) 怎么办?
txtUpNo(1) = iif(isnull(rs.fields(0)),0,rs.fields(0))+ 1 'txtUpNo(1)为字段2

TA的精华主题

TA的得分主题

发表于 2004-1-5 17:26 | 显示全部楼层
修改过了,你这里代码只是显示字段2,而没有将字段2的值返回给数据库的代码。 txtUpNo(0) = Year(Now()) 'txtUpNo(0) 为字段1 sSQL = sSQL & "select max(字段2) maxNo from 信息表 where 字段1=2004 " Set rs = New ADODB.Recordset rs.ActiveConnection = cn rs.CursorType = adOpenStatic rs.LockType = adLockOptimistic rs.Open sSQL txtUpNo(1) = rs.fields(0)+ 1 'txtUpNo(1)为字段2 rs.Close

TA的精华主题

TA的得分主题

发表于 2004-1-5 12:16 | 显示全部楼层
你可以做一个关于这个表的插入操作的触发器(trigger for insert) ALTER TRIGGER [触发器名称] ON [dbo].[表名] FOR INSERT AS update [表名] set 字段2=(select max(字段2) from [表名] where 字段1=2004)+1 where [ID字段]=(select [ID字段] from inserted) and 字段2 is null
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-14 15:02 , Processed in 0.045967 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表