[VB] Zoeken in een Adodc

[w00d]

Hoi,

Ik ben bezig in VB een "progje" te maken waarmee ik een database kan bekijken en doorzoeken etc. Ik maak gebruik van een datagrid om alle gebruikers te weergeven. Voor me datasource gebruik ik een Adod. Nu wil ik met een zoek functie gebruikers kunnen opzoeken. Ik dacht dat de onderstaande code wel zou werken:

<sup>Private Sub cmdFind_Click()
prompt$ = "Enter the full (complete) Name."
SearchStr$ = InputBox(prompt$, "Member Search")
Adodc1.Recordset.Index = "GebruikerNaam"
Adodc1.Recordset.Seek "=", SearchStr$
If Adodc1.Recordset.NoMatch Then
Adodc1.Recordset.MoveFirst
End If

End Sub</sup>

Maar dat doet die dus helaas niet. Als ik hem run geeft die aan dat er een fout in zit en is Index grijs geselecteerd. Komt doordat die Index niet kent denk ik, maar ik heb geen idee wat het wel moet zijn. Iemand een idee wat ik fout doe ?

[Creepy]

Welke fout krijg je? Op welke regel zit die fout?

[w00d]

Ik krijg de volgende fout melding:

Compile Error

Method or data member not found

[OZ-Gump]

En dat zegt niet genoeg? Je gebruikt dus blijkbaar een property of method die niet bestaat. En aangezien .Index grijs gemaakt wordt bij compilen, slaat daar de melding op. Het object dat je gebruikt kent dus geen Index.

Ook hier blijkt het parool: Google Is Your Friend!

[w00d]

Dat klopt idd, hij kent ook geen seek helaas. Deze code hoort eigenlijk bij een gewone Data object. Ik hoopte dat die ook bij een Adodc zou werken. Blijkbaar te veel gehoopt .

Bedankt voor die google link, maar kom er helaas nog niet helemaal uit. Dit is wat ik nu heb.

Private Sub cmdFind_Click()

Dim Recordset As ADODB.Recordset

Set Recordset = New ADODB.Recordset

prompt$ = "Enter the full (complete) Name."
SearchStr$ = InputBox(prompt$, "Member Search")
Adodc1.Recordset.Find "=", SearchStr$

End Sub

Ik krijg nu een runtime error 3001. Met een geel balkje over Adodc1.Recordset.Find.....