Code voor opzoeken gegevens

[mono]

Ben bezig met een progje voor het beheer van persoonsgegevens.

Dit programma voorziet in de mogelijkheid om gegevens, naar keuze van de gebruiker, gericht op te vragen.

Gegeven : 5 textboxen waar de gebruiker te zoeken gegevens in kwijt kan (naam, adres, etc...)
Echter, als een gegeven niet relevant is wordt de textbox leeggelaten.- gebruiker vult dus naargelang de precisie 1 tot 5 textboxen in.

Uitvoer : Programma moet gaan zoeken en de gegevens die overeenstemmen met het databestand eruit halen. Hoe meer boxen ingevuld zijn, hoe preciezer de zoekopdracht dus. Alle door gebruiker ingevulde gegevens moeten overeenstemmen, de boxen die leeg bleven mogen echter niet als blanco aanzien worden, wel als niet relevant bij de zoektocht.

Hoe is dit het beste op te lossen, zonder te verdrinken in de verschillende "if...then"-contstructies, waardoor het overzicht weg is en zodanig dat er toch correcte info uitkomt?

Alle boxen leeg of alle boxen ingevuld geeft geen problemen, dat is redelijk eenvoudig.
Maar wat met de mengeling van de twee? Heb gedacht aan een lusvorm, doch kom er niet uit hoe.

 

[Cotje]

Waaruit haal je de gegevens?

als je die bijvoorbeeld uit een sql-database haalt kan je een sql-query laten generen aan de hand van de ingevulde text-boxen.

Een access database is overigens hetzelfde te benaderen (met sql-statements).

Als je data in een tekst-document staat wordt het weer een heel ander verhaal

Cotje

 

[mono]

De gegevens worden uit een random-bestand gehaald met records van gelijke lengte.
De gegevens daarin worden dus benaderd met "mid$" - "left$" - "right$".

Stukje code om te verduidelijken: (in module)

Type klantrecord
k As String * 150
End Type
Public klant As klantrecord

...

Open "c:\klantenbestand" For Random Shared As 12 Len = Len(klant)
...('toewijzen x%)
Get #12, x%, klant