[VB6/Acces] een adodc naar een bepaald record laten springen

[Blerp]

ik heb dus een programma'tje gebrouwen om door een database bladeren, maar het is nogal lastig om als je veel records hebt en je moet steeds bij de laatste zijn om dan zo vaak op het 'volgende' knopje van de adodc controll te duwen.
Dus ik laat de hele eerste kolom van de database in een combobox zetten. Werkt allemaal goed, maar hoe gaat de adodc naar de goede record als ik er een selecteer in de combo?
Het gaat er dus alleen om dat wat ik in de combobox (datacombobox om precies te zijn) selecteer, dat de adodc naar die record gaat. Andersom hoeft niet.

ik heb zelf dit:

code:

Private Sub DataCombo1_Change()
Label2.Caption = DataCombo1.SelectedItem
adodc.index = Label2.Caption
End Sub

maar dat gaat dus niet. Wat moet er staan in plaats van de adodc.index? Het gebruik van de label2 is gewoon voor mezelf om te kunnen zien wat de combobox precies doet en om te kijken of het allemaal nog goed gaat.

[OZ-Gump]

SelectedRow? SelectedIndex? CurrentRow? currentIndex? Volgens mij moet je dit met een beetje zoekwerk best zelf uit kunnen vissen. Wat heb je al geprobeerd, waar heb je al gezocht en waarom kwam je daar niet uit?

[Blerp]

ik heb verschillende voorbeelden van vbcode.com gedownload en geprobeerd, maar steeds kwam er niet in voor wat ik nou nodig had.
SelectedRow, SelectedIndex, CurrentRow en currentIndex komen niet in de eigenschappen voor. Wel mode, name, object, recordset, recordsource, maar die geven of een foutmelding, of doen helemaal niets.

[Blerp]

schupje

[OZ-Gump]

Misschien dat je naar de properties van recordset/recordsource zou kunnen kijken. Volgens mij kun je daar de currentrow/selectedindex wel aangeven.

[Blerp]

dan zou ik denken aan iets als

code:

Adodc1.Recordset.Index = DataCombo1.SelectedItem

maar dat werkt niet.
Het datafield van de datacombo is ook het 1e veld van de adodc en het veld heet 'naam'. Dus zou het niet met een sql query kunnen? Op die manier zijn wel reports te maken door te filteren, maar hoe krijt ik dat werkend voor de adodc?

[BertS]

zoiets?

code:

Adodc1.Recordset.Find "naam='" & DataCombo1.SelectedItem & "'"

[Blerp]

dat werkte in eerste instantie niet meteen, maar ben ermee aan het kloten gegaan en kwam op het volgende wat wel werkte:

code:

Private Sub DataCombo1_Change()
Dim keus As String
keus = DataCombo1.object
Adodc1.Recordset.Find "Naam='" & keus & "'"
End Sub

zo kan ik de string ook nog op andere plaatsen gebruiken. Hij werkt eindelijk