Lägga till värden i databas med Adodc1 från .ini-fil
Hoppas jag kan förklara på ett logiskt sätt.
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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | 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 |
Svara
Sv: Lägga till värden i databas med Adodc1 från .ini-fil
Hittade lösningen!
Lade bara till Adodc1.Recordset.MoveNext så fungerade det fint!
Svara