Toon posts:

[VB6] Database

Pagina: 1
Acties:

Verwijderd

Topicstarter
Wanneer je een zoekactie doet en je geen resultaten hebt in uw DBGrid dan zou hij een MsgBox moeten te voorschijnhalen met "code bestaat niet", maar hoe kun je dit met code verkrijgen. Momenteel heb ik deze code, maar blijkbaar lukt dit niet. Heeft iemand nog een ander idee?

code:
1
2
3
4
5
6
7
8
FrmMaten.Data1.RecordSource = "Select * from Matenbalk_Maten2 Where Code like '" & Text2.Text & "'"
FrmMaten.Data1.Refresh
If FrmMaten.Data1.Recordset Is Nothing Then '==> dit gaat blijkbaar niet
    MsgBox "Code bestaat niet!"
    Text2.Text = ""
    Text1.Text = ""
    Text2.SetFocus
Else '.....

[ Voor 10% gewijzigd door Verwijderd op 02-07-2004 09:15 ]


  • whoami
  • Registratie: December 2000
  • Laatst online: 23:52
Recordset is niet nothing, aangezien je wel data opgehaald hebt.
Echter, het aantal records in je recordset == 0, maar je recordset is niet gelijk aan 'null'.
Check dus op het aantal records.

https://fgheysels.github.io/


Verwijderd

Topicstarter
whoami schreef op 02 juli 2004 @ 09:17:
Recordset is niet nothing, aangezien je wel data opgehaald hebt.
Echter, het aantal records in je recordset == 0, maar je recordset is niet gelijk aan 'null'.
Check dus op het aantal records.
Hoe kun je het aantal records zoeken?? omdat er daar een niet specifieke code voor bestaat denk ik.

  • whoami
  • Registratie: December 2000
  • Laatst online: 23:52
Dat kan je doen met SQL
code:
1
SELECT COUNT(*) FROM ...


Of, misschien bevat dat Recordset object wel een property of method die het aantal records teruggeeft dat die RS bevat.

https://fgheysels.github.io/


Verwijderd

Topicstarter
whoami schreef op 02 juli 2004 @ 09:21:
Dat kan je doen met SQL
code:
1
SELECT COUNT(*) FROM ...


Of, misschien bevat dat Recordset object wel een property of method die het aantal records teruggeeft dat die RS bevat.
Aah, klop, er bestaat een eigenschap van recordset, ik had boven het hoofd gezien. Hartelijk bedankt voor de hulp

code:
1
2
3
4
5
6
7
8
FrmMaten.Data1.RecordSource = "Select * from Matenbalk_Maten2 Where Code like '" & Text2.Text & "'"
FrmMaten.Data1.Refresh
If FrmMaten.Data1.Recordset.RecordCount = 0 Then
    MsgBox "Code bestaat niet!"
    Text2.Text = ""
    Text1.Text = ""
    Text2.SetFocus
Else '...

  • Lorn
  • Registratie: Maart 2000
  • Laatst online: 13-01-2025

Lorn

I have a bad feeling...

RecordCount wordt niet door alle providers ondersteunt. Het kan zijn dat je -1 terug krijgt terwijl er wel records in je recordset staan. Je kunt beter testen op EOF en BOF, dit zijn gewoon properties van je recordset. Als zowel BOF als EOF de waarde TRUE bevatten dan weet je zeker dat je recordset leeg is.

[ Voor 17% gewijzigd door Lorn op 02-07-2004 15:25 ]

Pagina: 1