Visualizzazione dei risultati da 1 a 4 su 4

Discussione: elenco tabelle

  1. #1

    elenco tabelle

    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
    ::: Crepes Designer ::: http://www.mauriziobrevi.com

  2. #2
    Utente di HTML.it L'avatar di heroes3
    Registrato dal
    Aug 2001
    Messaggi
    2,483
    apri il db
    e gli dai un

    LIST TABLES


  3. #3
    spetta heroes, temo di non avere capito.
    i comandi list tables non so come piazzarli, se uso VB metto un controllo DATA nella mia form e uso quello per le varie operazioni oppure se lo faccio usando il VB_Editor all'interno di access magari ci sono altri modi.
    fatto sta che non so come utilizzare i comandi che mi hai suggerito.
    mi potresti spiegare più dettagliatamente?
    Grazie mille ancora
    ::: Crepes Designer ::: http://www.mauriziobrevi.com

  4. #4
    Utente di HTML.it L'avatar di Toeke
    Registrato dal
    Aug 2002
    Messaggi
    348

    Re: elenco tabelle

    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 ^_^

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.