[VB6] Errore run time 91 "Variabile oggetto non impostato"

[Valeriodev]

Salve a tutti!!
Sto scrivendo un software in visual basic interfacciato con mySql!!!
TUtto apposto tranne che oggi provando mi sono accorto che un metodo non funziona,anche se prima funzionava :master:
Sto ,praticamente passo alla funzione una struttura creata da me chiamata CampiRecord, la struttura arriva piena infatti se controllo Ubound(k) mi restituisce 9 che è il numero corretto ma quando vado per scorrerlo mida errore run time 91 variabile oggetto....non impostato!!!

posto il codice sperando che qualcuno riesca a capire il problema!!!

Friend Function InserisciWeb(tabella As String, mySinc As Variant) As Boolean
    On Error GoTo errore
    '---------- Dichiarazione locale --
    Dim k() As CampiRecord 
    Dim ks As ADODB.Recordset
    Dim l_indice As Integer
    Dim c_index As Integer
    Dim l_tempCampo As Variant
    '----------------------------------
   Dim a As String
    '--------- Inizializazione -- 
    k = mySinc
    Set ks = Me.apri_tabella("select * from " & tabella, adOpenStatic, adLockOptimistic) 
    
    For l_indice = 0 To UBound(k)
        ks.AddNew
         c_index = 0
         For Each l_tempCampo In k(l_indice).Campi 'Qui da errore su k(l_indice).Campi k sarebbe mySinc che lo passo come variant sennò mi da errore e lo passo ad una variabile ti tipo campi record!!
            If (c_index <> 0) Then ks.Fields(c_index) = IIf(l_tempCampo = "", Null, l_tempCampo) 
            c_index = c_index + 1
         Next
    Next l_indice
    ks.Update
    ks.Close
    Set l_tempCampo = Nothing
    Set kss = Nothing
    '------------------------------
    Exit Function 
errore:
    MsgBox "Errore : " & vbCrLf & Err.Description, vbCritical
End Function

[Stefano1984Mn]

dove gli dichiari UBound?????

[Stefano1984Mn]

scusa ti ho chiesto una cavolata

[alka]

Parliamo di VB6? Hai letto il Regolamento?

[Valeriodev]

Scusate ma vedendo il nome del forum "Visual Basic e .Net Framework" pensavo Visual Basic fosse chiaro.Cmq si Visual Basic 6 e sto uscendo pazzo :-)!!!!

[oregon]

Come e dove e' dichiarata la struttura CampiRecord ?

Questo codice e' inserito in un modulo oggetto (una classe)?

Come e' richiamato e da dove?

[Valeriodev]

Giusto hai ragione.
Siamo dentro un modulo di classi e campi record è una collection dentro un altro modulo di classe!

[oregon]

Mostra il codice principale dei vari moduli ...

[Valeriodev]

Quindi

CampiRecord.cls

'----- ( Proprietà : Campi ) --------
Public Campi As New Collection
'----------------------------------

Gestione.cls

'-------( Funzione : InserisciWeb ) ----------------------------------------
Friend Function InserisciWeb(tabella As String, mySinc As Variant) as Boolean
    On Error GoTo errore
    '---------- Dichiarazione locale --
    Dim k() As CampiRecord
    Dim ks As ADODB.Recordset
    Dim l_indice As Integer
    Dim c_index As Integer
    Dim l_tempCampo As CampiRecord
    '----------------------------------
   Dim a As String
    '--------- Inizializazione --
    k = mySinc
    'Ovviamente apri_tabella è sempre un metodo a cui basso la query.....
    Set ks = Me.apri_tabella("select * from " & tabella, adOpenStatic, adLockOptimistic)
    
    For l_indice = 0 To UBound(k)
        ks.AddNew
         c_index = 0
         For Each l_tempCampo In k(l_indice).Campi 'Qui da l'errore "Variabile oggetto o variabile del blocco With non impostata" anche se su ubound mi da 9 mhaaaaa potevo capire che era vuota o non inizializzata ma è piena cavolo!!!
            If (c_index <> 0) Then ks.Fields(c_index) = IIf(l_tempCampo = "", Null, l_tempCampo)
            c_index = c_index + 1
         Next
    Next l_indice
    ks.Update
    ks.Close
    Set l_tempCampo = Nothing
    Set l_rs = Nothing
    '------------------------------
    Exit Function
errore:
    MsgBox "Errore : " & vbCrLf & Err.Description, vbCritical
End Function

'---------------------------------------

'Questa è la classe di supporto per tutte le altre e qui c'è la funzione che non va, cmq sto incominciando a pensare che sia il mySql il problema anche se logicamente al momento dell'errore non centra niente il DB, possiamo cmq escludere che il problema sia la conversione da variant in CampiRecord xchè lo faccio in altri 200 metodi e li mi scorre tranquillamente ovunque quindi non riesco a capire!!!

[Valeriodev]

Praticamente ho notato che se con il metodo che mi carica la mia struttura carico un altra tabella , anzi con qualsiasi altra tabella il metodo funziona!!!
Mentre se carico e passo al metodo la tabella articoli non va!!!
Ma non riesco a capire se il metodo è lo stesso e prosegue senza problemi xchè se carico una tabella funziona e se carico proprio quest tabella mi da questo errore stranoo????
HELP!!!