[VB6] Problemi in VB x Access

[dmagnoni]

Salve a tutti, sto scrivendo un programma in Visual Basic x Access
e vi chiedo due cose che non riesco a trovare nell'help :
1) quale istruzione Visul Basic mi da i nomi dei campi delle tabelle del file Access?
2) quale istruzione Visual Basic mi da i nomi dei file Excel aperti mentre il
programma è in esecuzione ?
Grazie a tutti.
Ciao, Daniele

[MMarzia]

specificare anche la versione di VB, come da regolamento

[dmagnoni]

OK, la versione è Visual Basic 6.0

[MauroD]

Originariamente inviato da dmagnoni
1) quale istruzione Visul Basic mi da i nomi dei campi delle tabelle del file Access?

set Cn = New ADODB.Connection ' Commessione ADO
call Cn.Open(CommectionString, UsedID, Pwd, Option)
set Rs = Cn.OpenSchema(AdSchemaTables)
do while Rs.Eof
 for i=0 to Rs.Fields.Count-1
  if Rs.Fields(i).Name="TABLE_NAME" THEN
   debug.print Rs.Fields(i).Value
  end if
 next
 Rs.MoveNext
loop

[dmagnoni]

Col codice che mi hai inviato vengono visualizzati i nomi
delle tabelle, ma a me servirebbero i nomi dei campi delle
tabelle.
Puoi ancora aiutarmi ?
Grazie mille comunque
Daniele

[MauroD]

ops.
poi ci guardo

[MauroD]

set Cn = New ADODB.Connection ' Commessione ADO
call Cn.Open(CommectionString, UsedID, Pwd, Option)
set Rs = Cn.OpenSchema(AdSchemaTables)
do while Rs.Eof
 for i=0 to Rs.Fields.Count-1
  if Rs.Fields(i).Name="TABLE_NAME" THEN
   if Rs.Fields(i).Value = MyTabella then flag=true:exit do  'Tabella trovata
  end if
 next
 Rs.MoveNext
loop
set Rs = nothing
call Rs.Open("select top 1 * form " & MyTabella,cn,adOpenStatic,adLockReadOnly)
for i =0 to rs.fields.count
 if rs.fields(i).Name=MyColonna then Flag=true : Exit For
next

Tieni presente che:
Io ho messo tutto questo in una funzione dove gli passo il nome della tabella e il campo.
Testo ogni singolo campo perche' i clienti hanno la brutta abitudine di smanettare sui DB.
In questa maniera se un campo che deve esserci non c'e' me lo segnala.
Cmq nel tuo caso rs.fields(i).Name contiene i nomi dei campi della tabella.

[dmagnoni]

Ok, grazie mille ... cosi' funziona

E per vedere quali file Excel sono aperti mentre il
programma Access sta girando hai qualche idea ?

Grazie ancora
Daniele

[MauroD]

Originariamente inviato da dmagnoni
Ok, grazie mille ... cosi' funziona

E per vedere quali file Excel sono aperti mentre il
programma Access sta girando hai qualche idea ?

Grazie ancora
Daniele

No, I'm sorry

[dmagnoni]

Ok, non c'è problema,
grazie ancora dell'aiuto