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