如何将数据库中的重复项列出
编号：QA002452
建立日期: 2000年1月18日 最后修改日期：2000年1月18日
所属类别：
lily:
编程工具: VB6.0
操作系统: win97
我想对数据库中的表进行重复项检查。对这个表中的二项检查，“厂名”，“号码”不能同时相同，如相同，将重复项列出。我想用DBgrid ,Data控件将结果输出。请问有何速度快的好办法？语句？谢谢！
回答:
1)首先查询出数据表中不同的'厂名'(cName)'编号'(cId) ,Sql语句如下:
Dim FactRec as New AdoDb.RecordSet
Dim SqlStr as String
SqlStr="Select Distinct cId,cName From Factory "
'打开记录集FactRec
2) 以 FactRec记录的每项记录作为条件循环填写DbGrid ,Grid
Dim ResultRec as New AdoDb.RecordSet
Dim SqlStr as String
Dim WhereStr as String
Do Until FactRec.Eof
SqlStr="Select * From Factory Where cId='" & FactRec.Field("cId") & " And cName='" & FactRec.Field("cName")
'打开记录集ResultRec
'读出信息追加添入DbGrid
'关闭记录集ResultRec
Loop
3)关闭记录集FactRec
Note: 第二步中,可以采取生成临时表的形式,DbGrid绑定最终记录集。
此问题由Light回答。
| |
|
|
| |
|
|
