label1.caption = now Set cmdinsert = New Command With cmdinsert .ActiveConnection = cn .CommandText = "INSERT INTO wa_psn ( 姓名, 月份 ) SELECT gzdata.cPsn_Name, gzdata.iMonth FROM gzdata" timer1.enable = true .Execute End With tiner1.enable = false MsgBox "所有人员已全部引入"Private Sub Timer1_Timer() label1.caption = now End Sub
Set cmdinsert = New Command
With cmdinsert
.ActiveConnection = cn
.CommandText = "INSERT INTO wa_psn ( 姓名, 月份 ) SELECT gzdata.cPsn_Name, gzdata.iMonth FROM gzdata"
timer1.enable = true
.Execute
End With
tiner1.enable = false
MsgBox "所有人员已全部引入"Private Sub Timer1_Timer()
label1.caption = now
End Sub