[VB6] durata del valore di una property

[ishanto]

Allora ho dichiarato una classe che ha un attributo clickUtente:

Private clickUtente as Integer

ha le relative GET e LET per leggere e impostare il valore; ora nel momento in cui l'utente fa click su un menu qualsiasi quest'attributo viene riempito con un valore ( per es. 3), in seguito il lavoro va avnti eseguendo connessione , interrogazione del db e ricevimento del recordset...

ora nella stessa classe è ritornato il recordset ricevuto e per vedere in che form devo sbattere i dati volevo controllare il valore di questa proprietà clickUtente ma quando vado a vedere mi da = a 0 !

perchè? come faccio a mantenerla?

[ishanto]

ma ho postato su un forum di VB vero? sto iniziando ad avere dubbi... :master:

[junx]

potresti postare un po' di codice....

[ishanto]

ho risolto, grazie!

[junx]

scommetto sul forum di VB su visual-basic.it.......

[ishanto]

no, ahime anche li nada risposta! ho dovuto tentare fin a quando non ho trovato la soluzione ai miei problemi! cmq il problema ora è al chiusura del recordset e della connessione che non fa!

ecco il codice se ti interessa:

Public cn As ADODB.Connection ' DICHIARO L'OGGETTO CONNECTION
Public rs As ADODB.Recordset ' DICHIARO L'OGGETTO RECORDSET
Private db_path As String
Private connString As String
Private domandaDB As String
Public Sub apriConnessione()
db_path = App.Path & "\Template.mdb"
connString = "PROVIDER=MSDataShape; Data Provider=Microsoft.Jet.oledb.4.0; Data Source=" & db_path
Set cn = New ADODB.Connection
cn.ConnectionString = connString
cn.Open
MsgBox "connessione aperta"
End Sub
Public Sub eseguiQuery(ByVal queryToDb As String)
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = cn
.LockType = 1
.Source = queryToDb
.Open
End With
End Sub
Public Property Let valQuery(ByVal queryDB As String)
domandaDB = queryDB
End Property
Public Sub getDati(ByVal queryDB As String)
apriConnessione
eseguiQuery (queryDB)
sendDati
End Sub
Public Function sendDati() As ADODB.Recordset
Dim dbContr As clsDbController
Set dbContr = New clsDbController
dbContr.reciveResultsQuery = rs
Set dbContr = Nothing
End Function
Public Sub chiudiConnessione()
rs.Close
cn.Close
MsgBox "connessione chiusa"
End Sub

ps: ma perchè non funziona lo scroll del mouse nel codice di vb??

[junx]

che errore ti da?

x lo scroll scarica questa dll:

http://www.astrobright.com/software/...b6wheelfix.dll

salvala su C:\Windows\System32

Chiudi VB6 se cel'hai aperto

vai su Start>Esegui> Regsvr32 vb6wheelfix.dll

Apri VB6

vai su Aggiunte>Gestione Aggiunte

Scegli MouseWheelFix e spunta Caricato/Scaricato e Carica all'avvio.

Ciao.

[ishanto]

quando arriva ad eseguire rs.close mi da errore 91 ..variabile oggetto non definita ma l'ho definita sia rs che cn nelle altre sub con set rs = new adodb.recordset e set cn = new adodb.connection; infatti quando scrivo il codice e metto rs. mi compare la lsita di proprietà dell'oggetto rs e altrettanto per cn ma non le chiude!