⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 vb6error.htm

📁 Active Server Pages 网页制作教程看之前请传到ASP空间。或者本地用iis。或安装pws内有说明
💻 HTM
📖 第 1 页 / 共 2 页
字号:
🔍
12 
        <p>原书内容:</p> 
        <blockquote> 
            <pre><font size="4">Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
    If Adodc1.Recordset(&quot;涨跌&quot;) = 0 Then
        Adodc1.Recordset.Delete
        DoEvents
    Else
        Adodc1.Recordset.MoveNext
    End If
Wend</font></pre> 
        </blockquote> 
        <p>更正后内容:</p> 
        <blockquote> 
            <pre><font size="4">承续上一错误的更正说明，程序应该改成：</font></pre> 
            <pre><font size="4">Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
</font><font color="#0000FF" size="4">    If Adodc1.Recordset(&quot;涨跌&quot;) = 0 Then
        Adodc1.Recordset.Delete        
    End If
    Adodc1.Recordset.MoveNext
</font><font size="4">Wend</font></pre> 
        </blockquote> 
    </blockquote> 
</blockquote> 
 
<hr> 
 
<h3><font color="#800000">更正日期：99/04/16</font></h3> 
 
<hr> 
 
<blockquote> 
    <p><font color="#0000FF">p.43 
    「自我练习」上一行程序</font></p> 
    <blockquote> 
        <p>原书内容:</p> 
    </blockquote> 
    <blockquote> 
        <blockquote> 
            <pre><font color="#0000FF">Data1.</font>Recordset.Fields(&quot;栏位名称&quot;).Value</pre> 
        </blockquote> 
    </blockquote> 
    <blockquote> 
        <p>更正后内容:</p> 
    </blockquote> 
    <blockquote> 
        <blockquote> 
            <pre><font color="#FF0000">Adodc1.</font>Recordset.Fields(&quot;栏位名称&quot;).Value</pre> 
            <p>  </p> 
        </blockquote> 
    </blockquote> 
    <p><font color="#0000FF">p.210 表格</font></p> 
    <blockquote> 
        <p>原书内容:</p> 
        <blockquote> 
            <table border="1" cellpadding="4" cellspacing="0"> 
                <tr> 
                    <td bgcolor="#FFFF00">AbsolutePosition的属性值</td> 
                    <td bgcolor="#FFFF00">意 义</td> 
                </tr> 
                <tr> 
                    <td><font color="#0000FF">adPosEOF</font></td> 
                    <td>目前数据记录移过了第一笔</td> 
                </tr> 
                <tr> 
                    <td><font color="#0000FF">adPosBOF</font></td> 
                    <td>目前数据记录移过了最后一笔</td> 
                </tr> 
                <tr> 
                    <td>adPosUnknown</td> 
                    <td>无法判定目前数据记录的位置， 
                    对于一个空的Recordset对象而言， 
                    目前数据记录的绝对位置就等于此一属性值。</td> 
                </tr> 
            </table> 
        </blockquote> 
        <p>更正后内容:</p> 
        <blockquote> 
            <table border="1" cellpadding="4" cellspacing="0"> 
                <tr> 
                    <td bgcolor="#FFFF00">AbsolutePosition的属性值</td> 
                    <td bgcolor="#FFFF00">意 义</td> 
                </tr> 
                <tr> 
                    <td><font color="#FF0000">adPosBOF</font></td> 
                    <td>目前数据记录移过了第一笔</td> 
                </tr> 
                <tr> 
                    <td><font color="#FF0000">adPosEOF</font></td> 
                    <td>目前数据记录移过了最后一笔</td> 
                </tr> 
                <tr> 
                    <td>adPosUnknown</td> 
                    <td>无法判定目前数据记录的位置， 
                    对于一个空的Recordset对象而言， 
                    目前数据记录的绝对位置就等于此一属性值。</td> 
                </tr> 
            </table> 
        </blockquote> 
    </blockquote> 
</blockquote> 
 
<blockquote> 
    <p><font color="#0000FF">p.206 最下面两行程序</font></p> 
    <blockquote> 
        <p>原书内容:</p> 
        <blockquote> 
            <p>rs.CursorLocation = <font color="#0000FF">adUseClient</font><br> 
            rs.Open 数据表或SQL指令, conn, <font 
            color="#0000FF">adOpenDynamic, adLockOptimistic</font></p> 
        </blockquote> 
        <p>更正后内容:</p> 
        <blockquote> 
            <p>rs.CursorLocation = <font color="#0000FF">adUseClient</font><br> 
            rs.Open 数据表或SQL指令, conn, <font 
            color="#FF0000">adOpenStatic, adLockBatchOptimistic</font></p> 
        </blockquote> 
        <p><font color="#FF0000" size="4"><strong>特别说明：</strong></font></p> 
        <blockquote> 
            <p>原书内容执行之后并不会产生错误， 
            而且所得到的 Recordset 也和书本的说明一样， 
            具有完整的 Recordset 功能， 
            但原书内容却很容易让人产生误会， 
            主要原因是我们一旦<font color="#0000FF"><strong>将 
            CursorLocation 属性指定成 adUseClient 之后</strong></font>， 
            Open 方法的 CursorType 参数(参数三) 
            不管如何指定， Recordset 对象<font 
            color="#0000FF"><strong>最后的 CursorType 
            都会被 ADO 转变成 adOpenStatic</strong></font>， 
            而 LockType 参数(参数四) 不管被指定成 
            adLockOptimistic 、 adLockPessimistic 、或 
            adLockBatchOptimistic， <font color="#0000FF"><strong>LockType 
            都会被转换成 adLockBatchOptimistic</strong></font>。所以在此将 
            Open 语句改成 </p> 
            <blockquote> 
                <p>rs.Open 数据表或SQL指令, conn, <font 
                color="#FF0000">adOpenStatic, 
                adLockBatchOptimistic</font> </p> 
            </blockquote> 
            <p>这样子方才不会引起误会。</p> 
        </blockquote> 
    </blockquote> 
    <p><font color="#0000FF">p.389 表格</font></p> 
    <blockquote> 
        <p>原书内容:</p> 
        <blockquote> 
            <table border="1" cellpadding="4" cellspacing="0"> 
                <tr> 
                    <td bgcolor="#FFFF00">RptTextBox</td> 
                    <td bgcolor="#FFFF00"><font color="#0000FF">属性</font></td> 
                    <td bgcolor="#FFFF00"><font color="#0000FF">属性值</font></td> 
                </tr> 
                <tr> 
                    <td>股票代号</td> 
                    <td>Command1</td> 
                    <td>股票代号</td> 
                </tr> 
                <tr> 
                    <td>以下略</td> 
                    <td>  </td> 
                    <td>  </td> 
                </tr> 
                <tr> 
                    <td>...</td> 
                    <td>  </td> 
                    <td>  </td> 
                </tr> 
            </table> 
        </blockquote> 
        <p>更正后内容:</p> 
        <blockquote> 
            <table border="1" cellpadding="4" cellspacing="0"> 
                <tr> 
                    <td bgcolor="#FFFF00">RptTextBox</td> 
                    <td bgcolor="#FFFF00"><font color="#FF0000">DataMember 
                    属性</font></td> 
                    <td bgcolor="#FFFF00"><font color="#FF0000">DataField属性</font></td> 
                </tr> 
                <tr> 
                    <td>股票代号</td> 
                    <td>Command1</td> 
                    <td>股票代号</td> 
                </tr> 
                <tr> 
                    <td>以下略</td> 
                    <td>  </td> 
                    <td>  </td> 
                </tr> 
                <tr> 
                    <td>...</td> 
                    <td>  </td> 
                    <td>  </td> 
                </tr> 
            </table> 
        </blockquote> 
    </blockquote> 
</blockquote> 
 
<blockquote> 
    <p><font color="#0000FF">p.505 图-7 底下的小图</font></p> 
    <blockquote> 
        <p>原书内容：</p> 
        <blockquote> 
            <p><img src="p505-0.gif" width="313" height="74"></p> 
        </blockquote> 
        <p>更正后内容：</p> 
        <blockquote> 
            <p><img src="p505.gif" width="313" height="74"></p> 
        </blockquote> 
    </blockquote> 
    <p><font color="#0000FF">p.512 最 下面</font></p> 
    <blockquote> 
        <p>原书内容：</p> 
        <blockquote> 
            <p>就程序部分，则保留cmdOpenDB_Click事件程序(「打开数据库」<br> 
            命令钮)、<font color="#0000FF">cmdOpenDB_Click</font>事件程序(「停止下载」命令钮)、</p> 
        </blockquote> 
        <p>更正后内容：</p> 
        <blockquote> 
            <p>就程序部分，则保留cmdOpenDB_Click事件程序(「打开数据库」<br> 
            命令钮)、<font color="#FF0000">cmdStop_Click</font>事件程序(「停止下载」命令钮)、</p> 
        </blockquote> 
    </blockquote> 
</blockquote> 
 
<hr> 
 
<blockquote> 
    <p><font color="#0000FF">p.45</font></p> 
    <blockquote> 
        <p>原书内容:</p> 
        <blockquote> 
            <pre>(3):没有目前数据记录
(10):此一存取格式的栏位名称不能接受变量</pre> 
        </blockquote> 
        <p>更正后内容:</p> 
        <blockquote> 
            <pre>(3):没有目前数据记录         <font
color="#800000"> (7) 参阅 p.43</font>
(10):此一存取格式的栏位名称不能接受变量</pre> 
        </blockquote> 
    </blockquote> 
</blockquote> 
 
<hr> 
</body> 
</html>
12

⌨️ 快捷键说明

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