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
Objetivo: Reto 6 (v3ctor) Listar Los View De Una Base De Datos En Listbox
última edición por v3ctor el Lunes, 11 May 2015, 03:05; editado 2 veces
ú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
Muestra el codigo
v3ctor escribió:
Muestra el codigo
Objetivo: Re: Reto 6 (v3ctor) Listar Los View De Una Base De Datos En Listbox
última edición por v3ctor el Domingo, 01 Octobre 2017, 16:48; editado 1 vez
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
ú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
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
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 mensajesNo 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.1152s (PHP: -30% SQL: 130%)
Consultas SQL: 26 - Debug off - GZIP Activado