将Listview项添加到表中

Question

VBA新手。 我想从列表视图中添加项目并添加到数据库中。

下表如下：

Table Student
Autonumber ID
Short Text First_Name
Short Text Last_Name

列表视图中的数据格式如下

Smith, John
Doe, John
Doe, Jane

我想迭代它，然后将Smith添加到Last_Name，将John添加到First_Name字段。

我目前关于如何解决这个问题的思考过程是：

1. Iterate over the listview
2. Convert listview item to a string
3. Split based on the Comma
4. Add into the fields.

你会如何在VBA中做到这一点？

Answer 1

一些提示让你前进：

1 -

With Me.myListView
    For i = 1 To .ListItems.Count
        ' Output goes to Immediate window --> Ctrl+G
        Debug.Print .ListItems(i).Text
        ' .ListItems(i).SubItems(n)  ' if it's a multi-column ListView

2 - 它已经是一个字符串。

3 - VBA中的Split()函数

4 - Recordset（DAO） - .AddNew方法。