锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net自动增加序号 vb实现自动编号代码

数据库IT技术

50分 高分急求!vb数据库自动编号问题你的问题是你用错了控件，我这个是ADO连接数据库 。你用的是ADODC加DATAGRID连接的 。所以出错 。你自己看我声明数据库的时候是ADODB
Call
OpenConn
'用CALL
调用OPENCONN函数
sql
=
"select
hfid
from
hfb
ORDER
BY
hfid"
'打开hfb表,hfid是自动编号的数据
,里面的hfb和hfid都是我自己随便写的名字，hfd是表的名字，hfid是要自动编号的字段
rs.Open
sql,
cn,
1,
1
'rs是打开数据库后可以调用数据库的名称
If
rs.RecordCount
Then
’假如数据库中的内容大于0 ， 即数据库中有数据 ， 不是空的
rs.MoveLast
'则移动到数据库的最后面一个数据，例如现在编号是HF00001~HF00009，就移动到HF00009
txtHFID.Text
=
"HF"
Format(Val(Right(rs.Fields("hfid"),
5)
+
1),
"00000")
'生成的为HF00009+1
为HF00010，即自动在最后的编号基础上加1
，里面的TXTHFID是文本框的名称，根据你自己的修改 。RS.FIELDS(A)是指你现在打开的这个数据库中的字段A的数值
Else
txtHFID.Text
=
"HF00001"'如果没有数据，自动生成HF00001
End
If
Call
CloseConn
’关闭数据库
 ， CLOSECONN也是函数名臣，你可以修改
txtdate.Text
=
Format(Date,
yyyymmdd)
’日期就比较简单了，直接赋值就可以了 。
最后的是打开和关闭数据库的代码：
Public
Sub
OpenConn()
’函数声明
Set
cn
=
New
ADODB.Connection
’声明CN为新的数据库链接
Set
rs
=
New
ADODB.Recordset
’声明RS
cn.CursorLocation
=
adUseClient
cn.Open
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=\\dell745\data\data.cc;Jet
OLEDB:Database
Password=123;Persist
Security
Info=False;"
'打开的是网络里的DELL745计算机下面的DATA文件夹下面的DATA.CC文件，密码是123.
End
Sub
'关闭数据库连接
Public
Sub
CloseConn()
rs.Close
’关闭链接
Set
rs
=
Nothing
’清0
cn.Close
Set
cn
=
Nothing
End
Sub
VB.NET中怎么实现每单击一次按钮，文本框就多出现一个1-13的随机数字？Dim n As Integer, b As Integer, a(13) As Integer
Private Sub Command1_Click()
If b5 Then
b = b + 1
x = Int(n * Rnd()) + 1
Text1.Text = Text1.Texta(x)""
a(x) = a(n)
n = n - 1
Else
Call Form_Load
End If
End Sub
Private Sub Form_Load()
Randomize
n = 13: b = 0
For i = 1 To 13
a(i) = i
Next i
Text1.Text = ""
End Sub
如何在VB.NET中新增数据时添加自动编号的ID字段这个是数据库自带的功能啊 ， 设置字段类型为自动编号就行了 。在保存数据的时候这个字段不用赋值，也不用出现在Insert语句里 。
VB如何自动生成一个日期加数字序列号VB可以使用Date 函数获取当前日期拼接数字字符串组成日期加数字序列号字符串 。
Date函数返回包含系统日期的 Variant (Date) 。
Option Explicit
Dim strsz As String * 3
Dim a As Integer
Private Sub Command1_Click()
a = a + 1
Text2 = a
strsz = Format(a, "000")
Text3 = Date$strsz '显示日期加序号(1-999)
End Sub
Private Sub Form_Load()
Text1 = Date$
Text2 = a
End Sub
【vb.net自动增加序号 vb实现自动编号代码】

推荐阅读


上一篇：电视属于什么信号接口设备，电视属于什么端口

下一篇：phporacle数据库，数据库php干嘛的