Visual Basic gir utviklere med en høy - nivå språk for å lage Windows desktop-applikasjoner . Visual Basic språket integreres sømløst med databaseservere , slik at du kan hente informasjon fra tabeller og vise dem i dynamiske applikasjoner . Visual Basic kaller en lagret prosedyre , og lagrer resultatene i et datasett. Dette datasettet blir brukt til å manipulere og redigere lagrede data. Instruksjoner
en
Lag Visual Basic variabler . Det er tre variabler som trengs for å ringe en lagret prosedyre : en tilkobling til databasen , et postsett som lagrer resultatene og kommandoen objektet som utfører prosedyren. Følgende kode oppretter variabler : en
Dim conn som ny ADODB.ConnectionDim poster som ny ADODB.RecordsetDim kommandoen Som ADODB.Command
2
opprette databasen tilkoblingen. Databasen tilkoblingen tar databasen navn, brukernavn og passord , og navnet på serveren og åpner en tilkobling. Det følgende er et eksempel på et Visual Basic -tilkobling til en SQL Server-database : en
conn.Open " Provider = sqloledb ; datakilde = theServer ; første katalogen = theDatabase ", " bruker", "passord "
3
Sett opp den lagrede prosedyren kommandoen objektet . Dette gjenstander bruker tilkoblingsobjektet opprettet i trinn 2 og utfører den lagrede prosedyren . Følgende kode er et eksempel på hvordan du setter opp kommandoen : en
command.ActiveConnection = conncommand.CommandType = adCmdStoredProccommand.CommandText = " sel_GetCustomers "
" ActiveConnection " eiendommen er satt til din tilkobling objekt. Den " CommandType " er en konstant verdi som kalles " adCmdStoredProc . " Dette forteller at den kommandoen er en lagret prosedyre. Den " sel_GetCustomers " er navnet på den lagrede prosedyren.
4
Angi den lagrede prosedyren resultatene til postsettet objektet . Følgende kode henter alle resultatene og lagrer dem : en
Set poster = command.Execute
5
Print ut en post. For å sikre at prosessen er fullført , skrive ut den første posten til din debugger vinduet . Følgende kode tester dine lagrede prosedyren resultater :
Skriv ut records.Fields ( 0 )
