UC知道下面这段 VB代码 什么意思？
来源：百度知道 编辑：UC知道 时间：2024/06/25 03:57:42
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Public Function foundpxbdm()
Dim db As Database
Dim rs As Recordset
Dim fphm As String
Set db = CurrentDb
Set rs = db.OpenRecordset("培训班")
rs.MoveLast
With rs
foundpxbdm = ![培训班代码]
End With
rs.Close
db.Close
End Function
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub 命令43_Click()
Dim db As Database
Dim rs As Recordset
Dim pxbdm As String
pxbdm = foundpxbdm()
Set db = CurrentDb
Set rs = db.OpenRecordset("数据")
With rs
.AddNew
![q1] = fm1
![q2] = fm2
![Class] = pxbdm
.Update
End With
fm1 = 1
fm2 = 1
rs.Close
db.Close
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
一个access调查表的v
Public Function foundpxbdm()
Dim db As Database
Dim rs As Recordset
Dim fphm As String
Set db = CurrentDb
Set rs = db.OpenRecordset("培训班")
rs.MoveLast
With rs
foundpxbdm = ![培训班代码]
End With
rs.Close
db.Close
End Function
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub 命令43_Click()
Dim db As Database
Dim rs As Recordset
Dim pxbdm As String
pxbdm = foundpxbdm()
Set db = CurrentDb
Set rs = db.OpenRecordset("数据")
With rs
.AddNew
![q1] = fm1
![q2] = fm2
![Class] = pxbdm
.Update
End With
fm1 = 1
fm2 = 1
rs.Close
db.Close
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
一个access调查表的v
Function foundpxbdm()的功能是从当前数据库中的"培训班"表中获得最后一个记录的"培训班代码"字段的值.
Dim db As Database '定义一个数据库变量.类似于dim a as long.
Dim rs As Recordset'定义一个记录变量
Dim fphm As String
Set db = CurrentDb '给db数据库变量赋值,就是让它与数据库联系起来
Set rs = db.OpenRecordset("培训班") '培训班是数据库中的一个表的名字.这句话的意思是把表中的第一个记录赋给rs记录变量.如果表不为空,默认打开第一个记录(如果为空,这样会出错,所以要预先加以判断).
rs.MoveLast 'movelast的意思是打开最后一个记录
With rs
foundpxbdm = ![培训班代码]'!X表示记录中X字段(中括号可以不要).这句话是把培训班代码赋给函数.
End With
rs.Close '关闭记录
db.Close '关闭数据库.这二句顺序不可颠倒.
主程序中:
Set rs = db.OpenRecordset("数据")'打开名称为"数据"的表
.AddNew'添加加一条新记录
![q1] = fm1'为新记录q1字段赋值
![q2] = fm2
![Class] = pxbdm '为class赋值,就是从函数中得到的值
.Update '以上的赋值只是在缓存中,这句话是把数据写到硬盘上.
没有全部注释,想必你能看懂.