Question

VB6.0如何自动生成编号

用VB6.0编程，数据库用SQL server 2000，用adodc连接数据库。.现在我想要自动生成9位编号，前六位为DTPicker的年月，后一位为类别编号，1为医院，2为药店，最后2位为顺序号。以下是我目前的程序代码：
Private Function getNewID() As String
Dim cn As Connection

Dim sql As String

Dim typeid As String
If Comboclienttype.Text = "1医院 " Then

typeid = 1

Else
If Comboclienttype.Text = "2药店 " Then

typeid = 2
Else
MsgBox ("请选择正确的客户类型!")

End If
End If

Dim dateid As String

dateid = Format(DTPickerfirstcodate.Value, "yyyyMM")
Dim datetype As String
datetype = dateid & typeid

sql = "select max(clientid) as maxcode from clientbaseinformation where left(clientid,7)='" & datetype & "'"
Adodc3.RecordSource = sql
Adodc3.Refresh

If Len(Trim(clientid)) Then '如果查询日期存在最大编号
n = Val(Mid(clientid, 9)) + 1 '最大编号+1
clientid = datetype & Format(n, "00") '与查询日期一起生成新编号
Else '如果当日还没有编号
clientid = datetype & "01" '生成查询日期的第一张编号
End If

getNewID = clientid

End Function
现在的问题是：
比如当DTPicker的时间为2011-4-2，类别为1，数据库的clientbaseinformation表中已有201104101这个cilentid号，但是生成的还是201104101，就是不能查询以及读取最大的前七位相同的clientid号。请问该怎么改？？我要具体代码！！求大侠帮忙！！

Answer 1

clientid 是数据库的字段？那你怎么能直接在代码里使用？改用Adodc3.recordset.fields("Clientid")
‘’‘’原文
If Len(Trim(clientid)) Then '如果查询日期存在最大编号
n = Val(Mid(clientid, 9)) + 1 '最大编号+1
clientid = datetype & Format(n, "00") '与查询日期一起生成新编号
Else '如果当日还没有编号
clientid = datetype & "01" '生成查询日期的第一张编号
End If

getNewID = clientid
'修改后
if Adodc3.recordset.recordcount>0 Then '如果有返回记录
n = Val(Mid(Adodc3.recordset.fields("Clientid"), 8)) + 1 '你的原意应该是取后2位吧？
getNewID = datetype & Format(n, "00") '与查询日期一起生成新编号
Else '如果当日还没有编号
getNewID = datetype & "01" '生成查询日期的第一张编号
End If

追问

调试后n = Val(Mid(Adodc3.Recordset.Fields("Clientid"), 8)) + 1 出现以下问题：再对应所需名称或序数的集合中未找到项目。这是啥问题啊？？咋改呀？

追答

n = Val(Mid(Adodc3.Recordset.Fields("Clientid"), 8)) + 1
改成
n = Val(Mid(Adodc3.Recordset.Fields("maxcode"), 8)) + 1

追问

不行啊不行。
Adodc3.Recordset.RecordCount这个值永远是1.
我觉得是max语句有问题 但我不知道怎么改。

Answer 2

小破琴，你的循环错了啦！！！

Answer 3

提供个思路：
顺序号保存到数据库里，当最后一次更新的顺序号不是当天的就更新为01，否则就把顺序号加1更新到数据库里，然后取出顺序号，然后把各个所需的号码连接起来成一个字符串。
希望回答对你有帮助。