Dim rs As ADODBRecordset
Dim cnn As ADODBConnection
Set rs=new ADODBRecordset
Set cnn=new ADODBConnection
cnnConnectionString="Provider=MicrosoftJetOLEDB40;Data Source="+ACCESS完整路径名或相对地址
cnnOpen
rsOpen "Select from 表名 where 字段1+字段2+字段3+字段4='"+变量+"'"",cnn,3,1
If rsRecordsetEOF Then //如果没有找到值
rsAddNew
rsRecordsetFields("字段1")=
rsUpdate //插入数据
End IF
一般,数据表中都有一个字段作为关键字,你可以以这个关键字来判是否重复(如个人信息中的身份z号),当然如果你的表中字段不是很多的话,可以这样判:
ADOQuery1SQLText='select from 表 where 字段1=你要加入的字段1 and 字段2=你要加入的字段2 and "
ADOQuery1Open;
if not ADOQuery1Eof then
begin
ShowMessage('数据重复!');
exit;
end;
当然,我上面的是伪码,你要将数据替换到SQL中的!
举个例子:
版本 2
支持库 eDB
支持库 spec
记录集1打开 (“select from 舞曲 where 舞曲名称='” + 歌曲名称 + “'”, #SQL语句, )
如果 (记录集1记录数量 > 0)
调试输出 (“存在跳过了” + 歌曲名称)
否则
记录集1添加 ()
记录集1写文本 (“分类”, 所属栏目_组合框取项目文本 (所属栏目_组合框现行选中项))
记录集1写文本 (“舞曲名称”, 歌曲名称)
记录集1写文本 (“舞曲地址”, 舞曲播放地址)
记录集1更新 ()
首先要审核你建的数据库是否符规范(即是否符合 3 范式)。
另外你的重复问题可以用 SQL 聚合查询解决之,如:
SELECT 客户ID, SUM(付款的字段), MAX(其它字段1), MAX(其它字段2) MAX(其它字段N) FROM 明细表 GROUP BY 客户ID
注:MAX 函数,也可用其它函数取代之,如 MIN、COUNT 函数
视你的需求了。
若使用 SQL 语句不能解决你的问题,那么可以考虑在程序中进行多次查询实现需求,如:
第一次查询 SELECT FROM 表 WHERE 付款类别 <> '分期付款'
第二次查询 SELECT FROM 表 WHERE 付款类别 = '分期付款'
然后处理这两次查询的结果,并合并到一起显示。
SELECT 表名字段名 FROM 表名 WHERE (((表名字段名)="矿泉水"));
这样就可以把你数据库里所有的字段内容里带“矿泉水”都查询出来了。
数量就用
rs=SELECT count 表名字段名 FROM 表名 WHERE (((表名字段名)="矿泉水"));
方法一、在Excel中试试排序的办法,想办法把数据类似或相同的放到一起!在进行排除。
方法二、新建一个空数据库,将两张表的数据导入Access,通过两张表的公共数据建立关系,看看能不能解决问题?
两个方法
一个是性别再用一个字段
一个是
sql= "select from m_data where m_name like '" & 要填加的姓名变量 & "%'"
以上就是关于vb access数据库判断是否有重复 急急急!!!全部的内容,包括:vb access数据库判断是否有重复 急急急!!!、判断access数据库中是否有重复数据的表达式怎么写、易语言 *** 作ACCESS数据库重复数据如何处理等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)