在VB6中需要ADO的帮助

Question

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

几乎一切被编码，除了和库存视图

我想使它所以当它点击一个按钮，它会加载到一个列表视图 的UPC代码，并与该UPC相关的名称。

我是编程新手，我试图自己做这个。我知道我需要获取数据库中的许多项目（有多少个UPC），然后在listview中添加一个循环。

，但我有麻烦多少行是在数据库中开始和结束一个循环

Answer 1

，如果你发布你的一些代码，这会更容易些，所以我们可以看到你开始用什么。但是，你应该可以做这样的事情（我的VB/ADO是生锈的，所以我可能会吹一下语法。正如克里斯上面提到的，VB6在牙齿上变得有点长......） 。在大多数情况下，你不需要知道有多少条记录，以便返回到填充您的ListView - 只需使用一个“做，直到”循环如下：

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。