Problem med Arraylist
HejHer er først del af et sub der skal checke om feltet ID i tabellen ToDo indholder tallene 1,2 ...15 og hvis ikke skal tallet indsættes.
Af en eller anden grund medtages ALDRIG det første felt (tallet 1). Da jeg så fjernede "primær Key" fra feltet i ToDo kom der efterfølgende 2 felter med tallet 1 men herefter fungerer programmeringen :-O
Dim Connection As New SqlConnection(Conn)
Connection.Open()
Dim IDListe As New ArrayList
Try
Dim CMD As New SqlCommand("SELECT ID FROM ToDo", Connection)
Dim reader As SqlDataReader = CMD.ExecuteReader()
Dim ID As Int32
If reader.Read Then
While reader.Read
'Liste der indeholder alle ID'er i databasen ToDo
ID = reader.GetInt32(0)
MessageBox.Show(ID)
IDListe.Add(ID)
End While
reader.Close()
Dim X As Integer
For X = 1 To 15
If IDListe.Contains(X) = False Then
CMD = New SqlCommand("INSERT INTO ToDo (ID) VALUES (@ID)", Connection)
With CMD
.Parameters.Add("@ID", SqlDbType.Int)
.Parameters("@ID").Value = X
.ExecuteNonQuery()
End With
End If
Next