Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-表

删除表中的重复项

时 间:2008-01-17 15:14:38
作 者:钱玉炜   ID:16  城市:江阴
摘 要:删除表中的重复项
正 文:

包含重复项的表为infoData,表中字段为ID,企业名称,注册地址,企业负责人,经营范围,建临时表tbltemp

在窗体中建个按钮,按钮事件中写代码如下:

Private Sub Command0_Click()
Dim strsql As String
Dim strsql2 As String
Dim strsql3 As String
Dim strsql4 As String
strsql = "select distinct 企业名称,注册地址,企业负责人,经营范围 into tbltemp from InfoData"
strsql2 = "delete from InfoData "
strsql3 = "insert into InfoData select * from tbltemp"
strsql4 = "delete from tbltemp"
DoCmd.SetWarnings False
DoCmd.RunSQL strsql
DoCmd.SetWarnings False
DoCmd.RunSQL strsql2
DoCmd.SetWarnings False
DoCmd.RunSQL strsql3
DoCmd.SetWarnings False
DoCmd.RunSQL strsql4
End Sub



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助