Come chiamare stored procedure DB2 in applicazioni Visual Basic 6.0

ADO sta per ActiveX Data Objects . ADO è stato introdotto con VB 6.0 e può essere utilizzato in VB 6.0 aggiungendo il controllo al progetto o aggiungendo la libreria ADO al progetto . Il controllo ADO può essere posizionato direttamente su un modulo . La libreria di ADO fornisce un po 'più di controllo sulle modalità di accesso dei dati . Sarà necessario aggiungere la libreria di oggetti di dati nel progetto VB che utilizza le stored procedure . Istruzioni
1

Aggiungi Microsoft ActiveX Data Objects 2.7 Library ( o qualunque sia la versione che avete a disposizione ) dalla schermata Riferimenti del progetto VB6 . Questo aggiungerà i file ADO necessari per il progetto per l'accesso al database .
2

definire un nuovo oggetto connessione , un oggetto di comando e un oggetto recordset . Definisci il tuo oggetto di connessione ", come New ADODB.Connection " e l'oggetto comando " come New ADODB.Command " e , infine , il recordset ", come New ADODB.Recordset " .
3

Aperto la connessione al database . L' oggetto connessione ha un metodo "Open" . Avrete bisogno di passare la stringa di connessione al database che include il provider ODBC , il nome del database e la userid e password .
4

il ActiveConnection dell'oggetto comando per l'oggetto di connessione . Impostare il CommandType adCmdStoredProc . Impostare il CommandText sul nome della stored procedure . Se la procedura richiede parametri , definire quelli che utilizzano CreateParameter .
5

eseguire la stored procedure chiamando il metodo dell'oggetto Command Esegui . Impostare il Recordset come il risultato del metodo Execute . È ora possibile accedere ai singoli campi all'interno del recordset che viene popolato con i dati restituiti dalla stored procedure . Se la stored procedure non restituisce dati , chiamare il metodo Execute senza impostare l'oggetto Recordset come il set di risultati .

• Come condividere i ticket di autenticazione tra applicazioni 
• Come programmare Screensaver animati in VB6