Access多条件查询前几条数据

最新推荐文章于 2021-09-15 18:28:20 发布
转载 最新推荐文章于 2021-09-15 18:28:20 发布 · 416 阅读 · 0 ·
CC 4.0 BY-SA版权
原文链接：http://www.cnblogs.com/Setme/archive/2012/06/05/2536575.html

本文探讨了SQL查询优化的策略，特别是在使用TOP关键字时如何避免全表扫描，通过子查询优化来提高查询效率。 
select top 5 *  FROM  News  where  NewsTypeID=3 and (NewsIsRecommend=true and NewsIsInvisible=false)  order by NewsTime desc

换成

select *  FROM (select top 5 * from News where NewsTypeID=3 and (NewsIsRecommend=true and NewsIsInvisible=false))   order by NewsTime desc

 

 

转载于:https://www.cnblogs.com/Setme/archive/2012/06/05/2536575.html

avstd9944
关注
Access操作与SQL语句：重复数据处理
fightingoyo的博客
05-05 9210
在EXCEL中处理重复数据有如下几种方法： 函数 条件格式标识 高级筛选 数据透视表 那么，在Access中，处理重复数据的方法包含重复项查询、不重复项查询以及数据去重查询，同样可以通过菜单操作、SQL语句两种方式完成。 重复项查询 1. 菜单操作法 在新建简单查询时，对话框中就有一项“查找重复项查询向导”功能，那么，就可以使用这个功能来查找数据重复项。 以“订购明细表”中重复的用户ID为例...
查询最大前几位或最小前几位 排序(简单笔记)
静下心来写代码
05-29 887
1:得出的数据
access数据库 用sql语句查询前n条记录
weixin_33810006的博客
09-23 930
2019独角兽企业重金招聘Python工程师标准>>> ...
随记 Access数据库，用SQL查询前几条数据
weixin_44084713的博客
09-15 1035
查询前5条 select TOP 5 列1,列2 from 表1
过滤access日志前5条数据
weixin_30344795的博客
07-13 190
cat /usr/local/nginx/logs/access.log|awk '{print $1}'|sort|uniq -c|sort -n -r|head -5 找不到的话可以find查找access.log 转载于:https://www.cnblogs.com/xingyunfashi/p/9306533.html
查询各科成绩前三名的记录
热门推荐
qq_21853321的博客
10-08 6万+
建表语句点击详见 – 查询各科成绩前三名的记录 SELECT a.* FROM ( SELECT st.s_id,st.s_name,c.c_id,c.c_name,sc.s_score FROM student st LEFT JOIN score sc ON sc.s_id=st.s_id INNER JOIN course c ON c.c_id=sc.c_id AND c.c_id='01' ORDER BY sc.s_score DESC LIMIT 0,3) a UNION ALL
ACCESS数据库多表关联查询例程
06-01
在Access中，我们可以通过以下几种查询类型进行多表关联： 1. 选择查询：结合来自多个表的字段，生成新的结果集。你可以根据需要指定表间的关联条件。 2. 连接查询：通过指定连接条件，将多个表的数据合并成一个...
基于ASP的简洁菜谱查询工具(带两千多条数据) v1.0.zip
07-14
1. **数据库设计**：为了存储两千多条菜谱数据，可能有一个或多个数据库表，字段可能包括菜名、材料、步骤、图片链接等。数据库连接字符串通常在ASP文件中配置，用于连接到服务器上的数据库。 2. **查询界面**：...
ACCESS数据库大数据量分页的几种方法比较及测试结果分析
07-25
2.现有 ACCESS 大数据量 10 万条数据分页的效率测试3.ACCESS 的数据承载量到底有多大？ ACCESS 数据库大数据量分页的几种方法比较及测试结果分析 在讨论 ACCESS 数据库大数据量分页的方法时，我们首先需要了解 ...
Access数据库中的数据导出到Excel中源码
06-02
可以根据需求调整查询条件，如"WHERE 条件"来过滤数据。 3. **数据读取**：使用易语言的数据库接口，执行SQL查询并获取结果集。这通常涉及到遍历记录集，将每条记录存储在内存中的数据结构。 4. **Excel操作**：...
access 多条件查询
05-24
access 多条件查询，是一个例子，需要的朋友或许有帮助
Access数据库取得前10行记录
weixin_34419326的博客
04-29 831
    今天想把《荣光医院医道会比赛策略（续）》一文中的胜率计算SQL语句优化一下，因为那个语句提取出来的数据有几千条，实际上我们需要的只有前面几条，这就涉及到一个技术问题：如何对ACCESS数据库取得某个表中符合条件的前10条数据。     这个问题解决起来很简单，到网上一搜就是一大把，譬如《各种数据库取前10行记录》这篇文章里，关于ACCESS数据库的取得前10条记录的SQL语句如下： ...
【数据查询】查看数据库A表前100条数据、查询50-100条数据
Swordsman4978
08-04 8870
【数据查询】MySQL、SQL Server 2000 查看数据库A表前100条数据、查询50-100条
各种数据库查询前几条数据
hzp666的博客
08-11 1899
1. Oracle数据库SELECT * FROM TABLENAME WHERE ROWNUM 2. Infomix数据库SELECT FIRST N * FROM TABLENAME3. DB2数据库SELECT *FROM (SELECT * ROW_NUMBER() OVER({ORDER BY COL1 DESC}) AS ROWNUM FROM TABLENAME)WHERE ROWN
MS Access SQL中的查询排名
IT与开发人员的地盘
07-10 784
介绍 通常会要求对结果进行排名或编号的查询。 在功能更强大的数据库管理系统（例如Microsoft SQL和DB2）中，通常具有执行此操作的功能。 但是，在Microsoft Access中，不存在这样的功能。 选件 在Access中，有几种解决方法： 报告中的累计金额 SELECT子句中调用的VBA代码 SELECT子句中的子查询 SELECT子句中的DCount ...
access数据库删除前几万条行数据怎么操作
最新发布
11-29
<think> 我们正在处理一个Access数据库删除大量数据的问题。根据用户需求，需要删除前几万条行数据。由于Access在处理大量数据时可能存在性能问题，我们需要考虑高效且安全的方法。 引用[3]提到了处理大量数据的分页方法，我们可以借鉴分页思想来分批删除数据，避免一次性操作大量数据导致内存溢出或性能下降。 另外，引用[1]提到要定期进行“压缩和修复”操作，以防止数据库膨胀，因此在删除大量数据后建议执行此操作。 方法思路： 1. 使用自增ID（如果有）来分批删除。假设表有一个自增ID字段（比如ID），我们可以按照ID的范围分批删除。 2. 如果没有自增ID，可以创建一个临时表，将需要保留的数据复制过去，然后删除原表并重命名临时表（对于没有自增ID的情况）。 但是，用户要求删除的是“前几万条”，通常我们理解为按照某种顺序（如插入顺序）的前几万条。在Access中，如果没有明确的排序字段，我们无法确定“前几万条”的具体顺序。因此，我们需要一个排序依据，比如一个自增字段或者时间字段。 这里假设有一个自增字段（如ID），那么我们可以按照ID的顺序删除前N万条。 步骤： 方法一：使用分批次删除（推荐） 为了避免一次性删除过多数据导致数据库锁死或性能问题，我们可以分批次删除，比如每次删除5000条。 方法二：使用SQL直接删除（适合有索引的自增字段） 如果数据量不是特别巨大（比如几十万条），且字段有索引，可以直接使用条件删除，但为了保险，也可以分批。 方法三：如果没有自增字段，则可能需要先创建一个临时表，将需要保留的数据复制过去，然后删除原表并重命名。但这种方法对于大表来说可能比较耗时，而且需要重建索引和关系（如果有外键约束则更复杂）。 根据引用[1]和[3]的提示，我们优先考虑分页删除。 具体操作： 1. 确定删除条件：假设我们要删除前30000条数据（即ID最小的30000条），并且表中有自增主键ID。 2. 分批删除：每次删除5000条，循环6次（30000/5000=6）。 我们可以使用VBA或者直接使用SQL语句循环执行。 使用SQL分批删除的示例（在Access查询中执行，但注意每次执行一条）： ```sql DELETE FROM 表名 WHERE ID IN ( SELECT TOP 5000 ID FROM 表名 WHERE ID <= (SELECT MAX(ID) FROM (SELECT TOP 30000 ID FROM 表名 ORDER BY ID)) ORDER BY ID ); ``` 但是，上面的语句可能效率不高，而且需要多次执行。我们可以用VBA来循环。 更高效的方法是：每次删除ID小于等于某个值的数据，这个值是第5000条记录的ID，然后循环直到删除的总数达到30000。 另一种思路：直接按范围删除，例如： ```sql DELETE FROM 表名 WHERE ID <= (SELECT MIN(ID) FROM (SELECT TOP 30000 ID FROM 表名 ORDER BY ID)); ``` 但是，这种方式一次性删除30000条，对于Access来说，如果数据量很大，可能会很慢甚至失败。 因此，我们采用分批次删除，每次删除一定数量（如5000条），直到达到目标数量。 使用VBA脚本（在Access中按Alt+F11打开VBA编辑器，插入模块）： ```vba Sub DeleteTopRecords() Dim totalToDelete As Long Dim batchSize As Long Dim deletedCount As Long Dim maxID As Long Dim sql As String Dim startID As Long Dim endID As Long Dim db As DAO.Database ' 设置要删除的总记录数和每批大小 totalToDelete = 30000 batchSize = 5000 deletedCount = 0 Set db = CurrentDb ' 获取最小ID（起点） startID = db.OpenRecordset("SELECT MIN(ID) AS MinID FROM 表名").Fields("MinID").Value If IsNull(startID) Then MsgBox "表中没有数据" Exit Sub End If Do While deletedCount < totalToDelete ' 计算当前批次的最大ID（即从当前最小ID开始，取batchSize条记录的最大ID） sql = "SELECT TOP " & batchSize & " ID FROM 表名 WHERE ID >= " & startID & " ORDER BY ID" Dim rs As DAO.Recordset Set rs = db.OpenRecordset(sql) ' 如果记录集为空，则退出 If rs.EOF Then Exit Do ' 移动到本批的最后一条记录，获取其ID rs.MoveLast endID = rs.Fields("ID").Value rs.Close ' 删除ID在[startID, endID]之间的记录 sql = "DELETE FROM 表名 WHERE ID BETWEEN " & startID & " AND " & endID db.Execute sql, dbFailOnError ' 更新已删除的数量 deletedCount = deletedCount + (endID - startID + 1) ' 这里假设ID连续，实际可能不连续，但删除的行数就是batchSize（除非最后一批不足） ' 或者更准确的做法是：每次删除后，查询实际删除的行数（db.RecordsAffected）并累加 ' 但这里我们按批次大小累加，最后一批可能不足，但我们的循环条件会控制总删除量 ' 设置下一批的起始ID为当前结束ID+1 startID = endID + 1 ' 如果已经达到或超过要删除的总数，退出循环 If deletedCount >= totalToDelete Then Exit Do Loop MsgBox "删除完成，共删除" & deletedCount & "条记录" Set db = Nothing End Sub ``` 注意：上述代码假设ID是连续递增的，如果不连续，实际删除的记录数可能小于batchSize（但不会大于），因此我们通过控制总删除量（deletedCount）来保证不会删除超过总数。另外，最后一批可能不足batchSize，所以用EOF判断。 但是，如果ID不连续，我们也可以使用另一种方法：每次删除固定数量的记录（使用TOP），但Access的DELETE语句不支持TOP，因此我们可以用子查询。 改进的分批删除（不依赖ID连续）： ```vba Sub DeleteTopRecordsFixedBatch() Dim totalToDelete As Long Dim batchSize As Long Dim deletedInBatch As Long Dim totalDeleted As Long Dim sql As String Dim db As DAO.Database totalToDelete = 30000 batchSize = 5000 totalDeleted = 0 Set db = CurrentDb Do While totalDeleted < totalToDelete ' 如果剩余要删除的数量小于batchSize，则按剩余数量删除 If totalToDelete - totalDeleted < batchSize Then batchSize = totalToDelete - totalDeleted End If ' 使用子查询删除前batchSize条记录（按ID排序，即最小的batchSize个ID） sql = "DELETE FROM 表名 WHERE ID IN (SELECT TOP " & batchSize & " ID FROM 表名 ORDER BY ID)" db.Execute sql, dbFailOnError ' 获取实际删除的行数 deletedInBatch = db.RecordsAffected totalDeleted = totalDeleted + deletedInBatch ' 如果删除的数量为0，说明没有可删除的了 If deletedInBatch = 0 Then Exit Do Loop MsgBox "删除完成，共删除" & totalDeleted & "条记录" Set db = Nothing End Sub ``` 这个方法更直接，每次删除最小的batchSize条记录。但要注意，如果表很大，子查询可能会较慢。另外，每次删除后，表的数据会减少，所以每次删除的都是当前最小的batchSize条。 重要：在删除前务必备份数据库！ 删除后，根据引用[1]的建议，执行“压缩和修复数据库”操作（在Access中：文件->信息->压缩和修复数据库），以回收空间。 如果没有自增ID，则可能需要先添加一个自增字段，然后再进行删除操作。或者，使用其他有顺序的字段（如时间字段）来排序删除。如果没有这样的字段，那么“前几万条”就没有明确的定义，需要用户明确。 如果没有排序字段，我们可以使用以下方法： 1. 创建一个新表，将原表需要保留的数据（即除了前几万条以外的数据）插入到新表。 2. 删除原表，将新表重命名为原表名。 步骤： ```sql -- 假设原表名为Table1，要删除前30000条（但因为没有顺序，这样操作没有意义，所以这里假设我们按照物理存储顺序？但Access中物理顺序并不一定等于插入顺序） -- 实际上，如果没有主键和顺序，我们无法确定前30000条。因此，这种方法不推荐。 -- 替代方案：如果我们有一个自动编号字段，即使它不连续，也可以按照自动编号来排序，因为自动编号是递增的。 ``` 所以，我们强烈建议表中有一个自增字段（自动编号）作为删除的依据。 总结步骤： 1. 备份数据库。 2. 确保有一个排序字段（如自增ID），如果没有，先添加一个自动编号字段（注意：添加字段后，原有数据会自动分配编号，但编号顺序可能与插入顺序不一致。如果数据已经存在，且需要按插入顺序删除，那么可能无法精确实现，除非有记录插入时间的字段）。 3. 使用VBA脚本分批次删除（如上所示）。 4. 删除完成后，压缩和修复数据库。 如果用户没有自增字段，并且无法添加，那么只能使用第二种方法（复制表）但需要按某个顺序复制保留的数据（跳过前N条）。例如，我们想保留第30001条之后的所有记录（假设有某种顺序）： ```sql SELECT * INTO 新表 FROM ( SELECT TOP (SELECT COUNT(*) FROM 表名) * FROM 表名 ORDER BY 某个排序字段 -- 必须有一个排序字段 ) AS T WHERE T.排序字段 NOT IN (SELECT TOP 30000 排序字段 FROM 表名 ORDER BY 排序字段) ``` 然后删除原表，将新表重命名。但这种方法会消耗较多时间和空间。 因此，最佳实践是使用自增ID和分批次删除。 注意：在删除过程中，如果有其他用户在访问数据库，可能会导致冲突，因此最好在无人使用时进行。 最后，提供几个相关问题： §§相关问题§§ 1. 如何给Access表添加自增ID字段？ 2. Access数据库压缩和修复的作用及操作方法？ 3. 如何优化Access数据库的删除操作性能？ 4. 在没有自增字段的情况下，如何按插入顺序删除数据？ </think>### Access数据库删除前几万条行数据的操作方法 在Access中删除大量数据（如前几万条）时，直接执行`DELETE`语句可能导致性能下降或内存溢出。以下提供三种高效方法，结合分页删除、临时表转移和自动化脚本，确保数据安全性和执行效率。关键思路参考站内引用[^1][^3][^5]。 --- ### **方法1：分页删除（推荐）** 通过分批删除避免单次操作大数据量，利用自增字段（如ID）作为分页依据[^3]： 1. **确认排序字段**： - 表中需有自增字段（如`ID`）或时间戳字段（如`CreateTime`）作为删除顺序依据。 - 若无自增字段，先添加： ```sql ALTER TABLE 表名 ADD COLUMN ID AUTOINCREMENT PRIMARY KEY; ``` 2. **分页删除VBA脚本**： ```vba Sub BatchDelete() Dim db As DAO.Database Dim sql As String Dim batchSize As Long, totalDeleted As Long Dim startID As Long, endID As Long Set db = CurrentDb batchSize = 5000 ' 每批删除5000条 totalDeleted = 0 Do While totalDeleted < 30000 ' 目标删除30000条 ' 获取当前批次的最大ID sql = "SELECT TOP " & batchSize & " ID FROM 表名 ORDER BY ID" Dim rs As DAO.Recordset Set rs = db.OpenRecordset(sql) If rs.EOF Then Exit Do rs.MoveLast endID = rs!ID rs.Close ' 删除当前批次 sql = "DELETE FROM 表名 WHERE ID BETWEEN " & startID & " AND " & endID db.Execute sql, dbFailOnError totalDeleted = totalDeleted + (endID - startID) startID = endID + 1 ' 更新下一批起始ID Loop MsgBox "共删除 " & totalDeleted & " 条记录" End Sub ``` **优势**： - 避免内存溢出，每次仅处理少量数据[^3]。 - 自动跳过已删除记录，减少锁表时间。 --- ### **方法2：临时表转移法** 适用于无自增字段或需保留部分数据的场景： 1. **创建临时表存储保留数据**： ```sql SELECT * INTO 新表名 FROM 原表名 WHERE ID > 30000; -- 保留ID大于30000的数据 ``` 2. **删除原表并重命名**： ```sql DROP TABLE 原表名; ALTER TABLE 新表名 RENAME TO 原表名; ``` 3. **重建索引和关系**： - 重新设置主键、索引及表关系（若有）。 **适用场景**： - 数据量极大（>50万条）时效率更高[^1]。 - 需跳过中间部分数据（如保留最新数据）。 --- ### **方法3：自动化脚本（Python示例）** 使用Python的`pyodbc`库分批删除，适合非Access环境操作[^4]： ```python import pyodbc conn = pyodbc.connect(r"Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=C:\路径\数据库.accdb;") cursor = conn.cursor() batch_size = 5000 total_delete = 30000 for i in range(0, total_delete, batch_size): cursor.execute("DELETE TOP (?) FROM 表名", batch_size) conn.commit() # 每批提交一次 print(f"已删除 {min(i+batch_size, total_delete)} 条") conn.close() ``` **注意**： - 需安装驱动：`pip install pyodbc`。 - 若遇驱动错误，下载并安装[Microsoft Access Database Engine](https://www.microsoft.com/en-us/download/details.aspx?id=54920)。 --- ### **关键注意事项** 1. **备份数据**： - 删除前执行：`文件 → 另存为 → 备份数据库`[^1]。 2. **压缩修复数据库**： - 删除后执行：`文件 → 信息 → 压缩和修复数据库`，减少文件碎片[^1]。 3. **索引优化**： - 为排序字段（如`ID`）创建索引，加速分页查询[^3]。 4. **避免锁表**： - 在非高峰时段操作，关闭其他用户连接。 > **警告**：直接运行`DELETE FROM 表名 WHERE ID <= 30000`可能导致Access卡死，务必分批操作！ --- ### **常见问题解决** - **错误“磁盘空间不足”**： 压缩数据库或清理临时文件（`%temp%`文件夹）[^1]。 - **自增字段不连续**： 使用`SELECT TOP`分页时按实际顺序删除，不影响结果[^3]。 - **无删除权限**： 以管理员身份运行Access，或检查文件写入权限。 ---
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值