[vba] elenco campi di una tabella

[Don Navarro]

Devo ottentere l'elenco dei campi contenenti in una tabella,
che metodo posso usare???

In più dovrei anche riconoscere se quella tabella è di sistema ma non riesco a trovare la proprietà che mi distingue tabelle normali da quelle si sistema.

[Toeke]

Per ottenere l'elenco dei campi di una tabella

MyRs.Fields(i).Name  'nome della colonna

Per verificare se la tabella e' di sistema devi crearti un recorset che faccia vedere lo schema

Set MyRsSchema = MDB.OpenSchema(adSchemaTables)

Scorri il recorset in questo modo:

	Text1.Miltiline = true
	Text1.scrollBars=2  'Vertical
	Do While Not MyRsSchema.EOF
		Text1.text= Text1.text & "Nome = " & MyRsSchema.Fields(i).Name & " - Valore = " & MyRsSchema.Fields(i).Name & vbCrLf
		MyRsSchema.MoveNext
	loop

L'ho scritto in velocita' e senza provarlo, ma in linea di massima dovrebbe andare.

Toeke