https://foro.gambas-es.org/viewtopic.php?f=3&t=4663
-----------------------------------
Shell
Domingo, 31 May 2015, 08:57

Averiguar Los Nombres De Las Tablas Y De Sus Campos
-----------------------------------
Hola!.

En este ejemplo se muestran los nombres de cada tabla de una base de datos y los nombres de sus campos.
He usado objetos de Gambas y no una sentencia SQL.

[code linenumbers=false syntax=gambas]
' Gambas module file

Public Sub Main()
  
  Dim hcon As New Connection
  
  With hcon
    .Type = "sqlite3"
    .Host = User.Home &/ "BaseDatos/Bases1/" 
    .Name = "agendapersonal"
  End With
  
  hcon.Open()
  
  Tabla(hcon)
  
End

Public Sub Tabla(nomcon As Connection)
  
  Dim tablatemp As Table
  Dim campotemp As Field
  
  For Each tablatemp In nomcon.Tables
    If Not tablatemp.System Then
      Print "Nombre de la tabla: " & "\n" & tablatemp.Name & "\n"
      Print "Nombres de los campos de la tabla: " & tablatemp.Name
      For Each campotemp In tablatemp.Fields        
        Print campotemp.Name
      Next   
    Endif
  Next 
  nomcon.Close()  
  
End

[/code]

En este caso la salida fue:

[quote]
Nombre de la tabla: 
mitabla

Nombres de los campos de la tabla: mitabla
id
nombre
apellido
telefono_fijo
telefono_movil
cumple
[/quote]

Saludos


-----------------------------------
shordi
Martes, 02 Junio 2015, 09:19

Re: Averiguar Los Nombres De Las Tablas Y De Sus Campos
-----------------------------------
y te vale para cualquier base de datos, sqlite o Mysql. Guay.


