Een databank wordt gebruikt om uw gebruikers te voorzien van dynamische inhoud . Een onderdeel van een database-applicatie wordt opgeslagen procedures . Opgeslagen procedures zijn gecompileerde uitspraken die informatie op te halen , bewerken of verwijderen in een tabel . U kunt Visual Basic gebruiken om een opgeslagen procedure te bellen vanaf uw web-of desktop- applicatie . Bellen naar een opgeslagen procedure gaat met behulp van een verbinding en commando -object , die bestanddelen zijn verstrekt door de Visual Basic -compiler . Instructies 1 Open uw Visual Studio of Visual Basic 6.0 -console en laad je project . Dubbelklik op het formulier dat de geretourneerde records uit de database wordt weergegeven . Rechtermuisknop op het geopende formulier bestand en selecteer " View Code . " Kopen van 2 Initialiseer de variabelen die nodig is om de opgeslagen procedure te bellen . De verbinding en opdrachtobjecten worden gebruikt om de database procedure sluiten en bellen . De recordset object wordt gebruikt om de records te houden . De code om de variabelen te initialiseren is hieronder : Dim conn als Nieuwe ADODB.ConnectionDim platen als Nieuwe ADODB.RecordsetDim comm Zoals ADODB.Command 3 Gebruik de verbinding object het openen van een verbinding met de database . De verbinding object gebruikt een database driver en database naam . De code om verbinding met een SQL Server is hieronder : conn.Open " Provider = SQLOLEDB ; Data Source = myDatabaseServer ; Initial Catalog = mijndb " , gebruikersnaam, wachtwoord De " gebruikersnaam " , en parameter " wachtwoord" is een gebruikersnaam geconfigureerd op de databaseserver die de mogelijkheid om opgeslagen procedures te voeren heeft 4 Stel de gewenste eigenschappen voor de commando -object . . De commando -object moet worden ingesteld op een opgeslagen procedure uit te voeren. Het vereist ook de object -verbinding en de naam van de opgeslagen procedure . De onderstaande code stelt de commando -object : comm.ActiveConnection = conncomm.CommandType = adCmdStoredProccomm.CommandText = " myStoredProcedure " 5 Voer de opgeslagen procedure en de resultaten toe te wijzen aan de recordset object . De volgende code maakt gebruik van de commando -object om de database opgeslagen procedure uitvoeren : verslagen = comm.Execute 6 Print de eerste record uit de recordset . Dit wordt gebruikt om de code te testen en te controleren of u ontvangt de resultaten uit de database . Print platen ( 0 )
|