dim db as database set db=opendatabase(FileName) '打开数据库 db.Execute "Select * Into NewName from wdjl" 以上方法将完成复制一个表(包括数据),必须引用DAO 删除数据的方法为: db.Execute "Delete * from NewName"
假如用:Select * Into wdjl1 from wdjl 无法生成默认值。 则查看Access的系统表,分析其系统表的结构来生成新的表。 系统表默认情况下是隐藏的,可以在菜单:工具-选项-视图-“隐藏对象”上打勾。
上面问题的引伸,要从A.mdb中复制表Temp到B.mdb中,如何?
从A.mdb中复制到B.mdb中的方法差不多: set db=opendatabase("A.mdb") db.Execute "Select * Into NewName IN "B.mdb" from wdjl" 至于IN的具体用法可看一下帮助!我用 Select * Into NewName from wdjl 方法试了下,应该可以复制出一模一样的表来, 默认的0值在生成的新表中同样存在!
set db=opendatabase(FileName) '打开数据库
db.Execute "Select * Into NewName from wdjl"
以上方法将完成复制一个表(包括数据),必须引用DAO
删除数据的方法为:
db.Execute "Delete * from NewName"
按照Microsoft的示例,复制表的实现分为两步:
1、复制表结构,生成的是一个结构与源表一样,但无数据的空表;
2、复制数据,复制数据的实现是读取源表的记录,再在已有的(空)表中添加记录。
cn.execute "Select * Into wdjl1 from wdjl"
无法生成默认值。
则查看Access的系统表,分析其系统表的结构来生成新的表。
系统表默认情况下是隐藏的,可以在菜单:工具-选项-视图-“隐藏对象”上打勾。
set db=opendatabase("A.mdb")
db.Execute "Select * Into NewName IN "B.mdb" from wdjl"
至于IN的具体用法可看一下帮助!我用 Select * Into NewName from wdjl 方法试了下,应该可以复制出一模一样的表来,
默认的0值在生成的新表中同样存在!