Uruguay
dejo este código por si a alguien le sirve
supongamos que tenemos libros en cada tabla y queremos visualizar solo algunos, en cada tabla hay un campo grupo con un valor de cadena
donde podemos poner: Favorito, Matemáticas, etc para poderlos filtrar y agrupar para visualizar y poder ver el texto de ellos.
mediante un combobox damos las elecciones y llamamos a las subrutinas en este caso la que sigue. (teniendo la conexión abierta)
Public Sub ExtraerLibrosFavoritos()
Dim ResultadoX As Result
Dim Xtabla As Table
LimpiarListas()
For Each Xtabla In Conexion.Tables
If Left$(Xtabla.Name, 7) = "sqlite_" Then Continue
ResultadoX = Conexion.Exec("Select grupo from " & Xtabla.Name & " where grupo='Favorito'")
If ResultadoX.Available = True Then ListBLibros.Add(Xtabla.Name)
Next
End
Dim ResultadoX As Result
Dim Xtabla As Table
LimpiarListas()
For Each Xtabla In Conexion.Tables
If Left$(Xtabla.Name, 7) = "sqlite_" Then Continue
ResultadoX = Conexion.Exec("Select grupo from " & Xtabla.Name & " where grupo='Favorito'")
If ResultadoX.Available = True Then ListBLibros.Add(Xtabla.Name)
Next
End
