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
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

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
v3ctor escribió:  
bueno recién lo saque, bastante sucio el código , pero funciona dentro de quince días lo muestro.


Muestra el codigo

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


Muestra el codigo



' 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

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
reto6

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 topics
You 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