Programación General > Visual Basic 6.0 e inferiores
Quiero Usar El Campo Property Descritionº
(1/1)
Sagutxo:
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 ---Dim AbreBase As DatabaseDim NuevaTabla As TableDefDim Fld As Field Set NuevaTabla = AbreBase.CreateTableDef(NTabla.Text) Set Fld = NuevaTabla.CreateField("Nombre",dbText,"50") Fld.DefaultValue = "" & Tabla2.TextMatrix(ValCont, 3) Fld.AllowZeroLength = True'Supuestamente debiera de ser esto Fld.Description'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. NuevaTabla.Fields.Append FldSet Fld = Nothing AbreBase.TableDefs.Append NuevaTabla
Sagutxo:
Salu2, ya lo he consguido gracias. :kicking: :kicking: :smartass:
cpmario:
Busqué y no encontré como hacerlo, nos haces el favor de ilustrarnos como lo hiciste.
:blink:
Sagutxo:
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 --- dim AbreBase as databasedim Fld as Fielddim Prty as Property abres DB Set Fld = AbreBase.TableDefs(NombreTabla).Fields(NumeroCampo_O_NombreCampo) Set Prty = Fld.CreateProperty("Description", dbText, "Texto a ponerle en la property Description, OBLIGA A QUE NO SEA NULL") Fld.Properties.Append Prty Set Prty = Nothing 'DECIMALES Set Prty = Fld.CreateProperty("DecimalPlaces", dbByte, NUMERO DE DECIMALES. NO mas de 255) Fld.Properties.Append Prty Set Prty = Nothing Set Fld = Nothing Cierras DB
Si ves que me he explicado mal intentaré hacerlo mejor.
espero que te sirva.
:comp: :smartass: :comp:
cpmario:
Lo revisaré, muchas gracias por la información.
:hola:
Navegación
Ir a la versión completa