保存列表框的所有项目以访问 VB.Net 中的数据库 Table

Question

我正在做一个项目，又碰壁了。我有一个列表框，里面有一些数学运算（即“1+2=3”）。我正在尝试将列表框中的所有项目保存到访问数据库中，我想我已经接近了。数据库有两个我手动输入的条目，但是当我使用以下代码时，我只在列表框中得到 -1（加上两个手动条目）（当我清除列表框并将数据库加载到列表框中时）。另一个问题是我需要将数据库限制为 10 行，我不知道该怎么做。我想做的是每次保存到数据库时检查数据库以查看它有多少行。如果我保存的列表框项目数将超过数据库中的 10 行，则清除数据库并从 0 行开始。这是我的代码（仅尝试保存到数据库）：

con.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = Mathops.accdb; Persist Security Info=False;"
    Dim cmd As New OleDbCommand
    Dim var1 As String
    con.Open()

    cmd.Connection = con
    Try
        For i As Integer = 0 To lstDisplay.Items.Count - 1
            var1 = lstDisplay.Items.Item(i).ToString
            cmd.CommandText = ("INSERT into Records (Operations) VALUES(" + var1 + ")")
            cmd.ExecuteNonQuery()

        Next
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
    con.Close()

感谢您提供的任何帮助！

约翰

哦...数据库有 2 个字段； ID 和操作，其中 ID 是主键。

Answer 1

尝试使用 listdisplay.items(i) 从您的列表框中获取文本。

然后整理10条问题：

如果您执行 SQL 查询： SELECT Max(id) FROM 给你最大id值的记录 table

然后检查返回的值是否 >= 10，如果是则使用 SQL：从记录中删除以清除 table.

保存列表框的所有项目以访问 VB.Net 中的数据库 Table

Save all items of Listbox to access Database Table in VB.Net

vb.net

ms-access

listbox