用activex数据对象执行一个参数化得sql server存储过程（分不够，可再加）

Question

////Command can't receive Recordset,OutputParameters,ReturnParameter
from a Stored Procedure at the same time ,Then you can modi the stored procedure to:  CREATE PROCEDURE AuthorTitleByRoyalty @percentage int
  AS
select  a.au_lname, a.au_fname, t.title
    from authors a
    , titleauthor ta
    , titles t 
    ,count(*) numrows 
    where a.au_id = ta.au_id
    and ta.title_id = t.title_id
    and ta.royaltyper = @percentage
    order by a.au_lname, a.au_fname//////In vb you can modi to :
        Set cmd = New Command
        cmd.ActiveConnection = mConn
        cmd.CommandText = "AuthorTitleByRoyalty"
        cmd.CommandType = adCmdStoredProc
        
        
        Set param = cmd.CreateParameter("percentage", adInteger _
        , adParamInput, , Val(lstRoyalty.Text))
        cmd.Parameters.Append param
        Debug.Print
        listWorks.ListItems.Clear
        Set rs = cmd.Execute
        Do Until rs.EOF
           Set NewItem = listWorks.ListItems.Add(, , rs("au_lname") _
           & "," & rs("au_fname"))
           NewItem.SubItems(1) = rs("Title")
           rs.MoveNext
        Loop
        rs.Close
        Set rs = Nothing
        Set NewItem = Nothing
        
 ////if you have some questions ,please contact me here       

Answer 1

where is  questions ??

Answer 2

运行时，点机listbox控件里的值，出现属性无效的错误
具体就是这一句
NewItem.SubItems(1) = rs("Title")
但存储过程里明显有
select a.au_lname, a.au_fname, t.title
    from authors a
    , titleauthor ta
    , titles t
    where a.au_id = ta.au_id
    and ta.title_id = t.title_id
    and ta.royaltyper = @percentage
    order by a.au_lname, a.au_fname

Answer 3

Command can't receive Recordset,OutputParameters,ReturnParameter
at the same time
rs("Title")出现属性无效的错误,because there  is no Recordset at all

Answer 4

一個很典型的問題:
修改你的SP為如下:
CREATE PROCEDURE AuthorTitleByRoyalty @percentage int, @numrows int OUTPUT
AS
SET NOCOUNT ON
select a.au_lname, a.au_fname, t.title
    from authors a
    , titleauthor ta
    , titles t
    where a.au_id = ta.au_id
    and ta.title_id = t.title_id
    and ta.royaltyper = @percentage
    order by a.au_lname, a.au_fname    SELECT @numrows = @@ROWCOUNT    if @numrows = 0
        return 0
    else return 1
SET NOCOUNT OFF
GO
--保証調試OK.

Answer 5

奇怪﹐我只是改了If cmd("Return") = 1  Then
加了﹐listWork.Add (,,"Name")
listWork.Add (,,"Text")
就OK了。 你 再試試。

Answer 6

把多余的訊息踢掉，只把SELECT的內容返回到客戶端