Resumen Propiedades RECORDSET

Bueno, no tengo mucha experiencia en el tema todavia, pero lo que podes
hacer es usar los objetos Database y Tabledefs combinados para averiguar
los datos de una tabla en especial.

Aca tenes un ejemplo bastante bueno que viene en la ayuda en linea, crea
una tabla y un campo en una base de datos existente y despues revisa los
valores de las propiedades:

Function EnumerarTableDef () As Integer

Dim MiBasedatos As Database
Dim MiTableDef As TableDef
Dim MiField As Field
Dim I As Integer
Set MiBasedatos = Workspaces(0).OpenDatabase("MiBD.MDB")
Set MiTableDef = MiBasedatos.CreateTableDef("MiTabla")
Set MiField = MiTableDef.CreateField("MiField", dbDate)
MiTableDef.Fields.Append MiField
MiBasedatos.TableDefs.Append MiTableDef
' Obtiene el nombre de la base de datos.
Debug.Print "Nombre de la base de datos: "; MiBasedatos.Name

' Enumera todos los campos de MiTableDef.
 Debug.Print "TableDef: Nombre; Field: Nombre"

For I = 0 To MiTableDef.Fields.Count - 1
  Debug.Print " "; MiTableDef.Name;
  Debug.Print "; "; MiTableDef.Fields(I).Name
 Next I
 Debug.Print
' Enumera todos los índices de MiTableDef.
 Debug.Print "TableDef: Nombre; Index: Nombre"
 For I = 0 To MiTableDef.Indexes.Count - 1
  Debug.Print " "; MiTableDef.Name;
  Debug.Print "; "; MiTableDef.Indexes(I).Name
 Next I
 Debug.Print
' Enumera las propiedades incorporadas de MiTableDef.
 Debug.Print "MiTableDef.Name: "; MiTableDef.Name
 Debug.Print "MiTableDef.Attributes: "; MiTableDef.Attributes
 Debug.Print "MiTableDef.Connect: "; MiTableDef.Connect

Debug.Print "MiTableDef.DateCreated: "; MiTableDef.DateCreated
 Debug.Print "MiTableDef.LastUpdated: "; MiTableDef.LastUpdated
 Debug.Print "MiTableDef.RecordCount: "; MiTableDef.RecordCount
 Debug.Print "MiTableDef.SourceTableName: "; MiTableDef.SourceTableName
 Debug.Print "MiTableDef.Updatable: "; MiTableDef.Updatable
 Debug.Print "MiTableDef.ValidationRule: "; MiTableDef.ValidationRule
 Debug.Print "MiTableDef.ValidationText: "; MiTableDef.ValidationText
 EnumerarTableDef = True
End Function

Cambiando los nombres solo en las tres lineas SET (en la parte que esta
entre comillas) que hay al principio, lo podes pegar en un form en tu
proyecto para ver como funciona. Tenes que usar un nombre de base de
datos existente, pero inventas una tabla y un campo.

Espero que te haya servido.

Saludos


Javier



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com