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 + -
显示快捷键?