variabili indicizzate

[Frankos]

Salve,

ho il seguente codice:

for c=1 to n-1
campoOrigine1=rs(c).name
campoDestinazione1=rs(c).name
valoreOrigine1=rs(campoOrigine1)
valoreOrigine1=Replace(valoreOrigine1, "'", "''")
next


Il codice qui sopra funziona correttamente, ma se ora vorrei indicizzare le variabili all'interno del ciclo a seconda del valore di c, mi dà un errore di sintassi :

for c=1 to n-1
campoOrigine&c=rs(c).name
campoDestinazione&c=rs(c).name
valoreOrigine&c=rs(campoOrigine&c)
valoreOrigine&c=Replace(valoreOrigine&c, "'", "''")
next

dove sta l'errore?

[optime]

aridajela. regola n°x. il nome di variabiel *non* si può costruire. *non* si può scrivere variabile & i (dove i=1) e sperare di ottenere variabile1. usa gli array / matrici / vettori (chiamali come vuoi). variabile(i)! questo funziona.

[Frankos]

Ciao optime,

ammetto che la regola n°X non la conoscevo, ma prima ancora di postare la mia domanda avevo provato anche questo codice e mi dava ugualmente errore:



dim campoOrigine(n)
dim campoDestinazione(n)
dim valoreOrigine(n)
for c=1 to n-1
campoOrigine(c)=rs(c).name
campoDestinazione(c)=rs(c).name
valoreOrigine(c)=rs(campoOrigine(c))
valoreOrigine(c)=Replace(valoreOrigine(c), "'", "''")
next

[optime]

aridajela 2. regola n°y. così come non puoi andare dal dottore e dirgli "mi fa male" e basta, non puoi dirci "mi dà errore" e basta. devi dire dove come quando perché numero di scarpe e se ti piace la pasta al sugo o in bianco.

[Frankos]

con l'ultimo codice postato, quello che utilizza gli array, mi da questo errore:

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0402)
Prevista costante Integer
/pagina2.asp, line 29, column 12
dim origine(n)
-----------^

[optime]

"n" vale qualcosa? dovresti aver scritto qualcosa del tipo

n=100
dim origine(n)

e non soltanto

dim origine(n)

abbi un po' di comprensione per lo schiavetto!

[Frankos]

Questo é il codice con le due righe precedenti che definiscono n
Ho verificato che n prenda il valore e in effetti é cosi poiché se eseguo il ciclo for-next utilizzando all'interno la variabile non indicizzata, questo vene effettuato correttamente.


rs.Open "SELECT * FROM "&tabellaOrigine, dbConn_a
n=rs.Fields.Count
dim campoOrigine(n)
dim campoDestinazione(n)
dim valoreOrigine(n)
for c=1 to n-1
campoOrigine(c)=rs(c).name
campoDestinazione(c)=rs(c).name
valoreOrigine(c)=rs(campoOrigine(c))
valoreOrigine(c)=Replace(valoreOrigine(c
), "'", "''")
next

[optime]

Usa ReDim invece di Dim. Il giovane non accetta variabili per la Dim...

[Frankos]

Ho provato con ReDim e ora mi segnala questo errore :

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: 'campoOrigine'

[optime]

quale riga?