Javier
20 de Julio del 2004

Hola, necesito saber como obtener el nombre de las tablas y los campos de una base de datos mediante programación. Estos nombres los almacenaré posteriormente en otra bd.
Alguien me puede ayudar?
Muchas gracias.

sdemingo
20 de Julio del 2004

Hola,

Dim rsI As New ADODB.Recordset

Set rsI = oConexion.OpenSchema(adSchemaTables)
Do Until rsI.EOF
If Not esTablaSistema(rsI("TABLE_NAME")) Then
MsgBox rsI("TABLE_NAME")
End If
rsI.MoveNext
Loop
rsI.Close

Function esTablaSistema(nombreTabla As String) As Boolean
Dim tablaSistema As String

tablaSistema = Left(nombreTabla, 4)
If tablaSistema = "MSys" Then
esTablaSistema = True
Else
esTablaSistema = False
End If

End Function


Con esto tienes los nombres de las Tablas de la bd que tu quieras ;-)

salu2
sdemingo

Javier
20 de Julio del 2004

Muchas gracias, y para conocer el nombre de los campos que tendria que hacer?