这个估计不适合你啊
先是，access这东西效率本来就不高
对于你来说
第一步
select
a
into
tmp
from
ceshi
a,
(select
min(id)
minid,wenben
from
ceshi
group
by
wenben)
b
where
aid=bminid
and
awenben=bwenben
第二步
delete
from
ceshi
第三步
insert
into
ceshi
select
from
tmp
第四步
drop
table
tmp
我把你发的第一和第二步合并成我这里的第一步了，并加了一个最后第四步，把临时表删除
你先做好备份再测试，否则数据没法恢复
可以使用零长度字符串来表明您知道该字段没有值。输入零长度字符串的方法是键入两个彼此之间没有空格的双引号 (" ")。)。在连接到 Microsoft SQL Server 数据库的 Microsoft Access 项目 (Microsoft Access 项目:与 Microsoft SQL Server 数据库连接且用于创建客户/服务器应用程序的 Access 文件。项目文件中不包含任何数据或基于数据定义的对象(如表或视图)。)中，可以在其数据类型 (数据类型:决定字段可拥有的数据类型的字段特征。数据类型包括 Boolean、Integer、Long、Currency、Single、Double、Date、String 和 Variant(默认)。)为 varchar 或 nvarchar 的字段中输入零长度字符串。打开数据表 (“数据表”视图:以行列格式显示来自表、窗体、查询、视图或存储过程的窗口。在“数据表”视图中，可以编辑字段、添加和删除数据，以及搜索数据。)，或在“窗体”视图 (“窗体”视图:一个显示窗体以便显示或接受数据的窗口。“窗体”视图是添加和修改表中数据的主要方式。在该视图中还可以更改窗体的设计。)中打开窗体。若要在字段中输入零长度字符串，请键入中间不带空格的双引号 (" ")。即使在移到其他字段或对象时双引号将消失，但该字段仍为零长度字符串。Null值与零长度字符串的区别 (MDB)。/注释 本主题中的信息仅适用于 Microsoft Access 数据库 (mdb)。/在查看含有 Null (Null:可以在字段中输入或用于表达式和查询，以标明丢失或未知的数据。在 Visual Basic 中，Null 关键字表示 Null 值。有些字段(如主键字段)不可以包含 Null 值。) 值和零长度字符串 (零长度字符串:不含字符的字符串。可以使用零长度字符串来表明您知道该字段没有值。输入零长度字符串的方法是键入两个彼此之间没有空格的双引号 (" ")。)的数据时，字段看起来是相同的，都没有任何值。但可以用表达式 (表达式:算术或逻辑运算符、常数、函数和字段名称、控件和属性的任意组合，计算结果为单个值。表达式可执行计算、 *** 作字符或测试数据。)来区分 Null 值和零长度字符串。在“设计”视图 (“设计”视图:显示数据库对象(包括:表、查询、窗体、宏和数据访问页)的设计的窗口。在“设计”视图中，可以新建数据库对象和修改现有数据库对象的设计。)中打开窗体、报表或数据访问页。在查询设计网格 (设计网格:在查询“设计”视图或“高级筛选/排序”窗口中设计查询或筛选时所用的网格。对于查询，该网格以前称为“QBE 网格”。)的字段中，或在未绑定控件 (未绑定控件:未与基础表、查询中的字段或 SQL 语句连接的控件。未绑定控件通常用于显示信息性文本或装饰性。)的控件来源中，键入下列表达式。将 fieldname 替换为包含 Null 值和零长度字符串的字段名称。以下为引用的内容：=IIf(IsNull([fieldname]),"Unknown",Format([fieldname],"@;\ZLS")) 如果字段包含 Null，则表达式返回 “Unknown”，如果字段包含零长度字符串，则表达式返回“ZLS”。否则，表达式将值返回到该字段中。事情出现在工作中一次抓取网上信息的时候，可能考虑不全，抓到库中的信息有部分是空的，这样，我的必需将空的记录删除，试了好多办法不行，最后才找到了上面的微软的ACCESS帮助文档才解决问题。执行代码片断后，此问题解决。以下为引用的内容：
分两种，一种是在表格中输入，直接用后退键删除就可以；另一种是用语句插入，需要用delete语句删除。
第一种：
如表中的数据：
直接鼠标将内容选中，摁后退键即可
第二种：
如果要删除班级ID为2的这条数据，可用如下语句：
delete from 班级表 where 班级ID=2;切好，前段时间做了一个连接ACCESS的数据库
程序
的。其中就有关于删除的
语句
的。
只不过不是SQL语句，是OLEDB的语句的。你可以参考下的。跟SQL语句基本上一样的。你可以参考下的。。
其中ConnString是连接
字符串
的，ACCESS是，string
ConnString
=
@"Provider=MicrosoftJetOLEDB40;Data
Source=D:\studentmdb";
DeleteString是删除字符串的，也可以理解为选择字符串的"select
from
student
where
studentID
=
"+你的ID选择号的。
OleDbConnection
conn
=
new
OleDbConnection(ConnString);
//建立连接
OleDbDataAdapter
da
=
new
OleDbDataAdapter(DeleteString,
conn);
//新建适配器
OleDbCommandBuilder
cmd
=
new
OleDbCommandBuilder(da);
//新建命令
执行器
DataSet
ds
=
new
DataSet();
//新建DataSet
daFill(ds,
"student");
//数据填充
DataTable
dt
=
dsTables[0];
//获取数据
表格
DataRow
dr
=
dtRows[0];
//获取表格中要删掉的行
drDelete();
//删掉行
daUpdate(ds,
"student");
//更新DataSet，以及表格个
connClose();
//连接关闭
很简单的。
到控制面板中选择并打开“添加/删除程序”在随后打开的对话框中选择Microsoft
Office
Access
2007
数据库，然后在右侧单击“删除”按钮就可以删除了。
最好删除了软件之后重启一下电脑
祝你成功！
按我的方法就可以彻底删除啦！
powered by 25175net如何 *** 作Access数据库？ 一、查找记录findhtm<HTML><HEAD><TITLE> Access数据库记录查找</TITLE></HEAD><BODY><FORM ACTION="findasp" METHOD="POST" id=form1 name=form1> 请输入您要查找的人的姓名: <BR> <INPUT TYPE="TEXT" NAME="man" SIZE=50><BR><BR> <INPUT TYPE="submit" NAME="send" VALUE="他／她的id是多少"></FORM></BODY></HTML>findasp<% Option Explicit%><!-- METADATA TYPE="typelib" FILE="C:\Program Files\Common Files\System\ado\msado15dll" --><HTML><BODY><% Dim strman, strfind , objConn strman = RequestForm("man") Dim objRS Set objconn = ServerCreateObject("ADODBConnection") set objRS = ServerCreateObject("ADODBRecordset") objConnOpen("DRIVER={Microsoft Access Driver (mdb)}; DBQ=" & ServerMapPath("Manmdb"))objRSOpen "Names", objConn, adOpenStatic, adLockReadOnly, adCmdTable strfind = "Name='" & strman & "'" objRSFind strfind' 显示第一条相关记录 If objRSEOF Then ResponseWrite "哦,没有找到您要查找的人!" & _ strman Else ResponseWrite "他／她的姓名是: " & strman & "" & _ "Id是:" & objRS("ID") & "<BR>" & _ End If objRSClose Set objRS = Nothing objConnClose Set objConn = Nothing%></BODY></HTML> 二、过滤记录filterasp<% Option Explicit%><!-- METADATA TYPE="typelib" FILE="C:\Program Files\Common Files\System\ado\msado15dll" --><HTML><HEAD><TITLE>精彩春风之Access数据库记录过滤</TITLE></HEAD><BODY> <% Dim objRS, intLetter, strChar, strCriteria objConnSet objConn = ServerCreateObject("ADODBConnection")Set objRS = ServerCreateObject("ADODBRecordset") objConnOpen("DRIVER={Microsoft Access Driver (mdb)}; DBQ=" & ServerMapPath("Manmdb")) objRSOpen "Names", objConn, adOpenStatic, adLockReadOnly, adCmdTable For intLetter = 1 To 26 strChar = Chr(intLetter+64) strCriteria = "Title LIKE '" & strChar & "'" objRSFilter = strCriteria If Not objRSEOF Then ResponseWrite "<H2>" & strChar & "</H2>" & _ "<TABLE BORDER=1><TR><TD><B>姓名<B></TD><TD>ID</TD></TR>" While Not objRSEOF ResponseWrite "<TR><TD>" & objRS("Name") & "</TD>" & _ "<TD>" & objRS("ID") & "</TD></TR>" objRSMoveNext Wend ResponseWrite "</TABLE>" End If Next objRSClose Set objRS = NothingobjConnClose Set objConn = Nothing%></BODY></HTML> 三、添加记录addasp<% Option Explicit%><!-- METADATA TYPE="typelib" FILE="C:\Program Files\Common Files\System\ado\msado15dll" --><HTML><HEAD><TITLE>精彩春风之Access数据库记录添加</TITLE></HEAD><BODY><% Dim objRS, intIDForNewRecord , objConnSet objConn = ServerCreateObject("ADODBConnection")set objRS = ServerCreateObject("ADODBRecordset") objConnOpen("DRIVER={Microsoft Access Driver (mdb)}; DBQ=" & ServerMapPath("Manmdb"))' 连接数据库 objRSOpen "Names", objConn, adOpenStatic, adLockOptimistic, adCmdTable objRSMoveLast intIDForNewRecord = objRS("ID") + 1 objRSAddNew' 添加新记录 objRS("ID") = intIDForNewRecord objRS("Names") = "ManD" objRSUpdate objRSClose objRSOpen "SELECT FROM Names WHERE ID=" & intIDForNewRecord, _ ObjConn, adOpenForwardOnly, adLockReadOnly, adCmdText If objRSEOF Then ResponseWrite "噢,出错了!新记录没找到" Else ResponseWrite "恭喜,添加成功!新记录是:<BR> " & _ "Name = '" & objRS("Name") & "'<BR>" & _ "ID = '" & objRS("ID") & "'<BR>" End If objRSClose Set objRS = Nothing objConnClose' 清空 Set objConn = Nothing%></BODY></HTML>四、更新记录和上面的“添加记录”一样，只需把“添加”命令改做“更新”就可以了：objRSUpdate 五、删除记录This is the asp page, we will delete the record that we added ManD:<% Option Explicit%><!-- METADATA TYPE="typelib" FILE="C:\Program Files\Common Files\System\ado\msado15dll" --><HTML><HEAD><TITLE> Access数据库记录删除</TITLE></HEAD><BODY><% Dim objRS, intIDForNewRecord, objConnSet objConn = ServerCreateObject("ADODBConnection")set objRS = ServerCreateObject("ADODBRecordset") objConnOpen("DRIVER={Microsoft Access Driver (mdb)}; DBQ=" & ServerMapPath("Manmdb")) objRSOpen "Names", objConn, adOpenStatic, adLockOptimistic, adCmdTable objRSFilter = "Name = ' ManD'" ResponseWrite "注意,以下记录将被删除:<BR> " While Not objRsEOF ResponseWrite objRS("ID") & "<BR>" objRSDelete objRSMoveNext Wend objRSClose ResponseWrite "<BR>核实删除记录:<BR>" objRSOpen "SELECT FROM Names WHERE Name LIKE 'ManD'", _ objConn, adOpenForwardOnly, adLockReadOnly, adCmdText If objRSEOF Then ResponseWrite "ManD的所有记录都已被从数据库删除!<BR> " Else ResponseWrite "噢,删除失败!ManD的记录还在数据库里呢, " & _ "ID=" & objRS("ID") End If objRSClose Set objRS = Nothing objConnClose Set objConn = Nothing%></BODY></HTML>
以上就是关于access数据库如何删除文本字段中重复的文本行全部的内容，包括:access数据库如何删除文本字段中重复的文本行、如何删除Access数据库中的空记录、Access数据库中如何删除掉已经输入的记录等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）