vb ado急!
下面的代码为什么执行不出来啊!
Private Function LF_SourceSet() As String
Dim ldatFrom As Date
Dim ldatTo As Date
Dim lstrpart As String
Dim lstrReturn As String
Dim IcmmTemp As New ADODB.Command
lstrReturn = ""
ldatFrom = IIf(IsNull(Me.txtFrom), "1/1/1930", Me.txtFrom)
ldatTo = IIf(IsNull(Me.txtTo), "31/12/2999", Me.txtTo)
Set IcmmTemp.ActiveConnection = CurrentProject.Connection
On Error Resume Next
IcmmTemp.CommandText = "INSERT INTO tbltmpfromdate ([Part #],[Qty] ) " & _
"SELECT [Part #],-[[Quantity]]" & _
"FROM tblStockHistory" & _
"WHERE [Process Date] > ldatFrom" & _
"UNION ALL" & _
"SELECT [Part #],[Total On-Hand]" & _
"FROM tblMasterPart"
IcmmTemp.Execute
IcmmTemp.CommandText = "INSERT INTO tbltmptodate ([Part #],[Qty] ) " & _
"SELECT [Part #],-[[Quantity]]" & _
"FROM tblStockHistory" & _
"WHERE [Process Date] > ldatTo" & _
"UNION ALL" & _
"SELECT [Part #],[Total On-Hand]" & _
"FROM tblMasterPart"
IcmmTemp.Execute
IcmmTemp.CommandText = "INSERT INTO tbltmpchange ([Increase],[Descrease],[Part #] ) " & _
"SELECT [Part #],sum(IIF(tblStockHistory.[Quantity] >= 0,tblStockHistory.[Quantity],0))" & _
",sum(IIF(tblStockHistory.[Quantity] < 0,-tblStockHistory.[Quantity],0))" & _
"FROM tblStockHistory" & _
"WHERE [Process Date] BETWEEN #" & _
Format(ldatFrom, "mm/dd/yyyy") & "# And #" & _
Format(ldatTo, "mm/dd/yyyy") & "#" & _
"GROUP BY [Part #]"
IcmmTemp.Execute
IcmmTemp.CommandText = "INSERT INTO tbltmponhand([Part #],[Qty] ) " & _
"SELECT [Part #],sum(Qty)" & _
"FROM tbltmptodate" & _
"GROUP BY [Part #]"
IcmmTemp.Execute
IcmmTemp.CommandText = "INSERT INTO tbltmplastonhand ([Part #],[Qty] ) " & _
"SELECT [Part #],sum(Qty)" & _
"FROM tbltmpfromdate" & _
"GROUP BY [Part #]"
IcmmTemp.Execute
Set IcmmTemp = Nothing
On Error GoTo 0