Searching platen met datum bereiken worden vaak gebruikt bij het programmeren van computers om specifieke records die binnen de opgegeven data vallen filteren . De desbetreffende gegevens moeten ten minste beschikken over een veld met datum datatype . Bijvoorbeeld , in een rapportage module in een Visual Basic-programma , gebruikers kunnen het begin -en einddatum opgeven door op een kalender met keuzelijst , klik vervolgens op een opdracht knop om de rapporten binnen die periode filteren . U kunt records met datum range in Visual Basic 6 filteren door de volgende stappen . Wat je nodig hebt
Computer
Visual Basic 6-software
Databasebestand
Toon Meer Aanwijzingen
1 Start Visual Basic vanaf uw computer door te klikken op " Start> Programma's > Microsoft Visual Studio 6.0 > Microsoft Visual Basic 6.0 . " kopen van 2 Start een nieuwe Visual Basic -project door het selecteren van " Standard EXE " van het " dialoogvenster nieuw project " vak dat verschijnt . Klik op "Open " om het programma milieu te laden .
3 controles toe door erop te klikken van de " Toolbox " een voor een en neer te zetten op het formulier . Bijvoorbeeld , als je een programma wilt dat werknemers die binnen 1 januari 2000 en 31 december 2009 werd ingehuurd filtert maken , moet u twee " DTPicker " controleert , " ADO " controle toe te voegen aan de verbinding instellen op een databank , een opdracht knop , en een rooster controle met betrekking tot de records weer te geven . Sinds de " DTPicker " control is geen onderdeel van de standaard controles vinden in de " Toolbox" , moet u deze toe te voegen . Om dit te doen , met de rechtermuisknop op de " Toolbox" en klik op " onderdelen " . Onder het tabblad " Controls " , scroll naar beneden en vink " Microsoft Windows Common Controls - 2 6.0 " . Klik op ' Sluiten ' als je klaar bent .
4 verder ontwerpen van uw programma-interface . Schik de controles binnen het formulier en stel de individuele eigenschappen van elke controle .
5 Klik op " View Code " knop aan de bovenkant van de "Project Explorer " window te gaan schrijven codes . Bij de " Form_Load " evenement , opent u uw database connectie .
6 Klik op de VB opdrachtknop dat de opdracht om de records met datum range filteren uitvoert . Bij de " Click" evenement , schrijf een code zoals de volgende :
Dim rs als New ADODB.RecordsetDim dtFrom , DTTO als Datum Wenskaarten Als rs.State = adStateOpen rs.Closers Dan . CursorLocation = adUseClientrs.Open " Selecteer * uit [ Table_Name ] , waar [ Beginning_Date_field ] > = ' " & dtFrom & " ' en End_Date_field < = ' " & DTTO & " ' " , conn , adOpenDynamic , adLockOptimistic , adCmdTextIf rs.RecordCount > 0 Then'display de gefilterde resultaten in het rooster ... End If
7 Start het programma door op F5 op uw toetsenbord . Klik op het drop-down kalenders en stel de begin -en einddatum . Klik opdracht knop om uit te voeren .
8 Corrigeer syntax of logische fouten , indien aanwezig.
9 Sla je werk op door op " Ctrl " + " S " op het toetsenbord .
|
