19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
SELECT name FROM sqlite_master WHERE type = "table"
Public Sub Button17_Click()Dim nometab As ResultDim sql As StringDim i As IntegerMod_Open.$conn.CloseListBox4.ClearMod_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])NextMod_Open.$conn.CloseEnd
Public Sub open_fileanno()Dim nometab As ResultDim sql As StringDim i As IntegerMod_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])NextMod_Open.$conn.CloseEnd