Question

我正在为我的一个朋友制作POS系统，真的很小而且很简单。

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

我试图在点击按钮时将其加载到列表视图中 UPC代码和与该UPC相关的名称。

我是编程的新手，我正在努力做到这一点。我知道我需要在数据库中获取一些项目（多少个UPC），然后在列表视图中添加循环信息。

但是我无法获得数据库中有多少行来启动和结束循环

Answer 1

如果您发布了一些代码，这会更容易，因此我们可以看到您的开始。

然而，你应该可以做类似这样的事情（我的VB / ADO生锈了，所以我可能会稍微破坏一下语法。正如克里斯上面所说，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。

需要VB6中的ADO帮助

1 个答案: