Søke poster med datointervaller er ofte brukt i programmering for å filtrere bestemte poster som faller innenfor de angitte datoene . Disse postene må minst ha ett felt med dato datatype. For eksempel , i en rapportering modul i et Visual Basic- program , kan brukerne angi start-og sluttdato ved å klikke på en drop- down kalender , deretter klikke en kommando for å filtrere rapporter innenfor den aktuelle perioden. Du kan filtrere poster med dato utvalg i Visual Basic 6 ved å følge disse trinnene. Du trenger
Computer
Visual Basic 6 programvare
Database file
Vis flere instruksjoner
en

starte Visual Basic fra datamaskinen din ved å klikke på " start> programmer> Microsoft Visual Studio 6.0 > Microsoft Visual Basic 6.0 . "
2

starte et nytt Visual Basic-prosjekt ved å velge" Standard EXE "fra" nytt prosjekt "dialog boksen som dukker opp . Klikk "Open " for å laste programmet miljø .
3

Legg kontrollene ved å klikke på dem fra " Toolbox" en om gangen og slippe dem på skjemaet . For eksempel, hvis du ønsker å lage et program som filtrerer ansatte som ble innleid innen 1 januar 2000 og 31. desember 2009, må du kanskje legge til to " DTPicker " styrer ", ADO " kontroll for å angi inngangen til en database , en kommandoknapp , og et rutenett kontroll for å vise postene. Siden " DTPicker " kontroll er ikke en del av standard kontroller finnes i " Toolbox" , må du legge den til. For å gjøre dette , høyreklikker du på " Toolbox " og klikk "Komponenter" . Under " Controls "-kategorien , bla nedover og sjekk " Microsoft Windows Common Controls - 2 6,0 " . Klikk på " Close" når du er ferdig .
4

Fortsett utformingen av programmet grensesnitt. Ordne kontroller i skjemaet og sette individuelle egenskaper for hver kontroll.
5

Klikk på " Vis kode "-knappen på toppen av "Project Explorer" vinduet for å begynne å skrive koder. På " Form_Load " hendelse, åpner du databasen din tilkobling.
6

Klikk på VB kommandoknapp som utfører kommandoen for å filtrere poster ved hjelp datointervall . På "Klikk" hendelse, skrive en kode som ligner på følgende : en

Dim rs som New ADODB.RecordsetDim dtFrom , dtTo som Date
p Hvis rs.State = adStateOpen Deretter rs.Closers . CursorLocation = adUseClientrs.Open "Velg * fra [ table_name ] hvor [ Beginning_Date_field ] > = ' " & dtFrom & " ' og End_Date_field < = ' " & dtTo & " ' " , conn, adOpenDynamic , adLockOptimistic , adCmdTextIf rs.RecordCount > 0 Then'display de filtrerte resultatene i nettet ... End If
7

Kjør programmet ved å trykke F5 på tastaturet. Klikk på drop- down kalendere og angi start-og sluttdato . Klikk kommandoen for å utføre .
8

Rett alle syntaks eller logiske feil , hvis noen.
9

Lagre arbeidet ved å trykke " Ctrl" + " S" på tastaturet.