看這個存儲過程哪有問題？

Question

 strRstJ = " select WADOCO,WADCTO,WAWR03,WADCG,WASRST,sum(WAUORG)/100 as WAUORG,sum(WASOQS)/100 as WASOQS ,sum(WASOCN)/100 as WASOCN  " & _
             " from OW_PROD.PRODDTA.F4801 where  " & Right(Trim(strabcd), Len(Trim(strabcd)) - 4) & " group by WADOCO,WADCTO,WAWR03,WADCG,WASRST order by WADOCO,WADCTO,WAWR03"
  
Set rsTemp = GetRst0(strRstJ)
 If rsTemp.RecordCount > 0 Then
    rsTemp.MoveFirst
 Do While Not rsTemp.EOF
    strRstJ = " insert into ##LLPBabcd (WADOCO,WADCTO,WAWR03,WADCG,WASRST,WAUORG01,WASOQS01,WASOCN01) values  ('" & Trim(rsTemp.Fields("WADOCO").Value) & "','" & Trim(rsTemp.Fields("WADCTO").Value) & "','" & Trim(rsTemp.Fields("WAWR03").Value) & "','" & Trim(rsTemp.Fields("WADCG").Value) & "'," & Trim(rsTemp.Fields("WASRST").Value) & ",'" & Trim(rsTemp.Fields("WAUORG").Value) & "','" & Trim(rsTemp.Fields("WASOQS").Value) & "','" & Trim(rsTemp.Fields("WASOCN").Value) & "') "
    rsTemp.MoveNext
 Loop
End If第一句sql查詢JDE裡面的資料，rsTemp.RecordCount=229條記錄，為什麽循環插入后，本地數據庫臨時表##LLPBabcd一條記錄都沒，
我拿sql在數據庫單步 insert into ##LLPBabcd (WADOCO,WADCTO,WAWR03,WADCG,WASRST,WAUORG01,WASOQS01,WASOCN01) values('111938','WO','100','105130',95,'2300','2300','0') 又可以插入到臨時表內
救急！！！！！！！
 

Answer 1

insert into 没执行呀
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/

Answer 2

strRstJ = " select WADOCO,WADCTO,WAWR03,WADCG,WASRST,sum(WAUORG)/100 as WAUORG,sum(WASOQS)/100 as WASOQS ,sum(WASOCN)/100 as WASOCN  " & _ 
            " from OW_PROD.PRODDTA.F4801 where  " & Right(Trim(strabcd), Len(Trim(strabcd)) - 4) & " group by WADOCO,WADCTO,WAWR03,WADCG,WASRST order by WADOCO,WADCTO,WAWR03" 
  
Set rsTemp = GetRst0(strRstJ) 
If rsTemp.RecordCount > 0 Then 
    rsTemp.MoveFirst 
Do While Not rsTemp.EOF 
    strRstJ = " insert into ##LLPBabcd (WADOCO,WADCTO,WAWR03,WADCG,WASRST,WAUORG01,WASOQS01,WASOCN01) values  ('" & Trim(rsTemp.Fields("WADOCO").Value) & "','" & Trim(rsTemp.Fields("WADCTO").Value) & "','" & Trim(rsTemp.Fields("WAWR03").Value) & "','" & Trim(rsTemp.Fields("WADCG").Value) & "'," & Trim(rsTemp.Fields("WASRST").Value) & ",'" & Trim(rsTemp.Fields("WAUORG").Value) & "','" & Trim(rsTemp.Fields("WASOQS").Value) & "','" & Trim(rsTemp.Fields("WASOCN").Value) & "') " 
    conn.Execute strRstJ
    rsTemp.MoveNext 
Loop 
End If 

Answer 3

4樓正解！全部插入到本地臨時表里來了，不過conn.Execute strRstJ我改成cnn.Execute strRstJ。
謝謝！