在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。