Per quanto riguarda SQLite la query è
SELECT name FROM sqlite_master WHERE type = "table"
Questo può aiutare?:
https://dev.mysql.com/doc/refman/8.0/en/show-tables.html
ciao dex come dice Gianluigi devi usare una tabella denominata sqlite master
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
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: