Visual Basic biedt ontwikkelaars een taal op hoog niveau naar Windows desktop applicaties te creëren . De Visual Basic taal integreert naadloos met databaseservers , zodat u kunt informatie opvragen uit tabellen en weer te geven in uw dynamische toepassingen . Visual Basic roept een opgeslagen procedure , en slaat de resultaten in een gegevensverzameling . Deze dataset wordt gebruikt om de opgeslagen gegevens te manipuleren en te bewerken . Instructies 1 Maak uw Visual Basic variabelen . Er zijn drie variabelen die nodig zijn om een opgeslagen procedure noemen : een verbinding met de database , een record dat de resultaten en de commando -object dat de procedure uitvoert opslaat . De volgende code maakt je variabelen : Dim conn als Nieuwe ADODB.ConnectionDim platen als Nieuwe ADODB.RecordsetDim commando Zoals ADODB.Command kopen van 2 Maak de database connectie . De databaseverbinding neemt de database naam , uw gebruikersnaam en wachtwoord , en de naam van de server en opent een verbinding . Het volgende is een voorbeeld van een Visual Basic- verbinding met een SQL Server-database : conn.Open " Provider = SQLOLEDB ; Data Source = theServer ; Initial Catalog = theDatabase " , "user " , " password " < br > 3 Stel de opgeslagen procedure commando object . Deze objecten maakt gebruik van het object gemaakt in stap aansluiting 2 en voert de opgeslagen procedure . De volgende code is een voorbeeld van hoe u het commando : command.ActiveConnection = conncommand.CommandType = adCmdStoredProccommand.CommandText = " sel_GetCustomers " De " ActiveConnection " eigenschap is ingesteld op uw verbinding object . De " CommandType " is een constante waarde genaamd " adCmdStoredProc . " Dit vertelt het commando dat het een opgeslagen procedure . De " sel_GetCustomers " is de naam van de opgeslagen procedure . 4 Wijs de opgeslagen procedure resultaten aan de recordset object . De volgende code haalt alle de resultaten en slaat ze : Set platen = command.Execute 5 Druk een record. Te zorgen dat het proces succesvol afgerond , print de eerste record aan uw raam debugger . De volgende code test uw opgeslagen procedure resultaten : Print records.Fields ( 0 )
|