• Lunes 29 de Abril de 2024, 21:40

Autor Tema:  Quiero Usar El Campo Property Descritionº  (Leído 1300 veces)

Sagutxo

  • Miembro MUY activo
  • ***
  • Mensajes: 320
    • Ver Perfil
Quiero Usar El Campo Property Descritionº
« en: Viernes 16 de Marzo de 2007, 18:52 »
0
Salu2. Ando creando la db desde código y no consigo saber como modificar el campo property description de la Var creada. es la referencia que te pone el access en sus tablas

Gracias.

Código: Text
  1. Dim AbreBase As Database
  2. Dim NuevaTabla As TableDef
  3. Dim Fld As Field
  4.  
  5. Set NuevaTabla = AbreBase.CreateTableDef(NTabla.Text)
  6.  
  7. Set Fld = NuevaTabla.CreateField("Nombre",dbText,"50")
  8.     Fld.DefaultValue = "" & Tabla2.TextMatrix(ValCont, 3)
  9.     Fld.AllowZeroLength = True
  10. 'Supuestamente debiera de ser esto
  11.     Fld.Description
  12. 'Pero da error dado que no existe. Lo curioso es que si listo una tabla ya hecha si lo veo, lo mismo me pasa con DecimalPlaces, para numero de decimales en un float.
  13.  
  14. NuevaTabla.Fields.Append Fld
  15. Set Fld = Nothing
  16.  
  17. AbreBase.TableDefs.Append NuevaTabla
  18.  
Mi mujer tiene un físico bárbaro!!!. Einstein.

Sagutxo

  • Miembro MUY activo
  • ***
  • Mensajes: 320
    • Ver Perfil
Re: Quiero Usar El Campo Property Descritionº
« Respuesta #1 en: Sábado 17 de Marzo de 2007, 22:13 »
0
Salu2, ya lo he consguido gracias. :kicking:  :kicking:  :smartass:
Mi mujer tiene un físico bárbaro!!!. Einstein.

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Quiero Usar El Campo Property Descritionº
« Respuesta #2 en: Sábado 17 de Marzo de 2007, 22:37 »
0
Busqué y no encontré como hacerlo, nos haces el favor de ilustrarnos como lo hiciste.
 :blink:

Sagutxo

  • Miembro MUY activo
  • ***
  • Mensajes: 320
    • Ver Perfil
Re: Quiero Usar El Campo Property Descritionº
« Respuesta #3 en: Martes 20 de Marzo de 2007, 15:54 »
0
Salu2, encantado :).
Primeramente estas obligado a crear la tabla y grabarla en la DB:

Seguidamente utilizas un Var Field para aceder al campo en el que queremos añadir la property, ese es el problema, no existe, como el de los números decimales si es Double.
Código: Text
  1.  
  2. dim AbreBase as database
  3. dim Fld as Field
  4. dim Prty as Property
  5.  
  6. abres DB
  7.  
  8.     Set Fld = AbreBase.TableDefs(NombreTabla).Fields(NumeroCampo_O_NombreCampo)
  9.  
  10. Set Prty = Fld.CreateProperty("Description", dbText, "Texto a ponerle en la property Description, OBLIGA A QUE NO SEA NULL")
  11.     Fld.Properties.Append Prty
  12.     Set Prty = Nothing
  13.     
  14.     'DECIMALES
  15.     Set Prty = Fld.CreateProperty("DecimalPlaces", dbByte, NUMERO DE DECIMALES. NO mas de 255)
  16.     Fld.Properties.Append Prty
  17.     Set Prty = Nothing
  18.  
  19. Set Fld = Nothing
  20.  
  21. Cierras DB
  22.  

Si ves que me he explicado mal intentaré hacerlo mejor.
espero que te sirva.
 :comp:  :smartass:  :comp:
Mi mujer tiene un físico bárbaro!!!. Einstein.

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Quiero Usar El Campo Property Descritionº
« Respuesta #4 en: Martes 20 de Marzo de 2007, 16:07 »
0
Lo revisaré, muchas gracias por la información.

 :hola: