Keskustelu: Ohjelmointikysymykset: VB6: Ongelma päivittää test-taulukon

Miten seuraava ongelma voidaan ratkaista? Ongelma on seuraava, miten voin päivittää taulukko testin idnr sarake, että se saa eri arvoja? Nyt se toimii että "kaikki" idnr vaan saa sama arvo, eli DepartLoopin viimeinen arvo.

Sum = 4

While Sum <> 0

myCommand.Connection = connDatagrid
myCommand.CommandText = "update test set idnr = " + TextBoxIDnr.Text + " + 1 where idnr = " + TextBoxIDnr.Text + " and orginal = '" + ComboBoxDepart.SelectedItem + "'"
myCommand.Parameters.Add("?IDnr", TextBoxIDnr.Text)
MessageBox.Show(myCommand.CommandText)
TextBoxIDnr.Text = DepartLoop
DepartLoop = DepartLoop + 1
myCommand.ExecuteNonQuery()

Sum = Sum - 1
End While