VB.NET Incrementing Indexes

Question

Je n'arrive pas à incrémenter les index de mes propriétés d'élément de liste. Voici le code.

 Dim i As Integer = 0 

     For x As Integer = 1 To list.Count/19 
      database.ExecuteCommand("INSERT INTO Contacts VALUES ('" + _ 
            list.Item(i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "', '" + _ 
            list.Item(++i) + "')") 
     Next 

Le ++ i ne s'incrémente pas du tout dans les paramètres.

Merci

Answer 1

vous devez utiliser votre variable de boucle (x) et augmenter l'indice de cette manière. Je le fais en C# mais je suis sûr que vous comprendrez.

string sql = "INSERT INTO Contact VALUES ('"; 

for(int i = 1; i < list.Count ; i++) 
{ 
    sql += list.Item(i) + "', '"; 

} 
sql = sql.Remove(sql.Length -1); 
sql += ")"; 

Database.ExecuteCommand(sql); 

Answer 2

VB.Net ne possède pas d'opérateur d'incrémentation.

Answer 3

Ajouter cette fonction

Function GetIncrementValue(ByRef x as Integer) as Integer 
    x=x+1 
    Return x 
End function 

Votre code sera ......

Dim i As Integer = 0 

For x As Integer = 1 To list.Count/19 
    database.ExecuteCommand("INSERT INTO Contacts VALUES ('" + _ 
          list.Item(i) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "', '" + _ 
          list.Item(GetIncrementValue(i)) + "')") 
Next 

Profitez ....