12728.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 27 行

HTML
27
字号
<html>
  <head>
    <title>Re: 如何得知资料库总比数</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 如何得知资料库总比数</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:woeioa@ms6.hinet.net">小呆</a> on May 08, 1999 at 14:24:16:<p>
In Reply to: <a href="12723.html">如何得知资料库总比数</a> posted by 曹家宝 on May 08, 1999 at 09:01:52:<p>
: 如何取得资料库总比数<p>  Dim WS As Workspace<br>  Dim db As Database<br>  Dim rs As Recordset<br>  Set WS = DBEngine.Workspaces(0)<br>  Set db = WS.OpenDatabase("h:\gb\PGB-id.mdb", False, False)  '开启档案<br>  Set rs = db.OpenRecordset("gbookid")             '选择资料表使用者资料<br>      Debug.Print rs.RecordCount                   '总笔数<br>  rs.Close                                         '关毕<br>  db.Close                                         '关毕<br>  WS.Close<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 12728-->
<!--top: 12738--><li><a href="12738.html">Re:  补充说明</a> <b>纪文和</b> <i>22:23:20 5/08/99</i>
(<!--responses: 12738-->0)
<ul><!--insert: 12738-->
</ul><!--end: 12738-->
</ul><!--end: 12728-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

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