📄 db980315.gb_

📁 ASPWeb数据库范例总览

💻 GB_

字号:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
   <TITLE>资料库： 如何快速地计算资料录的总笔数？</TITLE>
   <META NAME="Author" CONTENT="KJ Wang">
   <META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (Win95; I) [Netscape]">
</HEAD>
<BODY TEXT="#202020" BGCOLOR="#FFFFFF" LINK="#FF0000" VLINK="#0000FF" ALINK="#FF0000">

<H2 ALIGN=CENTER><A HREF="vbdb.htm">VB5 与资料库程式设计</A></H2>

<CENTER><P><B><FONT SIZE=+1>补充教材</FONT></B></P></CENTER>

<H3 ALIGN=CENTER>如何快速地计算资料录的总笔数？ (98/03/15) 
<HR WIDTH="100%"></H3>

<DIV ALIGN=right><ADDRESS><FONT COLOR="#008000">参阅章节：第 10-1 节, p272。</FONT></ADDRESS></DIV>

<CENTER><TABLE CELLSPACING=0 WIDTH="95%" >
<TR>
<TD>由於 RecordCount 所反应的资料录笔数未必等於真正的资料录总笔数， 所以
p.273 采用 MoveLast 方法强迫载入最後一笔资料录， 而使得 RecordCount 能够真正地反应资料录的总笔数，
但如果资料录的笔数相当多时， 假设是 10 万笔以上， 则 MoveLast 将會花去不少时间，
有没有什麼方法可以快速地计算资料录的总笔数？ 
<P>
<HR WIDTH="100%"></P>

<P>其实答案就在 11-1 节的统计 Select， 参阅 p.310:</P>

<UL>
<P><FONT COLOR="#FF0000">Select Count(*) As [笔数] From [Table1]</FONT></P>
</UL>

<P>正是计算 Table1 总笔数的方法， 以本书 mdb 目录 stock01.mdb 的 &quot;历史行情表&quot;
为例， 含有 12 万笔资料录， 则利用以上 Select 指令计算总笔数所花的时间尚且不及
1 秒。 以下是假设 db 为开启 stock01.mdb 之後的 Database 物件， 而程式范例如下：</P>

<UL>
<P><FONT COLOR="#0000FF">Dim rs As Recordset <BR>
Set rs = db.OpenRecordset(&quot;Select Count(*) As [笔数] From [历史行情表]&quot;)
<BR>
Print rs(&quot;笔数&quot;) <BR>
rs.Close </FONT></P>
</UL>
</TD>
</TR>
</TABLE></CENTER>

<P>
<HR WIDTH="100%"></P>

</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -