Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
App. Visual Studio 6.0
Problemi recordset
venerdì 04 agosto 2006 - 10.06
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
gandalf_03_75
Profilo
| Junior Member
68
messaggi | Data Invio:
ven 4 ago 2006 - 10:06
Ciao a tutti volevo chiedervi se gentilmente potevate darmi una mano ... non riesco a risolvere.
Allora ho la necessita di eseguire una stored da vb6 passando alla stessa due parametri
il codice e' il seguente
Public Function ListaAnagrafica(IdSocieta As String, IdRapporti As String) As ADODB.Recordset
On Error GoTo ErrHandler
'definizione delle variabili
Dim qryCommand As ADODB.Command
Dim DRResult As ADODB.Recordset
Dim adoParam As ADODB.Parameter
'apertura della connessione
If DatabaseConnect() Then
'se la connessione è riuscita si esegue una StoredProcedure per la
'verifica delle abilitazioni dell'utente
Set qryCommand = New ADODB.Command
'impostazione dei parametri
With qryCommand
'impostazione della connessione
.ActiveConnection = gConnection
'impostazione della tipologia di comando da eseguire
.CommandType = adCmdStoredProc
'impostazione del nome della store procedure
.CommandText = "sp_Anagrafica"
'Aggiungo i parametri
Set adoParam = .CreateParameter("@IdSocieta", adVarChar, adParamInput, 100, IdSocieta)
.Parameters.Append adoParam
Set adoParam = .CreateParameter("@IdTipoContratto", adVarChar, adParamInput, 100, IdRapporti)
.Parameters.Append adoParam
End With
'esecuzione della StoredProcedure
Set DRResult = qryCommand.Execute
Set adoParam = Nothing
'ritorno del recordset
Set ListaAnagrafica = DRResult
Else
Set adoParam = Nothing
Set qryCommand = Nothing
Set ListaAnagrafica = Nothing
End If
ErrHandler:
If Err.Number <> 0 Then
If Not qryCommand Is Nothing Then
If Not qryCommand.ActiveConnection Is Nothing Then
If qryCommand.ActiveConnection.State = adStateOpen Then
qryCommand.ActiveConnection.Close
End If
End If
Set qryCommand = Nothing
End If
Set adoParam = Nothing
DatabaseCloseConnect
Set ListaAnagrafica = Nothing
End If
End Function
Se la eseguo ottengo il seguente errore
L'operazione non è consentita se l'oggetto è chiuso.
Grazie
Per i paurosi il futuro resterà sconosciuto, per i deboli sarà irraggiungibile, per gli incoscienti offrirà nuove opportunità.
filippo.monti
Profilo
| Junior Member
145
messaggi | Data Invio:
lun 7 ago 2006 - 16:41
Su quale riga ottieni l'errore?. A prima vista sembrerebbe che stai lavorando su un recordset chiuso...
Ciao
Filippo
gandalf_03_75
Profilo
| Junior Member
68
messaggi | Data Invio:
lun 28 ago 2006 - 10:37
Ciao grazie per l'intervento ma il probema era dovuto alla stored procedure macava
questo:
set nocount on
Grazie mille
Per i paurosi il futuro resterà sconosciuto, per i deboli sarà irraggiungibile, per gli incoscienti offrirà nuove opportunità.
Torna su
Stanze Forum
Elenco Threads
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?
Dopo esserti registrato potrai chiedere
aiuto sul nostro
Forum
oppure aiutare gli altri
Consulta le
Stanze
disponibili.
Registrati ora !