Problemi recordset

venerdì 04 agosto 2006 - 10.05

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:05

Scusate ma involontariamnete ne ho inseriti due ...

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

Grazie

L'operazione non è consentita se l'oggetto è chiuso.
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 !