Programación General > Visual Basic 6.0 e inferiores

 Cuantas Tablas Tiene La Base De Datos?

<< < (2/2)

ArKaNtOs:
les agrego el code que dije que tenia :)

--- Código: Text --- Private Sub EnumerarTablas()    Dim Db As Database    Dim Td As TableDef     List1.Clear    Set Db = OpenDatabase(&#34;D:&#092;VB&#092;Biblio.MDB&#34;)    For Each Td In Db.TableDefs        'Sólo las tablas con atributo igual a CERO,        'son tablas normales        If Td.Attributes = 0 Then            List1.AddItem Td.Name        End If    Next    Db.Close    Set Db = NothingEnd Sub 
 :kicking:

ArKaNtOs:
Perdon olvide incluir la fuente :P sino diran que soy pirata jejeje, lo consegi en El guille :kicking:

Navegación

[0] Índice de Mensajes

[*] Página Anterior