De fleste dataprogrammer som er koblet til en database fil tillate sluttbrukere å vise og manipulere data uten å samhandle direkte med databasen. I en dataregistrering program, gjør et søkeskjema brukeren å søke etter bestemte poster i en tabell som samsvarer med kriteriene gitt. Dette begrenser mengden data som lastes ned fra databasen og vises på skjemaet . Informasjonen hentes kan deretter bli analysert , redigeres, slettes eller sendes til skriveren for å produsere en papirkopi . For å opprette et søkeskjema for en Visual Basic-prosjekt , må programmereren ha grunnleggende kunnskaper i Visual Basic skjema design og koding , samt førespurnaden . Du trenger
Visual Basic 6 programvare
Database file
Vis flere instruksjoner
en

Legg Visual Basic-miljøet fra datamaskinen din ved å klikke på " Start> Programmer > , Microsoft Visual Studio 6.0 > Microsoft Visual Basic 6.0 Standard EXE "fra" New Project " dialogboksen som dukker opp "
2

Velg. " . Klikk "Open "-knappen for å fortsette.
3

Dra og slipp kontroller fra " Toolbox" i skjemaet for å designe grensesnittet og sette de individuelle egenskapene etterpå under "Properties " vinduet . En søkeskjema har vanligvis tekstbokser hvor brukerne skriver ordene du søker mot databasen , etiketter , noen Kommandoknappene , rutenett for å vise resultatet , og database -kontroll som knytter skjemaet inn i tabellen i databasen. Fortsett med å utforme skjema som foretrukket .
4

Klikk på " Vis> Code" fra menyen for å gå til koden delen. Dette er hvor du vil skrive kildekoder for prosjektet .
5

Gå til " Form_Load " hendelse ved å klikke på den aktuelle hendelsen navn fra drop- down bokser i koder delen. Taste inn en kode som ligner på den nedenfor. Denne koden vil sette egenskapene til tilkoblingen av dine data kontroll og kobler rutenettet til databasefilen.
P Med Adodc1.ConnectionString = " [ Skriv din tilkobling streng her] " . CursorType = adOpenKeyset.CursorLocation = adUseClient.LockType = adLockOptimistic.CommandType = adCmdTable.RecordSource = " [ Skriv inn navnet på en tabell eller spørring her] " . RefreshEnd med
p Med Grid1Set . DataSource = Adodc1.HighLight = flexHighlightWithFocus.ColWidth ( 0 ) = . ColWidth ( 0 ) + 1000 "dette er et eksempel på kolonnedimensjonen ; endring som preferred.ColWidth ( 1 ) = ColWidth ( 1 ) + 1800.ColWidth ( 2 ) = ColWidth ( 2 ) + 1800.ColWidth ( 3 ) = ColWidth (3 . . . ) + 2300.Refresh.TabIndex = 0End Med
6

Dobbeltklikk tekstboksen hvor brukeren vil angi søkekriteriene . For eksempel vil brukeren å søke visse etternavn fra databasen , og han vil skrive bokstavene i søkeboksen . Når kampene er funnet , vil postene bli vist på rutenettet. I koden delen , gå til " Text1_Change ( ) " event og taste inn en kode som ligner på følgende : en

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

Trykk " F5 " tasten for å kjøre prosjektet . Teste programmet og sjekk om den kjører som det skal.
8

Lagre prosjektet ved å klikke på "File > Lagre prosjekt som " fra menyen og gir en beskrivende filnavn .