Public Function GetRowSource(ByVal strCommandText As String, _ Optional ByVal varP1, _ Optional ByVal varP2, _ Optional ByVal varP3) '本函数作用: '将存储过程的执行结果转换为用分号分隔的值列表 '现在参数是 3 个,可以更改一下,用数组来代替 Dim Rs As New ADODB.Recordset Dim cmd As New ADODB.Command Dim prm As ADODB.Parameter Const DELIM As String = ";" With cmd .ActiveConnection = CurrentProject.Connection .CommandText = strCommandText .CommandType = adCmdStoredProc End With If Not IsMissing(varP1) Then Set prm = cmd.CreateParameter("P1", _ adInteger, adParamInput, , varP1) cmd.Parameters.Append prm End If If Not IsMissing(varP2) Then Set prm = cmd.CreateParameter("P2", _ adVarChar, adParamInput, 50, varP2) cmd.Parameters.Append prm End If If Not IsMissing(varP3) Then Set prm = cmd.CreateParameter("P3", _ adVarChar, adParamInput, 50, varP3) cmd.Parameters.Append prm End If Rs.Open cmd GetRowSource = "" If Not Rs.EOF Then GetRowSource = Rs.GetString(adClipString, , _ DELIM, DELIM) End If End Function |