Al otro lado de la pantalla
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.
' 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
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
En este caso la salida fue:
Citar:
Saludos
