VB+ACCESS数据自动更新求助 - 编程论坛

#2

ZHRXJR2018-12-22 14:17

程序代码：

Private Sub Command1_Click()
If IsDate(Text1.Text) = False Then
    MsgBox "输入的数据不是日期数据！"
    Exit Sub
End If
Dim RSNX As String, RSSJ As Date
RSSJ = CDate(Text1.Text)    '如果是数据表中的数据，连接数据库、数据表读取入司时间到变量 RSSJ 即可
RSNX = Format((Year(Date) - Year(RSSJ) + (Month(Date) - Month(RSSJ)) / 12 + (Day(Date) - Day(RSSJ)) / 365), "0.00") & "年"
Text2.Text = RSNX    '如果要存储到入司年限字段，存储 RSNX 变量到入司年限字段就可以，不需要再啰嗦了吧。
End Sub

很简单的。

#3

wmf20142018-12-22 14:35

一句sql就可以解决的：SELECT *,datediff("d",入司时间,now)/365 & '年' AS 入司年限 FROM 基础档案表

#4

ZHRXJR2018-12-23 11:18

“DateDiff("d",入司时间,Date)/365 & "年"” 与 “Format((Year(Date) - Year(RSSJ) + (Month(Date) - Month(RSSJ)) / 12 + (Day(Date) - Day(RSSJ)) / 365), "0.00") & "年"” 好像3楼 wmf2014 的更简单一点。

根据楼主的要求，是不是应该这样：

程序代码：

Call SJK(cnn)    '调用数据库连接过程，这个过程略
Rs.Open "Select * Froim 基础档案表", cnn, 3, 2   '打开记录集
    Do While Not Rs.EOF   '循环整个数据表的记录
        Rs!入司年限 = Format((DateDiff("d", Rs!入司时间, Date) / 365), "0.00") & "年"    '设置入司年限的值
        Rs.Update    '更新记录
    Rs.MoveNext   '指针指向下一条记录
    Loop   '当 Rs.EOF = True 时退出循环
Rs.Close
cnn.Close

cnn 与 Rs 的声明就省略了，这样就修改了整个数据表的入司年限的所有记录，使其与入司时间相对应。

[此贴子已经被作者于2018-12-23 11:22编辑过]

#5

lc1868797592018-12-24 16:10

回复 3楼 wmf2014

感谢感谢，根据提供的代码测试成功

#6

lc1868797592018-12-24 16:12

回复 4楼 ZHRXJR

非常感谢，根据提供的代码结合3楼 wmf2014的，测试完美通过