Visual Basic - Campos clave de una tabla Access

Life is soft - evento anual de software empresarial
 
Vista:

Campos clave de una tabla Access

Publicado por Juan López (36 intervenciones) el 28/06/2000 00:00:00
Hola: el otro día os consulté como obtener la descripción de un campo de access desde Visual, y gracias a Sergio Fernández, obtuve la solución. Hoy siguiendo con el tema me pregunto cómo podría saber qué campo es la clave (o forma parte de ella) en una tabla Access desde Visual. He investigado en la linea de la descripción, (Properties...) y no he visto nada.
A seguir así de bien.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Campos clave de una tabla Access

Publicado por Sergio (16 intervenciones) el 29/06/2000 00:00:00
En Access no he conseguido sacarlo, no se si será porque tengo la primera versión de ADO
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Campos clave de una tabla Access

Publicado por sergio (16 intervenciones) el 29/06/2000 00:00:00
Perdón, ya que se me ha escapado el intro.

Como te iba diciendo a mi en ACCESS no me sale no se si es porque tengo la primera versión o no, pero en SQL si lo he conseguido hacer.

Para saber cual es el campo clave lo que tienes que hacer es recorrerte toda la colección fiels del recordset y dentro de cada colección fields tienes que ir mirando la colección properties con el atributo "KEYCOLUMN" el campo que te de TRUE es la clave de la tabla.

Ej. Recordset("Nombre Campo").properties("KEYCOLUMN).Value, si eso da TRUE ese campo es o forma parte de la clave.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Fijate en esta rutina

Publicado por afogutu (408 intervenciones) el 30/06/2000 00:00:00
For I = 0 To RSLocal.Fields.Count - 1
´RSLocal es un ADO recordset
Debug.Print RSLocal.Fields(I).Name & " - " & RSLocal(RSLocal.Fields(I).Name).Properties("KEYCOLUMN").Value
Next I
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar