https://foro.gambas-es.org/viewtopic.php?f=15&t=4594&p=40088#p40088
-----------------------------------
v3ctor
Domingo, 01 Octobre 2017, 16:41

Re: Reto 6 (v3ctor) Listar Los View De Una Base De Datos En Listbox
-----------------------------------
[quote user="Torrealba2719" post="40084"][quote user="v3ctor" post="26310"]bueno recién lo saque, bastante sucio el código  :oops: , pero funciona :P dentro de quince días lo muestro.[/quote]

Muestra el codigo :D[/quote]


[code linenumbers=false syntax=gambas]' Gambas class file

Public conexion As Connection


Public Sub Button1_Click()
 Dim r As Result
  
  Dialog.Path = User.Home
  
  If Dialog.OpenFile() Then Return
  
  ListBox1.Clear()
  
  ' Print File.Dir(Dialog.Path)
  ' Print File.Name(Dialog.Path)
  
  conexion = New Connection
  conexion.Type = "sqlite3"
  conexion.Host = File.Dir(Dialog.Path)
  conexion.Name = File.Name(Dialog.Path)
  
  conexion.Open()
  
  r = conexion.Exec("select * from sqlite_master where type='view'")
  
  If r.Available Then
    Do While r.Available
      ListBox1.Add(r!name)
      r.MoveNext
    Loop
    
  Endif
  
  conexion.Close()
  
End[/code]


