根據年月日自動編號
来源:互联网 发布:linux jdk版本查看 编辑:程序博客网 时间:2024/05/20 20:56
廠Function AutoBh()
Dim rs As New ADODB.Recordset
Dim strSql As String
Dim temp As String
temp = Format(GetServerDate, "yyyymm")
strSql = "select 編號 from test_a where 編號 like '" & temp & "%' order by 編號 desc"
If rs.State = adStateOpen Then rs.Close
With rs
.Source = strSql
.Open , conn, adOpenStatic, adLockReadOnly, 1
End With
If rs.EOF Then
AutoBh = temp & "0001"
Else
AutoBh = Format(Val(rs!編號) + 1, "0000000000")
End If
End Function
Function GetServerDate()
If rs.State = adStateOpen Then rs.Close
With rs
.Source = "select getdate()"
.Open , conn, adOpenStatic, adLockReadOnly, 1
End With
GetServerDate = Format(rs.Fields(0).Value, "yyyy/mm/dd")
End Function
- 根據年月日自動編號
- 年月日
- 自写日期年月日三级联动效果jquery插件
- C#实现的根据年月日计算星期几的函数 选择自 fanz2000 的 Blog
- easyui自带的日历功能和生日年月日的三级联动
- 生成ID模板:年月日时分秒+6位自增码
- 农历年月日
- 年月日 表单
- 显示年月日
- 年月日联动
- js年月日
- 年月日正则
- 关于年月日
- 年月日 DropDownList
- 输出年月日
- 年月日级联
- 获取年月日
- 寻找年月日
- 既然程序员要凭借自己的技术,那就一定要踏实,要能够实现任何创意。
- 学习jstl的小技巧
- 网站生成静态页面攻略
- SQL中HAVING从句的用法
- 好文章1
- 根據年月日自動編號
- 一个程序员给初学编程人的建议!绝对的好
- 用Linux防火墙构建DMZ
- C/C++头文件一览
- 用Linux防火墙构建软路由
- [转]面试问题大全
- 妙语连珠(转)
- SQL Server的链接服务器技术小结
- 傻子才会悲伤