tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: DAOで重複している商品レコードにフラグを立てたい
投稿日: 2012/11/07(Wed) 10:23
投稿者ep
> SELECT 商品コード FROM テーブル GROUP BY 商品コード HAVING COUNT(*) >= 2
>
> のような SQL を使えば、重複している商品コードを取り出せるので、
> これと繋いで UPDATE してやれば、フラグを更新できるかと。

ご回答ありがとうございます。

商品コード以外にフレキシブルグリッドにフィールドを表示したいと、

  Dim Db      As Database
    Dim Res     As Recordset
    
    strSQL = "SELECT 商品ID,商品コード,商品名 FROM 商品情報 GROUP BY 商品コード HAVING COUNT(*) >= 2"
    
    Set Db = OpenDatabase(ItemPath)
    Set Res = Db.OpenRecordset(strSQL, dbOpenDynaset)
    Set Data1.Recordset = Res

    Res.Close
    Db.Close
    Set Db = Nothing
    Set Res = Nothing
    Set Data1.Recordset = Nothing

してみたのですが、「集計関数の一部として'商品ID'を含んでないクエリを実行使用としました」とエラーが出ます。

よい方法をお教えいただけないでしょうか。
よろしくお願いいたします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。