Mostrar el esquema de una base de datos sqlite3

Mostrar el esquema 

de una base de datos sqlite3

Os dejo una pequeña aplicación que es capaz  de mostrar el esquema de una base de datos Sqlite: sus tablas, Vistas, nombre y tipo campos.

Vista Diseño

Código fuente::
' gambas class file

Public Sub _new()

End

Public Sub Form_Open()

Me.center

End

Public Sub ButtonSalir_Click()

Me.Close

End

Public Sub ButtonEligeFichero_Click()

Dialog.filter = ["*.sqlite", "sqlite"]
If Not Dialog.OpenFile() Then

TextBoxRuta.text = Dialog.Path
ButtonMostrarEsquema_Click()
Endif

End

Public Sub ButtonMostrarEsquema_Click()

Dim hconn As New Connection
Dim hresult As Result
Dim contenido As String
'abrir base de datos
hconn.host = TextBoxRuta.Text
hconn.Name = TextBoxRuta.Text
hconn.Type = "Sqlite3"

Try hconn.Open()
If Error Then
Message.Error("Se ha producido un error al intentar leer la base de datos")
Return

Endif

hresult = hconn.Exec("SELECT sql From sqlite_master ")

contenido = ""
While hresult.Available

contenido &= hresult["sql"] & gb.NewLine
hresult.MoveNext
Wend

TextArea1.text = contenido

End

En ejecución mostrando el esquema.

Descarga el código y proyecto completo: descarga alojada en google drive

Fuente:
http://www.gambas-es.org/viewtopic.php?f=3&p=23369#p23369