🚀 go-pugleaf

Volgende code bezorgt mij hoofdpijn:
Public Function getklant(ByVal klantid As Integer) As klant

Try

datool = New DataAccess(ConfigurationSettings.AppSettings("dbvynckier"))

Dim dreader As OleDbDataReader

dreader = datool.runSQLDatareader("select * from klant where klantnummer=" &
klantid & "")

dreader.Read()

Dim eenklant As klant

 eenklant.pklantbtw = dreader("BTW_nummer_klant")

eenklant.pklantnaam = dreader("klantnaam")

eenklant.pklantvnaam = dreader("klantvnaam")

eenklant.pklantadres = dreader("klantadres")

eenklant.pklantgemeente = dreader("gemeentenaam_klant")

eenklant.pklantpostcode = dreader("postcode_klant")

eenklant.pklanttel = dreader("klanttel")

eenklant.pklantfinid = dreader("financieel_klantnummer")

Return eenklant

Catch ex As Exception

Throw New Exception("ophalen klant mislukt")

Finally

datool = Nothing

End Try

End Function

De connectie werkt perfect, dus daar ligt het probleem niet, ik krijg ook
een goeie datareader terug met 1 rij en 9 kolommen, precies wat ik moet
krijgen. Het probleem zit em echter hier: Ik wil de inhoud van die kolommen
wegschrijven naar een object met get/set properties, die zijn correct
gecodeerd dus hier ligt het niet aan, ik denk dat ik ze gewoon niet uit die
datareader krijg. De namen van de kolommen zijn ook 100% juist.
Dmv breakpoints heb ik gevonden waar hij uit zijn try springt en naar zijn
catch gaat: bij de eerste lijn die de data in het object zou moeten stoppen:
eenklant.pklantid = dreader("klantnummer")

Aan dit lijntje code komt hij dus niet, dus hier zit volgens mij de fout,
maar ik heb geen idee wat ik hier fout doe. Ik weet dat het moeilijk is om
zomaar eens te kijken waar de fout zit maar misschien zie ik iets simpel
over het hoofd...
Voor alle zekerheid die property uit de klasse klant ook nog meegeven, al
betwijfel ik of er hier iets mis mee is

Public Property pklantid() As Integer

Get

pklantid = klantid

End Get

Set(ByVal Value As Integer)

klantid = Value

End Set

End Property

Alvast bedankt!

--�
stijn.verspeet@pandora[delete.this].be