ADO og combobox
Jeg er i gang med at lave et lille prgm spm kan holde styr på hvornår jeg har arbejdet.Det er meningen at man skal kunne taste information om et givent arbejde ind, og så herefter gemme disse i en access database. Herefter er det så meningen at når programmet starter op skal det køre tabellen med arbejr igennem, og skrive navnene på alle de forskellige jobs man har ud i en combobox, så man bare kan vælge et arbejde.
Som forbindelse til min db bruger jeg en ADO datacontrol. Denne har jeg sat op med databasen vha. en ODBC. Herefter har jeg bundet min combobox op med ADO'en vha de properties der er for combobox. Sidst men ikke mindst har jeg sat lige smækket følgende kode ind
Private Sub Form_Paint()
Dim rs As Recordset
Set rs = Adodc1.Recordset
While Not Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset.Fields("Arbejdstitel")
Adodc1.Recordset.MoveNext
Wend
End Sub
Den drøner altså alle tuplerne igennem og skriver dem ind i comboboxen. Dette virker også fint. Problemet er så bare, at når jeg lukker programmet og starter det igen, så skriver den ikke noget i comboboxen, fordi den åbenbart selv har erstattet de værdier de lå nede i databasen med tomme strenge. De er ikke slettet, men erstattet med tomme strenge. Som om de er blevet overskrevet. Hvorfor gør den det? Og hvad er løsningen på mit problem. På forhånd tak :)
