📄 17982.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 Fai on August 27, 1999 at 14:31:11:<p>In Reply to: <a href="17976.html">再想问一下.</a> posted by kkcheung on August 27, 1999 at 13:06:23:<p>: : : 我想在同一个mdb内,copy 其中一个资料表,存成另一个名称,可以点做.先谢谢.<p>: : Private Sub Command1_Click()<br>: : Dim db As Database<br>: : Dim rs As Recordset<p>: : Set db = DBEngine.Workspaces(0).OpenDatabase(资料库档名)<br>: : db.Execute "select * into 资料表2 from 资料表1"<br>: : End Sub<br>: : 资料表２不要事先建立!!! <p>: 如果我每日也执行db.Execute "select * into 资料表2 from 资料表1"<br>: 是否先要delete之前的资料表2.可应用什么语法?先谢谢你的回覆.<p>我就用query来做经常update的资料,看看有无用!<br> SQL = "select * into 资料表2 from 资料表1"<br> Set Db = OpenDatabase(varDBName)<br> For Each QDLoop In Db.QueryDefs<br> If QDLoop.Name = varQueryName Then<br> Db.QueryDefs.Delete QDLoop.Name<br> End If<br> Next QDLoop<br> Set QD = Db.CreateQueryDef(varDBName, SQL)<br> QD.Close<br> Db.Close<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17982--></ul><!--end: 17982--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -