' --- Füllen der Datatable
Dim adapter As MySqlDataAdapter = New MySqlDataAdapter(queryString, conn)
 
Dim computersDS As DataSet = New DataSet
adapter.Fill(computersDS, "computersDSTbl")
 
' --- Anlegen der Softwareliste
For Each dr As DataRow In computersDS.Tables("computersDSTbl").Rows
 
Dim dataList As String() = {vbBack, vbCr, vbCrLf, vbLf, vbNewLine, vbNullChar, _ 
vbNullString, "", " ", vbTab}
 
Dim tempSwList As String() = (dr.Item("memberOf").ToString.Trim).Split( _
  dataList, StringSplitOptions.RemoveEmptyEntries)
 
                For idx As Integer = 0 To ((tempSwList.Length - 1))
 
                    If Not swList.Contains(tempSwList(idx)) Then
                        swList.Add(tempSwList(idx))
                    End If
 
                Next idx
            Next 
 
' --- Durchlaufen d. Softwareliste, ermitteln der Anzahl und schreiben in MySQL
 Dim foundRows As DataRow()
Dim strExpr As String
Dim swListCount As Integer = swList.Count
 
Console.WriteLine(ControlChars.NewLine & ControlChars.NewLine & "swList hat " & _
  swList.Count & " Einträge:" & ControlChars.CrLf)
 
For i As Integer = 0 To swList.Count - 1
strExpr = "memberOf LIKE '%" & CStr(swList.Item(i)) & "%'"
foundRows = computersDS.Tables("computersDSTbl").Select(strExpr)
 
myCmd.CommandText = "insert into swlist (id,softwareName,swCount) values( _
" & (i + 1) & ",""" & CStr(swList.Item(i)) & """," & foundRows.Length & ")"
 
Try
myCmd.ExecuteNonQuery()
Catch ex As Exception
Console.WriteLine(ex.ToString)
End Try
 
Next