Autore Topic: Caricare nomi tabelle in Listwiew  (Letto 637 volte)

Offline dex

  • Gran Maestro dei Gamberi
  • *****
  • Post: 872
    • Mostra profilo
Caricare nomi tabelle in Listwiew
« il: 02 Luglio 2019, 01:08:11 »
Ciao raga

devo caricare tutti i nomi delle tabelle presenti in un database in una listwiew
esempio: Database Sedi Tabelle sede1, sede2 ecc..
non posso aggiungerle a mano in quanto non so a priori ne la quantita ne il nome delle tabelle
no so da dove cominciare, mi date una dritta

Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.153
  • Tonno verde
    • Mostra profilo
Re:Caricare nomi tabelle in Listwiew
« Risposta #1 il: 02 Luglio 2019, 11:32:32 »
Per quanto riguarda SQLite la query è
Codice: [Seleziona]
SELECT name FROM sqlite_master WHERE type = "table"

Questo può aiutare?:
https://dev.mysql.com/doc/refman/8.0/en/show-tables.html
« Ultima modifica: 02 Luglio 2019, 11:47:47 da Gianluigi »
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro

Offline naderit

  • Grande Gambero
  • ***
  • Post: 140
    • Mostra profilo
Re:Caricare nomi tabelle in Listwiew
« Risposta #2 il: 02 Luglio 2019, 21:51:19 »
ciao dex come dice Gianluigi devi usare una tabella denominata sqlite master
Codice: [Seleziona]
Public Sub Button17_Click()
Dim nometab As Result
Dim sql As String
Dim i As Integer
Mod_Open.$conn.Close
ListBox4.Clear
Mod_Open.db_clienti 'connessione al db'

sql = "SELECT name FROM sqlite_master WHERE type = 'table'" 'è possibile ottenere l'accesso a nomi di tabella e indice facendo un SELECT su una tabella speciale denominata "sqlite_master"'
 nometab = Mod_Open.$conn.Exec(sql, Null)

For i = 0 To nometab.Max ' ciclo per scrivere i nomi delle tabelle nella listbox'
  nometab.MoveTo(i)
  ListBox4.Add(nometab[0])
Next
Mod_Open.$conn.Close

End

Codice: [Seleziona]
Public Sub open_fileanno()
Dim nometab As Result
Dim sql As String
Dim i As Integer

Mod_Open.db_clienti ' connessione al db'
 
 sql = "SELECT name FROM sqlite_master WHERE type = 'table' AND name LIKE '2%'" 'è possibile ottenere l'accesso a nomi di tabella e indice facendo un SELECT su una tabella speciale denominata "sqlite_master" con LIKE puoi filtrare le tabelle'
 nometab = Mod_Open.$conn.Exec(sql, Null)

For i = 0 To nometab.Max ' ciclo per scrivere i nomi delle tabelle nella listbox filtrati con LIKE'

  nometab.MoveTo(i)
  ListBox3.Add(nometab[0])
Next

Mod_Open.$conn.Close

End

 :ciao:

Offline dex

  • Gran Maestro dei Gamberi
  • *****
  • Post: 872
    • Mostra profilo
Re:Caricare nomi tabelle in Listwiew
« Risposta #3 il: 04 Luglio 2019, 12:16:49 »
grazie raga
ora faccio delle prove, il database è mysql e se non funziona mi riverso le tabelle in sqlite e poi provo il codice di naderit

Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.153
  • Tonno verde
    • Mostra profilo
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro

Offline dex

  • Gran Maestro dei Gamberi
  • *****
  • Post: 872
    • Mostra profilo
Re:Caricare nomi tabelle in Listwiew
« Risposta #5 il: 05 Luglio 2019, 18:06:24 »
 :ok: :ok:
grazie Gian