📄 11865.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<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 andyLin on April 11, 1999 at 23:49:53:<p>
In Reply to: <a href="11864.html">资料库查询存档的问题...依然解决不了</a> posted by 林文芳 on April 11, 1999 at 22:33:31:<p>
: Dim rs As Recordset<br>: Dim db As Database<p>: Set db = DBEngine.Workspaces(0).OpenDatabase("f:\test.mdb")<br>: Set rs = db.OpenRecordset("测试")<br>: Set Data1.Recordset = rs<br>: Set rs = db.OpenRecordset("select * into [查存] from [测试] where [AAA] > 5")<br>: Set Data1.Recordset = rs<p>: 执行后居然会出现"无效的操作"的错误讯息...<br>: 但若是改成<br>: Set rs = db.OpenRecordset("select * from [测试] where [AAA] > 5")<br>: 就可以正确执行...<br>: 但我就是想要将查询后的资料另存在[查存]这个Table中<br>: 语法也没有用错ㄚ...请各位帮帮忙...救救我吧!!!<p>应该是:<br>: db.execute("select * from [测试] where [AAA] > 5")<br>然后再:<br>Set rs = db.OpenRecordset("select * from [测试] where [AAA] > 5")<br>试试看吧!<p><br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 11865-->
</ul><!--end: 11865-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -