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.
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
enviar código a
Reto 6 (v3ctor) Listar Los View De Una Base De Datos En Listbox
Subject: Reto 6 (v3ctor) Listar Los View De Una Base De Datos En Listbox
Last edited by v3ctor on Monday, 11 May 2015, 03:05; edited 2 times in total
Last edited by v3ctor on Monday, 11 May 2015, 03:05; edited 2 times in total
Subject: Re: Reto 6 (v3ctor) Listar Los View De Una Base De Datos En Listbox
bueno recién lo saque, bastante sucio el código , pero funciona dentro de quince días lo muestro.
Subject: Re: Reto 6 (v3ctor) Listar Los View De Una Base De Datos En Listbox
Muestra el codigo
v3ctor escribió:
Muestra el codigo
Subject: Re: Reto 6 (v3ctor) Listar Los View De Una Base De Datos En Listbox
Last edited by v3ctor on Sunday, 01 October 2017, 16:48; edited 1 time in total
Torrealba2719 escribió:
' 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
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
Last edited by v3ctor on Sunday, 01 October 2017, 16:48; edited 1 time in total
Subject: Re: Reto 6 (v3ctor) Listar Los View De Una Base De Datos En Listbox
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
Last edited by v3ctor on Sunday, 01 October 2017, 16:47; edited 2 times in total
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
Last edited by v3ctor on Sunday, 01 October 2017, 16:47; edited 2 times in total
Page 1 of 1
You cannot post new topicsYou cannot reply to topics
You cannot edit your posts
You cannot delete your posts
You cannot vote in polls
You cannot attach files
You can download files
You cannot post calendar events
This is a "Lo-Fi" version of our main content. To view the full version with more information, formatting and images, please click here.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Generation Time: 0.1037s (PHP: -36% SQL: 136%)
SQL queries: 26 - Debug Off - GZIP Enabled