| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1364 人关注过本帖
标题:如何编写自动编号?
只看楼主 加入收藏
t3crystal
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2006-7-26
收藏
 问题点数:0 回复次数:6 
如何编写自动编号?
询问,在一个窗体的员工编号TEXT文本框中,如何编程 可以获得自动的编号,
希望Text文本框中初始值为:YG0000 如果每增加一个员工,就自动加 1,
如示:YG0002,YG0003,。。。而在相应的Access数据库中也作相应的改变
数据库中的表是:
类型 编号
员工编号 YG0000 (根据添加自动加1改变)
配件编号 PJ0000
。。。 。。。
。。。 。。。
搜索更多相关主题的帖子: 编写 自动 
2006-09-05 20:33
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
收藏
得分:0 
"YG" & Format(rs.RecordCount, "0000")

rs 是 RecordSet 对象
2006-09-05 22:19
t3crystal
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2006-7-26
收藏
得分:0 
能具体说一下吗?不是很懂
2006-09-05 22:23
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
收藏
得分:0 

你已经对程序编程了吗?和数据库建立连接了吗?那就应该有一个记录游标对象用以浏览数据库记录。

2006-09-05 22:28
VB爱上我
Rank: 6Rank: 6
等 级:贵宾
威 望:25
帖 子:478
专家分:52
注 册:2005-10-14
收藏
得分:0 

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Command1_Click()
Dim id As String
Set rs = New ADODB.Recordset

rs.Open "select max(cast(right(id,4) as float)) from biao", conn, 1, 1
MsgBox "GR" & Format(rs.Fields(0) + 1, "0000")
id = "GR" & Format(rs.Fields(0) + 1, "0000")
conn.Execute "insert biao values('" & id & "')"
End Sub

Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.ConnectionString = "provider=sqloledb;database=dujun;uid=sa;data source=jhd001;pwd="
conn.Open
End Sub


IT618资讯网 提供服务端开发,前端开发,网页特效,热门开源系统研究,软件下载,站长建站,淘宝开店等学习资料.
2006-09-06 10:22
majinthhhy
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2010-3-5
收藏
得分:0 
Private Function get_bh() As String
    Dim bh As String
    Dim bhi As Integer
    bhi = 0
    Adodc2.RecordSource = "select * from ck order by number"
    Adodc2.Refresh
    If Adodc2.Recordset.RecordCount = 0 Then
       get_bh = "YJ0001"
       Exit Function
    End If
    Adodc3.RecordSource = "select number from ck where number = '" + "YJ0001" + "' order by number"
    Adodc3.Refresh
    If Adodc3.Recordset.RecordCount > 0 Then
       Adodc2.Recordset.MoveLast
       bh = "YJ" + Format(CInt(Right(Trim(Adodc3.Recordset.Fields("number")), 4)) + 1, "0000")
       While bhi = 0
           Adodc3.RecordSource = "select number from ck where number = '" + bh + "'"
           Adodc3.Refresh
           If Adodc3.Recordset.RecordCount = 0 Then
              bhi = 1
              get_bh = bh
              Exit Function
           Else
              bh = "YJ" + Format(CInt(Right(Trim(bh), 4)) + 1, "0000")
           End If
       Wend
    Else
       get_bh = "YJ" + "0001"
    End If
End Function
2010-11-09 14:18
majinthhhy
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2010-3-5
收藏
得分:0 
自己改一下就可以了
2010-11-09 14:19
快速回复:如何编写自动编号?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017323 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved