[VB] Visualizzare tabelle di un file ACCESS

[magnus]

Come si fa a visualizzare il nome delle tabelle contenute in un file ACCESS?

Grazie a tutti!

[ladyBlu]

dai un'occhiata qui: http://forum.html.it/forum/showthrea...t=nome+tabelle

[magnus]

Ho provato così ma non funziona!


Set cnado = New ADODB.Connection
cnado.Open = "dsn=prova"
Set rs = cnado.OpenSchema(adSchemaTables)
Do While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
If rs.Fields(i).Name = "TABLE_NAME" Then
TableName$ = CStr(rs.Fields(i).Value)
End If
If rs.Fields(i).Name = "TABLE_TYPE" Then
If rs.Fields(i).Value = "TABLE" Then
TxtTable.Text = TxtTable.Text & TableName$ & vbCrLf
TableName$ = ""
End If
End If
listable.AddItem (rs.Fields(i).Name + "=" + CStr(rs.Fields(i).Value))
Next
rs.MoveNext
Loop

Come posso fare?

[magnus]

Il primo valore della combo è TABLE_CATALOG, il secondo valore è NULL!

[magnus]

Ok, funziona... Ho eliminato la listable.additem ecc...