Salve a tuttoil forum.

Vorrei sapere come si chiamano le tabelle che si trova nel mio database.
Per fare questo ho utilizzato una query (proposta da Daniele Bochicchio nella mailing list):

select name from MSysObject where type = 1

Ma il sistema mi dice che non ho i permessi necessari per vedere gli oggetti di MSysObject.

Come faccio?

Grazie



Alfredo Silvano

il testo seguente è preso dalla Guida di Visual Basic on line, aperta da access....



Esempio di metodo OpenSchema (VB)


In questo esempio il metodo OpenSchema viene utilizzato per visualizzare il nome e il tipo di tutte le tabelle nel database Pubs.

Public Sub OpenSchemaX()

Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String

Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=Pubs;User Id=sa;Password=; "
cnn1.Open strCnn

Set rstSchema = cnn1.OpenSchema(adSchemaTables)

Do Until rstSchema.EOF
Debug.Print "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr
rstSchema.MoveNext
Loop
rstSchema.Close

cnn1.Close

End Sub

Nell'esempio seguente verrà specificato un vincolo per la query TABLE_TYPE nell'argomento Criteri del metodo OpenSchema. Verranno quindi restituite solo le informazioni sullo schema per le visualizzazioni specificate nel database Pubs. Nell'esempio verranno infine visualizzati il nome e il tipo di ciascuna tabella.

Public Sub OpenSchemaX2()

Dim cnn2 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String

Set cnn2 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=Pubs;User Id=sa;Password=; "
cnn2.Open strCnn

Set rstSchema = cnn2.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "VIEW"))

Do Until rstSchema.EOF
Debug.Print "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr
rstSchema.MoveNext
Loop
rstSchema.Close

cnn2.Close

End Sub




SPERO E CREDO TI SIA UTILE. CIAO.

Grazie per avere risposto.

La tabella è access.



Alfredo Silvano