Visual Basic giver udviklere med en high- niveau sprog til at skabe Windows desktop applikationer. Visual Basic sprog integreres problemfrit med databaseservere , så du kan hente oplysninger fra tabeller og vise dem i dine dynamiske applikationer . Visual Basic kalder en lagret procedure , og resultater lagres i et datasæt . Dette datasæt bruges til at manipulere og redigere lagrede data . Instruktioner
1
Opret din Visual Basic variabler. Der er tre variable er nødvendige for at kalde en lagret procedure : en forbindelse til databasen , en postsæt der gemmer resultaterne og kommandoen objekt , der udfører proceduren. Følgende kode opretter dine variabler : Hej
Dim conn som nye ADODB.ConnectionDim Records som New ADODB.RecordsetDim kommando Som ADODB.Command
2
oprette databasen forbindelsen. Databasen forbindelsen tager databasen navn, dit brugernavn og din adgangskode , og serveren navn og åbner en forbindelse . Det følgende er et eksempel på en Visual Basic -forbindelse til en SQL Server -database : Hej
conn.Open " Provider = SQLOLEDB , Datakilde = theServer , Initial Catalog = theDatabase ", " bruger" , "password" < br >
3
Opsæt den lagrede procedure kommando objekt. Dette objekter benytter forbindelsen objektet i trin 2 og udfører den lagrede procedure. Følgende kode er et eksempel på hvordan man opsætter kommandoen : Hej
command.ActiveConnection = conncommand.CommandType = adCmdStoredProccommand.CommandText = " sel_GetCustomers "
" ActiveConnection " Ejendommen er sat til din forbindelse objekt . Den " CommandType " er en konstant værdi, der hedder " adCmdStoredProc . " Det fortæller den kommando, det er en lagret procedure. Den " sel_GetCustomers " er navnet på den lagrede procedure .
4
Tildel den lagrede procedure resultater til postsættet objekt. Følgende kode henter alle resultaterne og gemmer dem : Hej
Set records = command.Execute
5
Print ud af en rekord. For at sikre, at processen fuldført , udskrive den første post til din debugger vinduet. Følgende kode tester dine gemte procedure resulterer :
Print records.Fields (0)