Hvordan utføre en lagret prosedyre Command i Visual Basic

Hvordan utføre en lagret prosedyre Command i Visual Basic


En database brukes til å gi brukerne med dynamisk innhold. En del av en database applikasjon lagrede prosedyrer. Lagrede prosedyrer er ferdigbygd uttalelser som henter, redigere eller slette informasjon i en tabell. Du kan bruke Visual Basic for å kalle en lagret prosedyre fra Web eller desktop søknad. Ringe en lagret prosedyre innebærer å bruke en tilkobling og kommandoobjekt, som er komponenter levert av Visual Basic-kompilator.

Bruksanvisning

1 Åpne Visual Studio eller Visual Basic 6.0-konsollen og laste prosjektet. Dobbeltklikk på skjemaet som skal vise de returnerte poster fra databasen. Høyreklikk åpnet skjemaet filen og velg "Code View."

2 Initial variablene som trengs for å kalle den lagrede prosedyren. Tilkoblings og kommandoobjekter brukes til å koble til og ringe databasen prosedyren. Den post objektet brukes til å holde postene hentet. Koden for å initialisere variabler er nedenfor:

Dim conn som ny ADODB.Connection
Dim Records som New ADODB.Recordset
Dim comm Som ADODB.Command

3 Bruk tilkoblingen objektet for å åpne en koble til databasen. Tilkoblingen objektet bruker en database driver og databasenavn. Koden for å koble til en SQL Server er under:

conn.Open "Provider = SQLOLEDB; Data Source = myDatabaseServer; Initial Catalog = mydb", brukernavn, passord

Den "brukernavn" og "passord" parameter er et brukernavn konfigurert på databasetjeneren som har evnen til å kjøre lagrede prosedyrer.

4 Sett opp de nødvendige egenskapene for kommandoobjekt. Kommandoobjektet må settes til å kjøre en lagret prosedyre. Den krever også at koblingsgjenstand, og navnet på den lagrede prosedyren. Koden nedenfor setter opp kommandoobjekt:

comm.ActiveConnection = tilk
comm.CommandType = adCmdStoredProc
comm.CommandText = "myStoredProcedure"

5 Kjør den lagrede prosedyren og tildele resultatet til recordset objektet. Følgende kode bruker kommandoobjekt for å kjøre databasen lagret prosedyre:

poster = comm.Execute

6 Skriv ut den første posten fra postsettet. Dette brukes til å teste koden og bekrefter at du får resultater fra databasen.

Skriv ut poster (0)