Flest datorprogram som är anslutna till en databas fil tillåter slutanvändare att visa och manipulera data utan att behöva interagera direkt med databasen . I en datainmatning program , tillåter ett sökformulär för användaren att söka efter specifika poster i en tabell som matchar de angivna kriterierna . Detta begränsar den mängd data som överförs från databasen och visas i formuläret . Den information som hämtas kan sedan analyseras , redigeras, tas bort eller skickas till skrivaren för att producera en papperskopia . För att skapa ett sökformulär för en Visual Basic-projekt , måste programmeraren ha grundläggande kunskaper i Visual Basic formulär design och kodning , samt databasfrågan . Saker du behöver Review, Visual Basic 6 programvara Databasfil
Visa fler instruktioner
1
Ladda Visual Basic miljö från din dator genom att klicka på " Start> Program > , Microsoft Visual Studio 6.0 > Microsoft Visual Basic 6.0 Standard EXE " från " New Project " i dialogrutan som dyker upp "
2
Välj . " . Klicka på "Öppna " för att fortsätta .
3
Dra och reglage släpp från " Toolbox " i formuläret för att designa gränssnittet och ange de individuella egenskaperna efteråt under " Egenskaper " fönstret . En sökfunktionen har oftast textrutor där användarnas Ange ord att söka mot databasen , etiketter , vissa kommandofältsknappar , rutnät för att visa resultatet , och databas kontroll som binder formuläret i tabellen i databasen . Fortsätt med att utforma formuläret som föredras .
4
Klicka på " Visa> Kod " i menyn för att gå till kodavsnitt . Det är där du kommer att skriva källkoder för ditt projekt .
5
Gå till " Form_Load " händelse genom att klicka på lämplig evenemanget namn från listrutorna i koder avsnittet . Mata in en kod som liknar den nedan . Denna kod kommer att ställa anslutningsegenskaperna hos dina data kontroll och ansluter gallret till databasfilen .
Adodc1.ConnectionString = " [ Skriv din anslutning strängen här ] " . CursorType = adOpenKeyset.CursorLocation = adUseClient.LockType = adLockOptimistic.CommandType = adCmdTable.RecordSource = " [ Ange namnet på en tabell eller fråga här ] " . RefreshEnd med
Grid1Set . DataSource = Adodc1.HighLight = flexHighlightWithFocus.ColWidth ( 0 ) = . ColWidth ( 0 ) + 1000 ' detta är exempelkolumnen dimension , förändring preferred.ColWidth ( 1 ) = ColWidth ( 1 ) + 1800.ColWidth ( 2 ) = ColWidth ( 2 ) + 1800.ColWidth ( 3 ) = ColWidth ( 3 . . . ) + 2300.Refresh.TabIndex = 0End med
6
Dubbelklicka på textrutan där användaren ange sökkriterier . Till exempel vill att användaren kan söka vissa efternamn från databasen och han kommer att skriva bokstäver i sökrutan . När matchningar hittas , kommer posterna att visas på nätet . I koden avsnittet , gå till " Text1_Change ( ) " händelse och mata in en kod som liknar följande :
Dim t As String
p Om Text1.Text < > " " ThenIf Adodc1 . Recordset.RecordCount < > 0 Thent = " * " + Text1.Text + " * " Adodc1.Recordset.Filter = " Efternamn LIKE ' " + t + " ' " End IfElseAdodc1.Recordset.Filter = adFilterNoneEnd Om
7
Tryck på " F5 " tangenten för att driva projektet . Testa programmet och kontrollera om det fungerar som det ska .
8
Spara projektet genom att klicka på " Arkiv > Spara projekt som" från menyn och ge ett beskrivande filnamn .