功夫终于没有白费

其实这几天一直想把VBA程序里的那段代码优化一下，因为那段代码是写在程序里面执行的，效率很低，改进的话就写成一个储存过程算了。不过，由于是多条件查询，所以，想来想去，今天最终还是在储存过程中执行动态sql语句，这样做的好处就是可以传递一段条件语句，也就是传一个参数就行了，不用一个一个参数的传，还得加好多判断。第一次写这样的储存过程，还真的有点不习惯，还花了不少时间去调试。不过，还好，总算调试通过了。下面我把储存过程的代码和调用实例放上来，如果大家觉得还有什么好的建议的话，我们可以一起讨论一下。

/*
先创建有两个输入参数，一个输出参数的储存过程
*/
create procedure 总部送货单数量求和
@条件 nvarchar(1000),
@销售方式 nvarchar(100),
@总数 int output
as
declare @sql nvarchar(4000)
IF (isnull(@条件,'s')) <>'s'
begin
set @sql="SELECT sum(isnull(总部送货单明细.数量,0)) FROM 总部送货单明细 INNER JOIN 总店送货单 ON 总店送货单.送货单号 = 总部送货单明细.送货单号 INNER JOIN 产品资料表 ON 产品资料表.产品编号 = 总部送货单明细.产品名称 INNER JOIN hjg销售方式 ON hjg销售方式.销售方式编号 = 总部送货单明细.销售方式 LEFT OUTER JOIN 回桶明细表 ON 总部送货单明细.送货单号 = 回桶明细表.送货单号 AND 总部送货单明细.产品名称 = 回桶明细表.产品名称 LEFT OUTER JOIN 回库明细表 ON 回库明细表.送货单号 = 总部送货单明细.送货单号 AND 回库明细表.产品名称 = 总部送货单明细.产品名称 WHERE 总店送货单.落单日期 > (SELECT MAX(盘点日期) FROM dbo.盘点主表) "+ @条件 +" and hjg销售方式.销售方式 ='"+@销售方式 +"'"
EXEC @总数=sp_executesql @sql OUTPUT --执行，获得返回值
end

/*
先写一个函数，方便多次调用。

*/
Function 查询总数(sql_wh As String, fs As String) As String

Dim comm As New ADODB.Command
Set comm = New ADODB.Command
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset

Dim prmByRoyalty, prmByRoyalty2, prmByRoyalty3 As ADODB.Parameter

comm.CommandText = "总部送货单数量求和"
comm.CommandType = adCmdStoredProc
comm.ActiveConnection = CurrentProject.Connection

Set prmByRoyalty = comm.CreateParameter("条件", adVarChar, adParamInput, 400)
Set prmByRoyalty2 = comm.CreateParameter("销售方式", adVarChar, adParamInput, 400)
Set prmByRoyalty3 = comm.CreateParameter("总数", adInteger, adParamReturnValue, 4)

comm.Parameters.Append prmByRoyalty
comm.Parameters.Append prmByRoyalty2
comm.Parameters.Append prmByRoyalty3
prmByRoyalty.Value = sql_wh
prmByRoyalty2.Value = fs

Set comm.ActiveConnection = CurrentProject.Connection
Screen.MousePointer = 11
rs.Open comm, , 1, 1
Screen.MousePointer = 1
查询总数 = Nz(rs.Fields.Item(0).Value, 0) '返回值
End Function

/*
在程序中调用函数

*/

sql_wh=.... /*略*/

Me.调出 = 查询总数(sql_wh, "调出")

PS:

记录一下今天的日子，2007年2月9号，想不到这么快就有30天了，幸福的时光总是过得那么快！