akaired回答ポイント 80ptウォッチ

TABLE1のフィールドがID,ジャンル、ワードだとします。データは下記のようになります。

001,G1,犬　猫　馬
002,G1,犬　猫
003,G2,猫　馬
004,G2,犬　猫

ジャンルがG1かつ、「犬」というワードが入っているワードを削除したいと思います。ただし、「犬」のみを削除したいです。以下のように書きかえたいと思っています。
001,G1,猫　馬
002,G1,猫
003,G2,猫　馬
004,G2,犬　猫
Access2003,VBAで行うとしたらどのようにしたら上記の事が実現可能でしょうか？

• はてなアカウントでログイン
• 無料ユーザー登録

みんなの回答

• Mook2009/10/18 10:55:29

  満足27pt

  VBS でなくとも クエリでできるとは思いますが、VBSでやる例です。

  （内容は SQL を実行するだけですが。）

  
  

  「*犬」というパターンを避けるために、面倒ですがパターンを４つに分けてみました。

  （Replaceを重ねればひとつにもできそうですが、この方がわかりやすいと思いましたので分けました。）

  
  

  また例示のスペースが全角になっているのでコードもそのようになっています。

  半角の場合は変更してください。

  Sub Update_RemoveDOG()
      DoCmd.SetWarnings WarningsOn:=False
  
      Dim SQL As String
  '// 途中にある場合
      SQL = "UPDATE TABLE1 SET ワード = Replace( ワード, ""　犬　"","" "" ) WHERE ワード LIKE ""*　犬　*"""
      DoCmd.RunSQL SQL
      
  '// 最後にある場合
      SQL = "UPDATE TABLE1 SET ワード = Replace( ワード, ""　犬"","""" ) WHERE ワード LIKE ""*　犬"""
      DoCmd.RunSQL SQL
  
  '// 最初にある場合
      SQL = "UPDATE TABLE1 SET ワード = Replace( ワード, ""犬　"","""" ) WHERE ワード LIKE ""犬　*"""
      DoCmd.RunSQL SQL
  
  '// 犬だけの場合
      SQL = "UPDATE TABLE1 SET ワード = Replace( ワード, ""犬"","""" ) WHERE ワード=""犬"""
      DoCmd.RunSQL SQL
  
      DoCmd.SetWarnings WarningsOn:=True
  End Sub
  

  スター

たまたん2009/10/18 11:00:38

満足27pt

DAOですがこんなのでよろしいでしょうか。

ワードを一度”　”（スペース）区切りで配列化し、

犬という単語のみをのぞいてもう一度、連結し直して

その単語をアップデートする方法です。

全角スペースで区切られていることが条件で書いてます。

あと、エラー処理などは、書いてませんのであしからず。

Sub TEST01()
    Dim DB As DAO.Database
    Dim RS As DAO.Recordset
    Dim SQL As String
    Dim i As Integer

    Dim strTemp() As String

    Dim strData As String

    SQL = "SELECT ID , ジャンル ,ワード FROM TABLE1 WHERE ジャンル = ""G1""  AND ワード LIKE ""*犬*"" ;"
  
     Set DB = CurrentDb
     Set RS = DB.OpenRecordset(SQL)

        Do Until RS.EOF
            strData = ""
            strTemp = Split(RS!ワード, "　")
            
            For i = 0 To UBound(strTemp)
                If strTemp(i) <> "犬" Then
                    strData = strData & strTemp(i) & "　"
                End If
            Next i
        
             strData = Trim(strData)
             
             Call updateDB(RS!ID, RS!ジャンル, strData)
             
             RS.MoveNext
        Loop
    Set RS = Nothing
    Set DB = Nothing

End Sub

Sub updateDB(strID As String, strジャンル As String, strワード As String)
         Dim DB As DAO.Database
         Dim SQL As String
   
         Set DB = CurrentDb
        
   
         SQL = "UPDATE TABLE1 SET ジャンル = """ & strジャンル & _
               """ , ワード  = """ & strワード & """ WHERE ID = """ & strID & """   "
         
         DB.Execute (SQL)
End Sub

VB6.0などで正規表現が簡単に使えない場合に使いますが、

もし、正規表現が使えるならそれを使った方がいいです。

ちなみに、IEモジュールを使えば正規表現は使えますが、

IEのバージョンなどによりうまく動くかどうかはわかりません。

スター

Mook2009/10/18 18:05:11

満足26pt

最初にコメントのような説明があったほうがよいかと思いますが、ジャンルとワードを指定した処理の例です。

少しはVBAらしくしてみました。

Option Compare Database

Const SpaceW = "　"
Const SpaceS = " "

'---------------------------------------------------------
Sub main()
'---------------------------------------------------------
    RemoveWordFromTable "Table1", "G1", "犬"
End Sub

'---------------------------------------------------------
Sub RemoveWordFromTable(tableName As String, groupName As String, wordName As String)
'---------------------------------------------------------
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    Set db = CurrentDb()
    Dim Sql As String
    Sql = "SELECT * FROM " & tableName & " WHERE ジャンル=""" & groupName & """ AND ワード LIKE ""*" & wordName & "*"""
    Set rs = db.OpenRecordset(Sql, dbOpenDynaset)
   
    Do Until rs.EOF
        rs.Edit
        rs!ワード = RemoveWord(rs!ワード, wordName)
        rs.Update
        rs.MoveNext
    Loop
        
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing
End Sub

'---------------------------------------------------------
Function RemoveWord(srcData, searchWord) As String
'---------------------------------------------------------
'// いったん半角スペースに置換
    RemoveWord = SpaceS & Replace(srcData, SpaceW, SpaceS)
    RemoveWord = Replace(RemoveWord, SpaceS & searchWord, SpaceS)
    
'// 連続するスペースを置換
    Dim srcLen As Long
    Do
        srcLen = Len(srcData)
        srcData = Replace(srcData, SpaceS & SpaceS, SpaceS)
    Loop While Len(srcData) <> srcLen

'// 前後のスペースの除去 & スペースの全角置換
    RemoveWord = Trim(Replace(RemoveWord, SpaceS, SpaceW))
End Function




フォームでボタンクリックした際に、main のように RemoveWordFromTable を呼べば希望の処理になると思います。

その際に、フォームの値を第2引数と、第3引数として渡せばよいでしょう。




フォームが空のときなどのエラー処理が必要な場合は追加してみてください。

スター
• その他の回答を読む

この質問へのコメント

• ken3memo2009/10/18 06:34:09
  DBはVBAでADOを使用して居ますか？、それともDAO？
  ※人によって、まだ好みが違うので、過去のシステムの修正時には意外と盲点だったり。
  http://msdn.microsoft.com/ja-jp/library/cc948692.aspx
  ADO接続のSQLのLike演算子が少々違うので。
  http://macoto.blog.so-net.ne.jp/2009-04-14
  まぁ、SQL文1発よりも、レコードセットを回して１つ１つ調べて.Updateのほうが処理のイメージつかめそうですが。
  
• ken3memo2009/10/18 06:57:23
  SQL一発で更新は、ワードの前後のスペースもあるので難しいかなぁ。(SQLに詳しい人に笑われそうだけど)
  単純にやると、
  001,G1,犬　猫　馬
  が
  001,G1,　猫　馬
  になりそう(笑)
  すいません、追加質問で、ワードの区切りには必ず空白があるんですか？
  VBAでADO,DAOどちらを使用しているかをあわせてコメントに書いてもらえると、回答がつきやすいと思ったり。
  ※個人的にはプロのSQLで一発変換も見てみたいけど。
  
• t-wata2009/10/18 06:58:42
  たとえば、G1で「犬」を削除する場合、テーブルに「柴犬」とか「犬吠崎」とか犬のつくキーワードが他にも入っている可能性を考慮する必要はあるんでしょうか？
  もしそれまで考慮するなら結構面倒ですね。
  できるならテーブルを正規化した方がいいと思います。下みたいに。
  
  001,G1,犬
  001,G1,猫
  001,G1,馬
  002,G1,犬
  002,G1,猫
  …
  
  
• Mook2009/10/18 11:07:33
  回答中でReplace を使用しましたが、Access 2000 では使用できないようなので、
  使用しているバージョンが2003以降でない場合は、コメントください。
  
  VBA の標準関数を使用することで対応できます。
• akaired2009/10/18 12:41:29
  DAOを利用しています。ワードの区切りには必ずスペースがあります。ちなみに「柴犬」などのワードを考慮する必要は今回ありません。使用しているAccessは2003になります。
  ちなみに、やりたい事はフォームにワードとジャンルのテキストボックスを配置。入力されたワードとジャンルをキーに入力されたワードを選択したジャンルから削除したいと思っています。
• Mook2009/10/18 17:16:56
  すいませんジャンルを無視していました。
  
  SQL の後ろに
  & " AND ジャンル = ""G1"""
  を追加してください。
  

質問の情報

登録日時

2009-10-18 04:19:19

終了日時

2009-10-25 04:20:02

回答条件

1人2回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• ビビディ・バビディ・ブティックでの質問です 6年生の小学生です 今度ビビディ・バビディ・ブティックを体…匿名質問者12日前
• Sideshowと言うサイトからホットトイズの6分の1スケールフィギュアを購入しようかなと思ってます。そこで質…匿名質問者1日前
• 高校生です。好きなyoutuberがいるのですがアンチが多いです。見てて不快なのですが自分では開示請求などが…iroha101522日前
• 【東京ディズニーランドに行きたくても行けない】中学生のとき父親に「ディズニーランドに行きたい」と言っ…匿名質問者15日前
• これらは、猫の嫌う匂いらしい。蠅、蚊、ゴキブリ は、これらを嫌わないのだろうか 　 　●柑橘類の匂い 　…匿名質問者24日前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ