Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - Ottenere elenco tabelle in un DataBase
Forum - C# / VB.NET - Ottenere elenco tabelle in un DataBase

Avatar
superchecco (Normal User)
Pro


Messaggi: 141
Iscritto: 20/01/2007

Segnala al moderatore
Postato alle 10:34
Giovedì, 10/04/2008
Salve a tutti, qualcuno saprebbe dirmi se è possibile tramite un comando SQL ottenere un insieme di stringhe contente tutti i nomi di tutte le tabelle Access presenti in database???

sto diventando matto!
in pratica l'utente tramite un programma in vb crea nuove tabelle, decidendone anche il nome, quindi io non conosco ne il numero di tabelle presenti ne il nome!
aiutatemi please! :-|:-|

PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 17:52
Giovedì, 10/04/2008
Ti copio un pezzo di sorgente del mio programma Totem Charting:
Codice sorgente - presumibilmente VB.NET

  1. Dim dbCon As OleDb.OleDbConnection
  2.         Dim dbAdp As OleDb.OleDbDataAdapter
  3.         Dim Data As New DataSet
  4.         Dim SchemaTable As DataTable
  5.         Dim Tables As New List(Of DataTable)
  6.  
  7.         dbCon = New OleDb.OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Database)
  8.         'Apre la connessione
  9.         dbCon.Open()
  10.  
  11.         'Ottiene tutte le tabelle
  12.         SchemaTable = dbCon.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, Nothing})
  13.  
  14.         'Le aggiunge alla collezione
  15.         For I As Int16 = 0 To SchemaTable.Rows.Count - 1
  16.             If SchemaTable.Rows(I).Item(3) = "TABLE" Then
  17.                 Dim Name As String
  18.                 Dim Table As DataTable
  19.                 Name = SchemaTable.Rows(I).Item(2)
  20.                 dbAdp = New OleDb.OleDbDataAdapter("SELECT * FROM `" & Name & "`", dbCon)
  21.                 'E tramite questo riempie il dataset
  22.                 dbAdp.Fill(Data)
  23.                 Table = Data.Tables(0)
  24.                 Table.TableName = Name
  25.                 Tables.Add(Table)
  26.                 Data.Dispose()
  27.                 Data = New DataSet
  28.             End If
  29.         Next
  30.         'Chiude la connessione
  31.         dbCon.Close()
  32.  
  33.         'Rilascia tutto
  34.         Data.Clear()
  35.         Data.Dispose()


P.S.: Name è il nome di ogni tabella.

Ultima modifica effettuata da Il Totem il 10/04/2008 alle 17:53
PM Quote
Avatar
superchecco (Normal User)
Pro


Messaggi: 141
Iscritto: 20/01/2007

Segnala al moderatore
Postato alle 17:42
Venerdì, 11/04/2008
MERAVIGLIOSO!!  :D

PM Quote