Originariamente inviato da emerson74
ciao a tutti,
in che modo posso avere l'elenco delle tabelle contenute in un database?
devo fare un ciclo ok ma non ho la più pallida idea da dove cominciare.

Grazie per l'aiuto

Questo si fa con ADODB
codice:
    Set rs = MyCon.OpenSchema(adSchemaTables)
Per il resto lo scorri come un recorset normale

In questo modo ti ritorna anke le tabelle di sistema.
Per eliminarle devi:
codice:
    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
Spero ti sia utile ^_^