为何dbs2.Execute "INSERT INTO ..."语句不能写入查询的结果
Dim cn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
cn1.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\库文件.mdb"
rs1.Open "select * from itemB_J", cn1, adOpenStatic, adLockReadOnly
Dim 级别 As String
Dim 系列 As String
Dim 子系列 As String
Dim i As Integer
For i = 0 To rs1.RecordCount - 1
级别i = rs1.Fields("级别").Value
系列i = rs1.Fields("系列").Value
子系列i = rs1.Fields("子系列").Value
dbs2.Execute "delete * from tempB"
dbs2.Recordsets.Refresh
dbs2.Execute "INSERT INTO tempB(系列,子系列,地市,项目全称,承办审计机关,被审计单位名称,级别,check,审计组长,备注) select 系列,子系列,地市,项目全称,承办审计机关,被审计单位名称,级别,check,审计组长,备注 from base where 系列='" & 系列i & "' & 子系列='" & 子系列i & "' & 级别='" & 级别i & "' "
dbs2.Recordsets.Refresh
w = dbs2.Recordsets.Count
rs1.MoveNext
Next i
base为数据表,实际存在满足条件的纪录,但是没有结果写入到tempB,不知是哪里的错误,望高手指教。谢谢。