Söka poster med hjälp Datumintervallen Ofta används i datorprogrammering för att filtrera specifika poster som faller inom angivna datum . Dessa register måste åtminstone ha ett fält med datum datatyp . Till exempel, i ett rapporteringssystem modul i ett Visual Basic-program kan användare ange början och slutet datum genom att klicka på en drop -down kalendern och sedan klicka en kommandoknapp för att filtrera rapporter inom denna period. Du kan filtrera posterna med datumintervall i Visual Basic 6 på följande sätt .
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 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 202C kan du behöva lägga till två " DTPicker " styr ", ADO " för att ställa in anslutning till en databas , till en kommandoknapp och ett rutnät kontroll visa posterna . Eftersom " DTPicker " kontroll är inte en del av standard kontroller som finns i "Toolbox " , måste du lägga till det . För att göra detta , högerklicka på "Toolbox " och klicka på " komponenter " . Under " Controls " , bläddra ner och kolla " Microsoft Windows Common Controls-2 6. 0 " . Klicka på " Stäng " när du är klar .
4 .
Fortsätt designa din programmets gränssnitt. 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önster för att börja skriva koder . På " Form_Load " händelse öppnar din databas -anslutning.
6 .
Klicka på VB kommandoknapp som kör kommandot för att filtrera poster med datumintervall . På " Klicka på " händelse , skriva en kod som liknar följande :
Dim rs som New ADODB. Recordset
Dim dtFrom , dtTo som datum
Om rs. State=adStateOpen Då rs. Close
rs. CursorLocation=adUseClient
rs. Open " SELECT * FROM [ tabellnamn ] där [ Beginning_Date_field ] >=' " dtFrom " " och End_Date_field <= ' " dtTo " ' " , conn , adOpenDynamic , adLockOptimistic , adCmdText
Om rs. RecordCount > 0 Then
" visas filtrerade resultat i rutnät
. . .
End If
7 .
Kör programmet genom att trycka på F5 på tangentbordet. Klicka på den nedrullningsbara kalendrar och ställa in början och slut datum. Klicka kommandoknapp att köra .
8 .
Rätta till eventuella syntax eller logiska fel , om något.
9 .
Spara ditt arbete genom att trycka " ; Ctrl "+ " S " på tangentbordet
.
Previous:nothing Next:hur du kan få text i kolumner med html