666.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 21 行

HTML
21
字号
<html>
  <head>
    <title>Stored Procedure传回Resultset..</title>
  </head>
  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
    <center>
      <h1>Stored Procedure传回Resultset..</h1>
    </center>

<HR><p>
Posted by <a href="mailto:joetai@dns.ch.fju.edu.tw">Sandra</a> on September 25, 1997 at 10:19:31:<p>
您好!!<br>  <br>  想请教使用vb6 RDO + SQL Server's Stored Procedure的问题,<br>不知道如何开启Stored Procedure传回来的Resultset...<p>[Stored Procedure程式码]<br>  Create PROCEDURE point1 <br>  @mem_no varchar(10)<br>  AS<br>    Select member_no,left_brother,right_brother from member<br>	   where member_no=@mem_no<br>    return (0)<br>  GO<p>[VB程式码]<br>  Set Ev1=rdoEnviroments(0)<br>  Ev1.CursorDriver=rdUseClientBatch     <br>    '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^<br>    '如果把这一行去掉会出现:==><br>    'Cannot Open a cursor on a stored procedure that has <br>    'anything other than a single select statement in it.<br>  Set Cn1=Ev1.OpenConnection("",rdDriveNoPrompt,False,pswd)<br>  Set Query1=Cn1.CreateQuery("","{call point1(?)}")<br>  Query1(0)=txtQmemberNo.Text<br>  Set Rs1=Query1.OpenResultset(rdOpenForwardOnly,rdCursorReadOnly)<p>  Debug.Pring "Rs1.RowCount=" & Rs1.RowCount<br>  txtLeftBrother.Caption=Rs1("left_brother")<br>  txtRightBrother.Caption=Rs1("right_brother")<p><br>这样结果是可以出来了(txtLeftBrother.caption和txtRightBrother.Caption有内容)<br>可是印出来的 RowCount 都是=-1 ; <br>我想把结果输出到MSFlexGrid上, 所以必须知道共传回几笔资料..<br>而且就算有传回资料, RowCount也是=-1 而不是1.<br>无法判断是否传回资料.<p>不知程式那里有错 为何出现这种状况..
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 666-->
</ul><!--end: 666-->
<br><HR><p>

</body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?