Visual Basic ger utvecklare med en högnivåspråk för att skapa Windows skrivbordsprogram . Visual Basic språket integreras sömlöst med databasservrar , så att du kan hämta information från tabeller och visa dem i din dynamiska applikationer . Visual Basic anropar en lagrad procedur , och lagrar resultaten i en datamängd. Denna datauppsättning används för att manipulera och redigera lagrade data. Instruktioner
1
Skapa dina Visual Basic variabler . Det finns tre variabler som krävs för att ringa en lagrad procedur : en anslutning till databasen , en postmängd som lagrar resultaten och kommandot objektet som utför proceduren . Följande kod skapar dina variabler :
Dim conn Som New ADODB.ConnectionDim Records som New ADODB.RecordsetDim kommandot Som ADODB.Command
2
skapa databasen anslutningen . Databasen anslutningen tar databasens namn , användarnamn och lösenord , och servern namnet och öppnar en anslutning . Följande är ett exempel på en Visual Basic -anslutning till en SQL Server-databas :
conn.Open " Provider = SQLOLEDB , Data Source = theserver , Initial Catalog = thedatabase " , " användare" , " lösenord "
3
Ställ in den lagrade objektet proceduren kommandot . Detta objekt använder anslutningen objektet som skapades i steg 2 och exekverar den lagrade proceduren . Följande kod är ett exempel på hur man ställer in kommandot :
command.ActiveConnection = conncommand.CommandType = adCmdStoredProccommand.CommandText = " sel_GetCustomers "
" ActiveConnection " egenskapen är inställd på din anslutning objekt . Den " CommandType " är ett konstant värde som kallas " adCmdStoredProc . " Detta talar om för det kommando som det är en lagrad procedur . Den " sel_GetCustomers " är namnet på den lagrade proceduren .
4
Tilldela den lagrade proceduren resultaten till objektet Recordset . Följande kod hämtar alla resultat och lagrar dem :
sätta rekord = command.Execute
5
Skriva ut en skiva . För att säkerställa att processen slutförts , skriva ut den första posten i din avlusningsfönstret . Följande kod testar dina lagrade procedurer resultat :
Print records.Fields ( 0 ) katalog Addera ditt
