[VB] database vraag

[Verwijderd]

NoCharge = Pat_Db.OpenRecordset("SELECT COUNT(charge) FROM sched WHERE classdate = '" & _pat_Temp_rec!classdate & "' AND classtime = '" & pat_Temp_rec!classtime & _"' AND classcat = '" & pat_Temp_rec!classcat & "' AND classsub = '" & _pat_Temp_rec!classsub & "' AND charge = No")


Hallo,

Ik heb een klein vraagje over de code hierboven.

Ik wil graag NoCharge de waarde geven van het aantal keer dat charge = No voorkomt in de database bij een bepaalde classdate en classtime en classcat en classsub.


VB zegt typemismatch.
Wat doe ik verkeerd?

Ik heb erg weinig ervaring in VB, heel erg.

[Verwijderd]

Zoek eens in een tutorial naar Recordset. Die moet je hier gebruiken... Je krijgt namelijk een Recordset terug, en geen string. Je kan de string waarde wel weer uit het recordset ophalen met iets als Rst.Fields("Expr1")

[Verwijderd]

Dat is nog iets wat ik niet helemaal begrijp.
Ik heb geen helpfile of niks erbij. Krijg alleen de melding dat ik geen msdn heb geinstald. Ja dat wist ik zelf ook wel.

Warr zoeken jullie dingen over VB op, weten jullie een goed tutorial.

[D2k]

msdn.microsoft.com

[pjonk]

Op donderdag 14 maart 2002 21:52 schreef bjanssen het volgende:
Dat is nog iets wat ik niet helemaal begrijp.
Ik heb geen helpfile of niks erbij. Krijg alleen de melding dat ik geen msdn heb geinstald. Ja dat wist ik zelf ook wel.

Warr zoeken jullie dingen over VB op, weten jullie een goed tutorial.

MSDN is toch wel erg handig om te hebben.
Je kan eventueel ook bij msdn.microsoft.com gaan zoeken naar recordset of iets dergelijks.
Maar volgens mij staat in de help van Access ook veel voorbeelden.

[Verwijderd]

msdn.microsoft.com vind ik de meest onhandigste die er bestaat.
Het zal wel aan mij liggen, maar daar kan ik nooit wat vinden.

[Verwijderd]

Dim RS As Recordset

RS = Pat_Db.OpenRecordset("SELECT COUNT( FROM sched WHERE classdate = '" & _ pat_Temp_rec!classdate & "' AND classtime = '" & pat_Temp_rec!classtime & _"' AND classcat = '" & pat_Temp_rec!classcat & "' AND classsub = '" & _ pat_Temp_rec!classsub & "' AND Charge = 'No'")


NoCharge = RS(0)

Ik heb het nu veranderd in bovenstaande maar ik krijg de melding

Invalid use of property

ok, wat doe ik dan fout

IK heb het al, bedankt. Moest nog 'set' voor!