codice:
counter=0
camp=0
controlcampo(tabcnome(counter)(camp))
DO while NOT counter=numtab
addconn.Execute("CREATE TABLE" & systemtab(counter) & "("
DO WHILE NOT tabcnum(counter)=camp
 & nome & ctype & "(" & x & "),"
controlcampo(tabcnome(counter)(camp))
)
LOOP
counter=counter+1
LOOP
questo script dovrebbe praticamente creare un x numero di tabelle e un x numero di campi per tabella, è un po complesso visto il numero di variabili spero di riuscire a spiegarmi
Dunque per prima cosa uso counter per controllare il numero di loop fatti e vedere se è uguale al numero di tabelle che devo creare per fermarmi

counter=0
DO while NOT counter=numtab

poi mi connetto e creo la tabella:
addconn.Execute("CREATE TABLE" & systemtab(counter)& "("

systemtab è il nome variabile della tabella ed è definito in un array
counter naturalmente individua in modo univoco l'array

poi istamzio un altro loop ( non sono proprio sicuro che si possa fare in questo modo ma non ne vedevo altri)

DO WHILE NOT tabcnum(counter)=camp
tabcnum è il numero di campi per tabella ed è definito in un array
counter naturalmente individua in modo univoco l'array ed uguale alla tabella

poi
& nome & ctype & "(" & x & "),"

questo
è dato dalla funzione qua sotto
controlcampo(tabcnome(counter)(camp))

che divide in nome ctype e x una variabile, la funzione inoltre aggiunge 1 alla variabile camp per permettere di passare all'array successivo.


poi

LOOP
counter=counter+1
LOOP

si chiudono i loop e si aggiunge uno al counter dei nomi della tabella per passare alla tabella successiva

l'errore (se ne saranno un sacco) viene inserito qua
addconn.Execute("CREATE TABLE" & systemtab(counter) & "("
^^



grazie