Antonio Lopez
14 de Noviembre del 2003

estoy creando una BD en access y en este instante quiero construir un modulo en visual para q haga unas determinadas rutinas, lo q me gustaria saber es como llamar a las tablas de la bd desde el modulo para poder consultarlas.

Gracias. Antonio Lopez

sdemingo
14 de Noviembre del 2003

Hola,

Por lo que entiendo, te refieres a como sber las tablas que hay en una BBDD.....

Si es eso:


Dim rs As New ADODB.Recordset

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

End Sub

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


Un saludo
sdemingo