De fleste edb-programmer forbundet til en database -fil tillader slutbrugerne at se og manipulere data uden at skulle interagere direkte med databasen. I en indtastning af data program, tillader en søgeformular brugeren at søge efter bestemte poster i en tabel, der matcher de forudsat kriterier. Dette begrænser mængden af data hentet fra databasen og vises på formularen . Oplysningerne hentes kan derefter analyseres , redigeres, slettes eller sendes til printeren til at producere en papirkopi . For at oprette en søgeformular til en Visual Basic-projekt , skal programmøren have grundlæggende viden i Visual Basic form, design og kodning , samt database forespørgsel. Ting du skal
Visual Basic 6 software
Databasefil
Vis Flere Instruktioner
1

Load Visual Basic miljøet fra din computer ved at klikke på " Start> Programmer > , Microsoft Visual Studio 6.0 > Microsoft Visual Basic 6.0 Standard EXE "fra " Nyt projekt "dialogboksen , der popper op "
2

Select ". . Klik på " Åbn" knappen for at fortsætte.
3

træk og slip kontrollen fra " Toolbox" i formularen til at designe interface og indstille de enkelte ejendomme bagefter under "Egenskaber " vinduet. En søgeformular normalt tekstbokse , hvor brugerne skriver ord at søge mod databasen , labels, nogle kommando knapper , gitter til at vise resultatet , og database styring , der forbinder formularen i tabellen i databasen . Fortsæt med at designe formularen som foretrukne .
4

Klik på " Vis> Code" fra menuen for at gå til den kode sektion. Det er her du vil skrive kildekoder til dit projekt.
5

Gå til " Form_Load " begivenhed ved at klikke på den relevante begivenhed navn fra drop- down bokse i koderne sektionen. Input en kode ligner den nedenfor. Denne kode vil sætte forbindelsesegenskaberne af dit data-kontrol og forbinder nettet til databasefilen.

Adodc1.ConnectionString = " [ Indtast din forbindelse string her] " . CursorType = adOpenKeyset.CursorLocation = adUseClient.LockType = adLockOptimistic.CommandType = adCmdTable.RecordSource = " [ Skriv navnet på en tabel eller forespørgsel her] " . RefreshEnd med

Grid1Set . DataSource = Adodc1.HighLight = flexHighlightWithFocus.ColWidth (0) = . ColWidth ( 0) + 1000 "dette er prøve kolonne dimension forandring som preferred.ColWidth (1) = ColWidth (1) + 1800.ColWidth (2) = ColWidth (2) + 1800.ColWidth (3) = ColWidth (3 . . . ) + 2300.Refresh.TabIndex = 0End Med
6

Dobbeltklik på den tekstboks, hvor brugeren vil indtaste søgekriterierne. For eksempel ønsker brugeren at søge bestemte efternavne fra databasen , og han vil skrive bogstaverne i søgefeltet . Når kampe er fundet, vil posterne blive vist på nettet. I koden sektionen , gå til " Text1_Change ()" begivenhed og indtaste en kode, der ligner følgende : Hej

Dim t som String
p Hvis Text1.Text < > "" ThenIf Adodc1 . Recordset.RecordCount < > 0 thent = " * " + Text1.Text + "*" Adodc1.Recordset.Filter = "Efternavn som ' " + t + " ' " End IfElseAdodc1.Recordset.Filter = adFilterNoneEnd Hvis

7

Tryk på "F5 " for at køre projektet . Teste programmet og se om det kører som det skal.
8

Gem projektet ved at klikke på "File > Save Project As" fra menuen og give en beskrivende filnavn .
< br >