UC知道VB高手求助！怎么自动生成编号？！
来源：百度知道 编辑：UC知道 时间：2024/09/20 03:46:50
用VB6.0+Acess做一个校园卡系统时遇到问题，求助！！！
数据表
入学年份 学院编号 专业编号 班级编号 班级学号 校园卡编号
2006 01 01 01 01
要求：通过前5项输入的数据自动生成校园卡编号：200601010101（入学年份+ 学院编号+ 专业编号+ 班级编号+ 班级学号）
通过command，在新窗体的text里呈现，并将生成编号保存至数据表中“校园卡编号”
麻烦需要VB编程语言，最好具体一点，拜托~
详细一点，拜托。
前五个数据我也是在text显示的，要通过一个command将自动生成的编号显示在text中，并保存回数据表
数据表
入学年份 学院编号 专业编号 班级编号 班级学号 校园卡编号
2006 01 01 01 01
要求：通过前5项输入的数据自动生成校园卡编号：200601010101（入学年份+ 学院编号+ 专业编号+ 班级编号+ 班级学号）
通过command，在新窗体的text里呈现，并将生成编号保存至数据表中“校园卡编号”
麻烦需要VB编程语言，最好具体一点，拜托~
详细一点，拜托。
前五个数据我也是在text显示的，要通过一个command将自动生成的编号显示在text中，并保存回数据表
通过前5项输入的数据？
前五个数据我也是在text显示的？
text是输入内容，再保存到数据表中，还是text显示数据表中已有的内容？
如果是后者，程序如下：
Private Sub Command1_Click()
Dim sConnString As String
Dim cn As ADODB.Connection
Dim rs1 As Recordset
sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\db1.mdb" '换成你的数据库文件名称
Set cn = New ADODB.Connection
cn.Open sConnString
Set rs1 = New ADODB.Recordset
rs1.Open "select * from 校园卡系统", cn, 3, 3
rs1.MoveLast '如果是根据text中显示的，那就更新数据表中的最后一条记录
Text1 = Format(rs1("入学年份"), "0000")
Text2 = Format(rs1("学院编号"), "00")
Text3 = Format(rs1("专业编号"), "00")
Text4 = Format(rs1("班级编号"), "00")
Text5 = Format(rs1("班级学号"), "00")
temp = Text1 & Text2 & Text3 & Text4 & Text5
Print temp
Form2.Text1 = temp '在新窗体的text中显示校园卡编号
rs1.Update "校园卡编号