456.html

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

HTML
29 行
字号 
<html>
  <head>
    <title>RDO Problem (RowCount不正确)->vb6.0 EnterPrise</title>
  </head>
  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
    <center>
      <h1>RDO Problem (RowCount不正确)->vb6.0 EnterPrise</h1>
    </center>

<HR><p>
Posted by <a href="mailto:lisac@mail.deuchem.com.tw">Lisa Chang</a> on August 21, 1997 at 00:52:55:<p>
Database：SQL-Server V6.50<br>连结Database的方式：RDO2.0 DSN-LESS <br>注： Vb己经有做Visual Studio 97 Service Pack Upgrades<br>问题描述：<br>将RDO Resultset的资料删空，再新增资料, RowCount会不正确。<br>相关程式码如下：<br>Dim cn As rdoConnection<br>Dim en As rdoEnvironment, conn As String<br>Dim rs1 As rdoResultset<br>Private Sub Form_Load()<br>    Set en = rdoEnvironments(0)<br>    en.CursorDriver = rdUseServer<br>    conn = "UID=ad;PWD=d2d;DATABASE=db1;SERVER=DdfdCdEc;DRIVER={SQL SERVER};DSN='';"<br>    Set cn = en.OpenConnection(dsname:="", Prompt:=rdDriverNoPrompt, Connect:=conn)<br>    cn.Execute "delete test3 where t1=5"<br>    Set rs1 = cn.OpenResultset("select * from test3 where t1=5", rdOpenKeyset, rdConcurLock)<br>    MsgBox rs1.RowCount '0-正常<br>    rs1.AddNew<br>    rs1("t1") = 5<br>    rs1("t2") = 9<br>    rs1.Update<br>    rs1.Bookmark = rs1.LastModified<br>    MsgBox rs1.RowCount '1-正常<br>    rs1.Delete<br>    MsgBox rs1.RowCount '0-正常<br>    rs1.AddNew<br>    rs1("t1") = 5<br>    rs1("t2") = 9<br>    rs1.Update<br>     rs1.Bookmark = rs1.LastModified<br>    MsgBox rs1.RowCount '0-不正常，RowCount应为1<br>    Set rs1 = cn.OpenResultset("select * from test3 where t1=5", rdOpenKeyset, rdConcurLock)<br>    MsgBox rs1.RowCount '1-正常<br>End Sub<p>Private Sub Form_Unload(Cancel As Integer)<br>    Set rowcount_bug = Nothing<br>End Sub<p>
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 456-->
<!--top: 465--><li><a href="465.html"><b>嗯．．．</b></a> 小吴 <i>17:38:13 8/21/97</i>
(<!--responses: 465-->1)
<ul><!--insert: 465-->
<!--top: 467--><li><a href="467.html"><b>Re: 嗯．．．</b></a> Lisa Chang <i>19:45:50 8/21/97</i>
(<!--responses: 467-->0)
<ul><!--insert: 467-->
</ul><!--end: 467-->
</ul><!--end: 465-->
</ul><!--end: 456-->
<br><HR><p>

</body></html>

456.html - 源码说明

本页面展示了「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.」中的 456.html 源码文件，采用 HTML 编程语言编写，共 29 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与电子书相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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