赞美祖国的诗歌50字:VB如何实现自动编号

来源：百度文库编辑：查人人中国名人网时间：2024/05/13 18:03:55

我正在做一个用VB和SQL sever建立的信息系统
如何实现自动编号？
Dim AdoConn As New ADODB.Connection
Dim AdoRs As New ADODB.Recordset

Private Sub Serial_Number()
AdoRs.Open "select * from companyDATA order by companyID", AdoConn, adOpenKeyset, adLockOptimistic
If AdoRs.RecordCount > 0 Then
AdoRs.MoveLast
Text1.Text = "C" & Format(Val(Right(AdoRs.Fields("companyID"), 4)) + 1)
Else
Text1.Text = "C1001"
End If
AdoConn.Close
End Sub
这是我自动编号的一段程序，我想将其编号为C1001，C1002，C1003.....
数据库里面有其他记录，但运行后显示为“C1”
他说
“实时错误‘5’
无效的过程调用或参数”
调试时，鼠标移到LEN时显示
LEN（CStr(AdoRs.Fields("companyID"))）=10
移到CStr时显示
CStr(AdoRs.Fields("companyID"))="C1006 "

同学帮我搞出来了，那句改为：
Text1.Text = Left(Trim(AdoRs.Fields("companyID")), Len(Trim(AdoRs.Fields("companyID"))) - 1) & Right(Trim(AdoRs.Fields("companyID")), 1) + 1

Text1.Text = "C" & String(4 - Len(CStr(AdoRs.Fields("companyID"))), "0") & AdoRs.Fields("companyID")

VB如何实现自动编号 EXCEL里面如何实现自动编号功能？？如何实现数据库固定长度的自动编号 access 如何自动编号?? [VB]如何实现自动按下键盘的某个键 sql数据库如何发布啊?(用vb程序自动实现) Excel在打印时实现自动编号 word如何实现编号内容随打印份数而自动增加？我想把自动编号中用md5加密，变成乱码，如何实现？～～～～请问如何在VB中向查询结果中添加自动编号字段