Hvordan Ring lagrede prosedyrer i Visual Basic

Visual Basic gir utviklere med et høyt nivå språk for å lage Windows desktop-applikasjoner. Visual Basic språk 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.

Bruksanvisning

1 Lag dine Visual Basic variabler. Det er tre variabler som trengs for å kalle en lagret prosedyre: en tilkobling til databasen, et recordset som lagrer resultatene og kommando objekt som utfører prosedyren. Følgende kode oppretter variabler:

Dim conn som ny ADODB.Connection
Dim Records som New ADODB.Recordset
Dim-kommandoen som ADODB.Command

2 Lag databasetilkoblingen. Databasetilkoblingen tar databasenavn, brukernavn og passord, og navnet på serveren og åpner en tilkobling. Følgende er et eksempel på et Visual Basic-tilkobling til en SQL Server-database:

conn.Open "Provider = SQLOLEDB; Data Source = theServer; Initial Catalog = theDatabase", "bruker", "passord"

3 Sett opp den lagrede prosedyren kommandoobjekt. 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:

command.ActiveConnection = tilk
command.CommandType = adCmdStoredProc
command.CommandText = "sel_GetCustomers"

Den "ActiveConnection" eiendommen er satt til tilkoblingen objektet. Den "CommandType" er en konstant verdi som kalles "adCmdStoredProc". Dette forteller kommandoen at det er en lagret prosedyre. Den "sel_GetCustomers" er navnet på den lagrede prosedyren.

4 Gi den lagrede prosedyren resultatene til recordset objektet. Følgende kode henter alle resultatene og lagrer dem:

Sett registrerer = command.Execute

5 Skriv ut en rekord. 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)