https://foro.gambas-es.org/viewtopic.php?f=15&t=4594
-----------------------------------
v3ctor
Sunday, 10 May 2015, 22:52

Reto 6 (v3ctor) Listar Los View De Una Base De Datos En Listbox
-----------------------------------
el objetivo es encontrar todos los nombres de las vistas (view) de la base de datos  y visualizarlos en un listbox

abrir base de datos

si tabla "sqlite_master" entonces buscar campo  type

si campo "type" entonces buscar registro view

si registro "view"  entonces agregar nombre de vista (name) a un listbox

cerrar base de datos

(el esquema puede ser como vos quieras el objetivo es ver en un listbox los nombres de las vistas (view) de una base de datos x)

base de datos cortes del programa de julio. 
[url=https://www.dropbox.com/s/hh9yojkejd9rgrz/Cortes?dl=0]https://www.dropbox.com/s/hh9yojkejd9rgrz/Cortes?dl=0

reto para novatos como yo, no pueden participar los que sabida mente dominan el tema. salvo después de 15 días pasados desde la fecha de este post

nota: jaja solo me falta el ultimo paso grrrrrr  :shock:

enviar código a uno.cero@live.com


-----------------------------------
v3ctor
Sunday, 10 May 2015, 23:25

Re: Reto 6 (v3ctor) Listar Los View De Una Base De Datos En Listbox
-----------------------------------
bueno recién lo saque, bastante sucio el código  :oops: , pero funciona :P dentro de quince días lo muestro.


-----------------------------------
Torrealba2719
Sunday, 01 October 2017, 13:48

Re: Reto 6 (v3ctor) Listar Los View De Una Base De Datos En Listbox
-----------------------------------
[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


-----------------------------------
v3ctor
Sunday, 01 October 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]


-----------------------------------
v3ctor
Sunday, 01 October 2017, 16:44

Re: Reto 6 (v3ctor) Listar Los View De Una Base De Datos En Listbox
-----------------------------------
[img]https://foro.gambas-es.org/files/images/2261/reto6.png[/img] 

lo había perdido al código, pero bueno en 10 minutos lo saque, eso quiere decir que he mejorado mucho en programación desde el día que postie el reto  :shock:


