INSERT INTO Table1
(CardNo)
SELECT CardNo
FROM Table2
然后在依次编辑Table1中的Roll_Date的值,赋值为系统时间
Dim Cnxn As New ADODB.connection
Dim Crst As New ADODB.Recordset
dim strCnxn as string
AccessFileName as string '数据库文件路径
strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AccessFileName & ";Persist Security Info=False"
Set Cnxn = New ADODB.connection
Cnxn.Open strCnxn
Set Crst = New ADODB.Recordset
Set Crst.ActiveConnection = Cnxn
Crst.Source = "Select * From Table1"
Crst.Open , , adOpenStatic, adLockPessimistic
do while not(Crst.Eof)
Crst!Roll_Date=Now
Crst.Update
Crst.MoveNext
loop
Crst.Close
Cnxn.Close
Set Crst = Nothing
Set Cnxn = Nothing