流水号问题

lihuigoeasy 2012-11-28 01:28:17
高分求助 谁能告诉 系统当前日期加四位流水号怎么写
...全文
145 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
lzp4881 2012-11-28
  • 打赏
  • 举报
 回复
<% Function Get_NewId() dim today : today = date() dim toyear : toyear = year(today)*10000 dim tomonth : tomonth = month(today)*100 dim tonow : tonow = day(today) Get_NewId = toyear + tomonth + tonow sqlstr = "Select ListID from paylist where left(ListID,8)='" & Get_NewId & "'" Set rs = Conn.Execute(sqlstr) If rs.EOF Then Get_NewId = Get_NewId*10000+1 Else Get_NewId = rs("listid")*1+1 End If rs.close set rs = nothing End Function %>
lzp4881 2012-11-28
  • 打赏
  • 举报
 回复
<% Function Get_NewId() dim today : today = date() dim toyear : toyear = year(today)*10000 dim tomonth : tomonth = month(today)*100 dim tonow : tonow = day(today) Get_NewId = toyear + tomonth + tonow sqlstr = "Select ListID from paylist where left(ListID,8)='" & Get_NewId & "'" Set rs = Conn.Execute(sqlstr) If rs.EOF Then Get_NewId = Get_NewId*10000+1 Else Get_NewId = rs("listid")*1+1 End If End Function %>
lihuigoeasy 2012-11-28
  • 打赏
  • 举报
 回复
在这基础上怎么改 <% Function Get_NewId() dim today today=date() toyear=year(today) toyear=toyear*10000 tomonth= month(today) tomonth=tomonth*100 tonow=day(today) Get_NewId = toyear + tomonth + tonow Get_NewId = Get_NewId*10000+1 sqlstr = "Select ListID from paylist order by ListID" Set rs = Conn.Execute(sqlstr) If Not rs.EOF Then While Not rs.EOF Get_NewId = toyear + tomonth + tonow Get_NewId = Get_NewId*10000+1 Get_NewId = rs("listid") rs.MoveNext Wend Get_NewId = Get_NewId + 1 Else Get_NewId = Get_NewId End If End Function %>
Dogfish 2012-11-28
  • 打赏
  • 举报
 回复 
no=year(now) & right(100+month(now),2) & right(100+day(now),2) & right(100+hour(now),2) & right(100+minute(now),2) & +right(100+second(now),2) & "流水号"
lihuigoeasy 2012-11-28
  • 打赏
  • 举报
 回复
应该怎么写啊
lzp4881 2012-11-28
  • 打赏
  • 举报
 回复
Get_NewId = rs("listid") ... Get_NewId = Get_NewId + 1 你从数据库里面取数据，日期当然不会变了
lihuigoeasy 2012-11-28
  • 打赏
  • 举报
 回复
帮我看看哪写错啦 第二天日期不变 <% Function Get_NewId() dim today today=date() toyear=year(today) toyear=toyear*10000 tomonth= month(today) tomonth=tomonth*100 tonow=day(today) Get_NewId = toyear + tomonth + tonow Get_NewId = Get_NewId*10000+1 sqlstr = "Select ListID from paylist order by ListID" Set rs = Conn.Execute(sqlstr) If Not rs.EOF Then While Not rs.EOF Get_NewId = toyear + tomonth + tonow Get_NewId = Get_NewId*10000+1 ' rs("ListID").value=Get_NewId Get_NewId = rs("listid") rs.MoveNext Wend 'Get_NewId = toyear + tomonth + tonow 'Get_NewId = Get_NewId*10000 Get_NewId = Get_NewId + 1 Else Get_NewId = Get_NewId End If End Function %>
Go 旅城通票 2012-11-28
  • 打赏
  • 举报
 回复
那不直接&上你的流水号就行了？。。。 
no=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"流水号"
中文编程完整软件实例编程解析之工程设计流水管理系统
通过对完整软件实例（工程设计流水管理系统）编程讲解，让学员熟悉完整软件布局架构及开发思路。比如从界面布局、登录验证、软件注册程序、到软件发布等知识点，贯穿知识点间联系，提升编程整合能力。
利用oracle中的序列巧解并发流水号问题
问题背景分析：        在行式填报表中，可以通过使用流水号来作为自增长型主键进行数据的更新。在这种情况下，多用户并发批量添加若干数据的时候，就可能会产生由于主键冲突而导致的并发插入数据失败。原因是润乾自带流水号是根据数据表的主键ID字段的max()值为基础、通过自加或自减实现递增或递减的流水号，这种流水号的递增或递减都是基于客户端的，当多用户并发的时候必然会引起冲突。这时，就需要在服务器的
流水号(自动编号)生成相关问题(并发、事务)及解决方案
流水号生成的事务和并发问题 因为界面可能多个人创建了表单，生成的流水号号需要顺序加： //从数据库中取出上一次生成的流水号编号 number = select value from 流水号表 where id =？ //更新数据库 编号+1 update number = number + 1; return number; 这里就会有并发问题： 假如有2个人同时去数据库取值 ， 取到的值可能是一样的， 所以生成的 编号也可能一样 ，这就有问题了 ​ 并发问题产生的原因和解决方案 为什么会有并发问题 最主
SAP生产流水号
下面分享一下产生流水号的步骤： 1. 系统中设定流水号 使用T-Code SNRO来创建一个流水号标识对象， 输入Object ZLC_001，然后单击创建。 然后输入Short text, Long text, Number length domain在写程序的时候应该会另外创建，这里测试就使用料号的Domain MATNR来做,其他的参数使用默认值就可以了
mysql触发器流水号问题的解决
首先感谢roy_88 版主的执教，这个编码，我就是稍微改动一下，让他更完善。 不知道为什么发帖没有成功。开个博客吧，记录一下自己的学习过程，也挺好。感谢回答我这老菜鸟问题的人们。 create table orders(orders_id varchar(12) primary key,customer_name varchar(100) ); create table NextSerial
ASP

28,390

社区成员

357,068

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章