注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Mr.Right

不顾一切的去想,于是我们有了梦想。脚踏实地的去做,于是梦想成了现实。

 
 
 

日志

 
 
关于我

人生一年又一年,只要每年都有所积累,有所成长,都有那么一次自己认为满意的花开时刻就好。即使一时不顺,也要敞开胸怀。生命的荣枯并不是简单的重复,一时的得失不是成败的尺度。花开不是荣耀,而是一个美丽的结束,花谢也不是耻辱,而是一个低调的开始。

网易考拉推荐

阿英讲Access VBA SQL 临时表的使用  

2016-07-11 22:49:06|  分类: 编程 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
Public Sub DoSQL() 
    Dim SQL_insertIntoTempTable As String 
Dim SQL_deleteOldTableData As String 
Dim SQL_insertBack As String
Dim SQL_dropTempTable As String
Dim SQL_delOldField As String
Dim SQL_addNewField As String
Dim SQL_addPrimaryKey As String
    ' 将排序数据插入临时表
    SQL_insertIntoTempTable = "SELECT * into temp FROM recordContent ORDER BY recordTime ASC" 
' 删除原表数据
  SQL_deleteOldTableData =  "drop table recordContent" ' 不能用 "delete from recordContent"
' 将临时表的数据插入原表
SQL_insertBack = "SELECT * into recordContent FROM temp ORDER BY recordTime ASC"
' 删除老的autoincrement字段
SQL_delOldField = "ALTER TABLE recordContent DROP COLUMN Id"  
' 增加新的autoincrement字段
SQL_addNewField = "alter table recordContent add Id AUTOINCREMENT" 
' 增加主键
SQL_addPrimaryKey = "ALTER TABLE recordContent ADD CONSTRAINT newPK PRIMARY KEY (Id)"
' 删除临时表
SQL_dropTempTable = "drop table temp"
DoCmd.SetWarnings False         '关闭确认提示

    DoCmd.RunSQL SQL_insertIntoTempTable 
DoCmd.RunSQL SQL_deleteOldTableData 
DoCmd.RunSQL SQL_insertBack 
    DoCmd.RunSQL SQL_delOldField 
DoCmd.RunSQL SQL_addNewField 
DoCmd.RunSQL SQL_addPrimaryKey 
    DoCmd.RunSQL SQL_dropTempTable 

DoCmd.SetWarnings True
End Sub
  评论这张
 
阅读(172)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2016