Reto 6 (v3ctor) Listar Los View De Una Base De Datos En Listbox


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

última edición por v3ctor el Lunes, 11 May 2015, 03:05; editado 2 veces
Objetivo: 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.

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

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

última edición por v3ctor el Domingo, 01 Octobre 2017, 16:48; editado 1 vez
Objetivo: 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

última edición por v3ctor el Domingo, 01 Octobre 2017, 16:47; editado 2 veces

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.1204s (PHP: -26% SQL: 126%)
Consultas SQL: 26 - Debug off - GZIP Activado