如何将数据库中的重复项列出.txt

VB技巧问答10000例 VB技巧问答10000例

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绑 定 最 终 记 录 集 。 
<END>