Hoppas jag kan förklara på ett logiskt sätt. Hittade lösningen!Lägga till värden i databas med Adodc1 från .ini-fil
Jag vill läsa in värden från en ini-fil och lägga in dem i en access databas. Att läsa in värdena till en textbox är inga problem, men databasen verkar inte hänga med!? Endast de första värdena (bana1) läses in i databasen.
Ini-filen ser ut så här:
[bana1]
startnummer=Adam
kortid=13.13
hastighet=28
tjuvstart=432
reaktionstid=2.334
[bana2]
startnummer=Bertil
kortid=13.13
hastighet=28
tjuvstart=432
reaktionstid=2.334
Set mStartnummer = OpenFile(App.Path & "\data.ini")
For Each Startnummer In mStartnummer
Text1.Text = Text1.Text & "Startnummer: " & Startnummer.Properties("startnummer").Value & vbCrLf
Text1.Text = Text1.Text & "Körtid: " & Startnummer.Properties("kortid").Value & vbCrLf
Text1.Text = Text1.Text & "Hastighet: " & Startnummer.Properties("hastighet").Value & vbCrLf
Text1.Text = Text1.Text & "Tjuvstart: " & Startnummer.Properties("tjuvstart").Value & vbCrLf
Adodc1.Recordset.MoveLast
Adodc1.Recordset.AddNew
Adodc1.Recordset("startnummer") = Startnummer.Properties("startnummer").Value
Adodc1.Recordset("sluttid") = Startnummer.Properties("kortid").Value
Adodc1.Recordset("hastighet") = Startnummer.Properties("hastighet").Value
Adodc1.Recordset("tjuvstart") = Startnummer.Properties("tjuvstart").Value
Adodc1.Recordset("reaktionstid") = Startnummer.Properties("reaktionstid").Value
Adodc1.Recordset("utskriven") = "nej"
Adodc1.Recordset("datum") = Date
Adodc1.Recordset("klockan") = Time()
Next
Sv: Lägga till värden i databas med Adodc1 från .ini-fil
Lade bara till Adodc1.Recordset.MoveNext så fungerade det fint!