[VB6] Indicizzazione campo con valore di proprietà Tag

[micolla]

Sono sempre io lo scarso....

Mi sapete indicare la sintassi giusta????

If Len(rsTipo.Fields("cmbCliente(I).Tag")) > 0 Then
'''
end if


come gli devo passare il tag del campo cmbCliente???


e se gli passo :

campo=cmbCliente(I).Tag
If Len(rsTipo.Fields(campo)) > 0 Then

mi dice che non trova 'campo'.....????
Mi sapete aiutare??

[MItaly]

Ma che versione di VB è? Cos'è rsTipo? Cos'è cmbCliente?
Se si tratta (come credo) di VB6 e cmbCliente è un array di combobox allora:

If Len(rsTipo.Fields(cmbCliente(I).Tag)) > 0 Then

(come speravi che funzionasse con le virgolette? Le virgolette delimitano del testo, il loro contenuto non viene valutato!).

[micolla]

Questo è tutto il codice:

Dim cnTIPO As New ADODB.Connection
Dim sqlTipo As String

For I = 0 To cmbCliente.Count - 1
Set rsTipo = New ADODB.Recordset

sqlTipo = "SELECT distinct '" & cmbCliente(I).Tag & "' FROM cliente"
Call carica_database(cnTIPO, rsTipo, sqlTipo, "db.mdb")

Do While Not rsTipo.EOF Or rsTipo.BOF
If Len(rsTipo.Fields(cmbCliente(I).Tag)) > 0 Then ' ----- l'errore è qui!!! -----
cmbCliente(0).AddItem UCase(rsTipo.Fields(cmbCLIENTE(I).tag)
End If
rsTipo.MoveNext

Loop
rsTipo.Close
Next I



N.B cmbCliente è un serie di combobox
IL problema è che non riconosce il campo infatti mi dice:"Impossibile trovare l'oggetto nell'insieme corrispondente...."
Aiutami ! Grazie 1K per ora!
:master:

[oregon]

Dovresti controllare il valore di

cmbCliente(I).Tag

quando il programma si ferma ...

Usa la finestra di debug ...

[micolla]

il valore è corretto!
mi dice il nome del campo!

[oregon]

Hai controllato in debug tutti i valori della proprieta' Tag di tutti i combo al variare di I ?

L'errore che hai indicato si riferisce al fatto che quello che viene indicato come nome di campo, non esiste ... quindi ...

[alka]

Originariamente inviato da micolla
Mi sapete indicare la sintassi giusta????

Indica il linguaggio nel titolo, e usa una descrizione sintetica che sia significativa.

Ho corretto io il titolo.

[micolla]

ops... scusa ALKA!!

Mi spiego meglio:

COMBO = cmbCliente(I).Tag
MsgBox COMBO
cmbCliente(I).AddItem rsTipo.Fields(COMBO) ' ----- l'errore è qui!!! -----

In questo codice ho messo 'msgbox combo' per verificare che il tag sia corretto; infatto il msgbox mi restituisce a video -- tipo -- cioe il tag corretto.
Nella riga successiva mi fa intendere che non trova il campo -- combo -- quindi deduco che la sintassi -- rstipo.fields(COMBO) --- sia sbagliata .
mi dice sempre:"Impossibile trovare l'oggetto nell'insieme corrispondente...."
Nel db il campo --tipo-- esiste!!!

Aiutatemi questo piccolo codice mi fa risparmiare moltissime righe di codice!! funzionasse!!!!!!

[oregon]

No ... se i da' quell'errore allora il campo tipo non esiste nel recordset ottenuto ...

Attento ... non nel db ma nel recordset ...

Esegui il programma in debug e fermati poco prima dell'errore.

A quel punto scrivi tutti i nomi dei campi in debug, ad esempio con

Print rsTipo.Fields(0).Name

Print rsTipo.Fields(1).Name

e cosi' via per i campi che dovrebbero stare nel recordset ...

[micolla]

Tenendo presente il codice di prima potrei modificare la sintassi in questa maniera:

If rsTipo!COMBO <> "" Then

L'errore è uguale! come la correggo???