VB程序自动生成编号,然后写入数据库中,想获取服务器时间,每过一年,编号从01重新开始

[复制链接]
查看11 | 回复3 | 2013-8-28 16:48:56 | 显示全部楼层 |阅读模式
Dim i As IntegerPrivate Sub Command1_Click()
Dim strText As String
i = i + 1
strText = Year(Date) & Format(i, "0000")
MsgBox strText
'请在此执行数据库命令,将steText写入其中End Sub...
回复

使用道具 举报

千问 | 2013-8-28 16:48:56 | 显示全部楼层
这要看你用的是啥数据库了,不同的数据库代码肯定不一样...
回复

使用道具 举报

千问 | 2013-8-28 16:48:56 | 显示全部楼层
非常简单,百度HI,详谈...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行