Question

VB自动编号代码

例如我录入图书信息,图书库中已有编号为OUTS-0001 OUTS-0002 的书籍 怎么在写个代码让他自动生成以后录入的编号代码? 我在输入一个书名,他编号段自己显示 OUTS-0003 在输入显示OUTS-0004 这个程序代码怎么实现?用VB 哪位高人指点一下?谢谢
我知道这思路,我就是不会写那代码 写了都错的.还请三楼把代码写全了 谢谢了.

Answer 1

先查询已经存在的数据编号！然后截取字符，然后再最大的那一记录加1！最后再把结果拼接起来写出数据库！

例如：
'连接数据库的代码就省了,假设你哪个存编号的字段为"编号1,表是“编号”"
Adodc1.RecordSource = "select * from 编号 order by 编号1 asc"
Adodc1.Refresh
if Adodc1.Recordset.RecordCount > 0 then
adodc1.recordset.movelast
text1.text=“OUTS-” & right(Adodc1.Recordset.Fields("编号1"),4)+1
else
text1.text=“OUTS-0001”
end if

思路已经给你了！大体代码也写出来！还不会吗？我不知道你的数据库和表！让我写全不现实啊1按着我的数据库写好吧！？

Answer 2

提供思路，代码自己实现

循环查询从OUTS-0001到OUTS-？？？？的编号是否已经有记录，没有的话跳出循环，新的书就用这个记录

这样在插入数据的时候对数据库压力比较大，因为当有10000本数的时候，这个循环就要执行10001次了，所以，我之前的办法是在数据库建立一个系统表，里面记录当前最后使用的数据，比如OUTS-0005，然后插入记录的时候，读取这个值并加1，就可以了。

Answer 3

如果编号头都一致的话（都叫OUTS)
首先建立一个表，只有一个字段，存储当前的最大值
那么写一个方法，这个方法里执行一个SQL,update那个表的字段+1，然后取出来，返回。你再用这个返回值拼上你的固定头。

不过这个表的update和你新增书的工作要在一个事务里完成，以免只更新了编号，但是没有插入图书信息，导致编号断掉。