ms-access - txtfile から出現回数をカウントする

Question

ボタンで簡単なフォームを作っています。comCount (ボタン) をクリックすると、プログラムで txt ファイルを開き、テーブル (tblResults) にテキストを返し、.txt からの各値のカウントを表示する.. (animals.txt)

.txt ファイルの入力は次のようになります。

ネコ
ネコ
犬
鳥
魚
ネコ
犬

等々。1行に1匹だけ

これを行う方法がわからないので、誰かが私を助けてくれたら、私は感謝します。その後、tblResult が返されます。

猫 3
犬 2
鳥 1
魚 1

ありがとう！

Answer 1

Private Sub comCount_Click()
    Dim sFileName As String
    Dim sAnimal As String
    Dim sQuery As String
    Dim dbs As DAO.Database
    Dim rsSQL As DAO.Recordset
    Dim iCount As Integer

    Set dbs = CurrentDb

    sFileName = "C:\Animals.txt" 'Enter your full path here
    Open sFileName For Input As #1

    While Not EOF(1)
        Line Input #1, sAnimal
        sQuery = "Select * from tblResults where AnimalName = """ & sAnimal & """"
        Set rsSQL = dbs.OpenRecordset(sQuery)
        If rsSQL.RecordCount = 0 Then
            rsSQL.AddNew
                rsSQL.Fields("AnimalName") = sAnimal
                rsSQL.Fields("AnimalCount") = 1
            rsSQL.Update
        Else
            rsSQL.Edit
                Count = rsSQL.Fields("AnimalCount") + 1
                rsSQL.Fields("AnimalCount") = iCount
            rsSQL.Update
        End If
        rsSQL.Close
    Wend

    Close #1

End Sub

また、テーブルに AnimalName と AnimalCount の 2 つのフィールドがあるとします。