Söka poster med datumintervall Ofta används i datorprogrammering att filtrera specifika poster som faller inom de angivna datumen . Dessa register måste åtminstone ha ett fält med datum datatyp . Till exempel , i en rapportering modul i ett Visual Basic-program kan användare ange start-och slutdatum genom att klicka på en nedrullningsbar kalender , klicka en knapp för att filtrera rapporterna inom denna period . Du kan filtrera poster med datumintervall i Visual Basic 6 genom att följa dessa steg . Saker du behöver
Computer Review, Visual Basic 6 programvara Databasfil
Visa fler instruktioner
1
Starta Visual Basic från din dator genom att klicka på " Start > program > Microsoft Visual Studio 6.0 > Microsoft Visual Basic 6.0 . "
2
starta ett nytt Visual Basic-projekt genom att välja " Standard EXE " från " New Project " dialogrutan rutan som dyker upp . Klicka på " Öppna " för att ladda programmet miljön .
3
Lägg kontroller genom att klicka på dem från " Toolbox " en i taget och släppa dem på blanketten . Till exempel , om du vill skapa ett program som filtrerar anställda som blev anställd inom 1 jan 2000 och 31 december 2009 kan du behöva lägga två " DTPicker " kontrollerar " ADO " för att ställa in anslutningen till en databas , en kommandoknapp , och ett rutnät kontroll för att visa posterna . Eftersom " DTPicker " kontroll är inte en del av standardinstallationen kontrollerna i " verktygslådan " , måste du lägga till det . För att göra detta , högerklicka på "Verktyg" och klicka på "Komponenter " . Under " Controls " fliken , bläddra ner och kolla " Microsoft Windows Common Controls - 2 6.0 " . Klicka på "Stäng " när du är klar .
4
Fortsätt ditt program interface . Ordna kontroller i formuläret och ange individuella egenskaper för varje kontroll .
5
Klicka på " Visa kod " knappen på toppen av " Project Explorer " fönstret för att börja skriva koder . Vid " Form_Load " händelse , öppna din databas anslutning .
6
Klicka på VB kommandoknapp som utför kommandot för att filtrera poster med datumintervall . Vid " klick " händelse , skriva en kod som liknar följande :
Dim rs som New ADODB.RecordsetDim dtFrom , dtTo som Date
p Om rs.State = adStateOpen Sedan rs.Closers . CursorLocation = adUseClientrs.Open " SELECT * FROM [ tabellnamn ] där [ Beginning_Date_field ] > = ' " & dtFrom & " " och End_Date_field < = ' " & dtTo & " ' " , conn , adOpenDynamic , adLockOptimistic , adCmdTextIf rs.RecordCount > 0 Then'display de filtrerade resultaten i nätet ... End If
7
Kör programmet genom att trycka på F5 på tangentbordet . Klicka på den nedrullningsbara kalendrar och ange start-och slutdatum . Klicka kommandoknappen att utföra .
8
Åtgärda eventuella syntax eller logiska fel , om något .
9
Spara ditt arbete genom att trycka på " Ctrl " + " S " på tangentbordet .
