在 VB6 中需要 ADO 的帮助

Question

我正在为我的一个朋友制作一个 POS 系统，非常小巧简单。

现在几乎所有内容都已编码，除了库存视图

我正在尝试使它在单击按钮时加载到列表视图中 UPC 代码和与该 UPC 关联的名称。

我是编程新手，我正在尝试自己做这件事。我知道我需要在数据库中获取一些项目（多少 UPC），然后在列表视图中循环添加信息。

但我无法获取数据库中有多少行来开始和结束循环

Answer 1

如果您发布一些代码，这会更容易，这样我们就可以看到您从什么开始。

但是，您应该能够执行类似这样的操作（我的 VB/ADO 生锈了，所以我可能会稍微破坏一下语法。正如 Chris 上面所说的，VB6 有点太长了......）。在大多数情况下，您不需要知道返回多少记录来填充您的 listView - 只需使用“Do Until”循环，如下所示：

Public Sub LoadListview()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset

    Dim SQL As String
    SQL = _
        "SELECT . . . " & _
        "FROM . . . " & _
        "WHERE . . . "

    Set cn = New ADODB.Connection

    With cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "YourConnectionString"
        .Open
    End With

    Set rs = New ADODB.Recordset

    rs.Open SQL, cn, adOpenForwardOnly, adLockReadOnly

    With rs
        If Not .EOF Then
            Do Until .EOF
                ' Your code to populate your ListView Here
            .MoveNext
            Loop
        End If
    End With

    rs.Close
    cn.Close

        Set rs = Nothing
    Set cn = Nothing

End Sub

请注意，我在这里稍微简化了一些事情。实际上，如果您将条件传递给 WHERE 子句，您通常应该将 PARAMETERS 与 ADODB.Command 对象结合使用。在此示例中，我没有包含 ADODB.Command。