besoin d'aide avec ADO en VB6

Question

Je fais un système de point de vente pour un de mes amis, réel petit et simple.

Quasiment tout est codé en ce moment, sauf et vue inventaire

Je suis en train de faire en sorte quand il clique sur un bouton, il va charger dans un listview les codes UPC et le nom associé à ce UPC. Je suis novice en programmation et j'essaie de le faire moi-même. Je sais que j'ai besoin d'obtenir un certain nombre d'éléments dans la base de données (combien d'UPC) et ensuite faire une boucle en ajoutant des informations dans un listview.

mais j'ai du mal à obtenir le nombre de lignes dans la base de données pour commencer et terminer une boucle

Answer 1

Ce serait plus facile si vous avez publié une partie de votre code, pour que nous puissions voir ce que vous commencez avec. Cependant, vous devriez être capable de faire quelque chose comme ceci (Mon VB/ADO est rouillé, donc je pourrais souffler un peu la syntaxe.) Comme Chris le note plus haut, VB6 devient un peu long dans la dent ....) . Dans la plupart des cas, vous ne devriez pas besoin de savoir combien d'enregistrements sont retournés afin de peupler votre listView - Il suffit d'utiliser un « Do Until » Loop comme suit:

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 

Notez que j'ai simplifié les choses ici un peu. en réalité, si vous passez des critères dans la clause WHERE, vous devez généralement utiliser PARAMETERS avec un objet ADODB.Command. Je n'ai pas inclus une commande ADODB.Command dans cet exemple.