Visual Basic - Crear base de datos con DAO (campo de texto)

Life is soft - evento anual de software empresarial
   
Vista:

Crear base de datos con DAO (campo de texto)

Publicado por josep (17 intervenciones) el 01/03/2008 01:24:46
Hola a todos!

Creo una base de datos con DAO y todo parece crearse correctamente
Pero despues de crear los campos de texto, por ejemplo el Campo "Nombre", y cuando intento añadir un nuevo registro
al campo (Rs!Nombre = "Candance Cameron Burne"), me aparece que el registro es demasiado grande
pero segun yo cree aquel campo con un tamaño de 60

Parte del Código

Private Sub Crea_DB()
Dim sBase As Database, sTabla As DAO.TableDef, sCampo As DAO.Field

'Creo la base de datos
Set sBase = DBEngine.CreateDatabase(App.Path & "Base.mdb", dbLangGeneral & ";pwd=password")

'Creo la tabla personas
Set sTabla = sBase.CreateTableDef("Personas")

'Creo los campos
Set sCampo = sTabla.CreateField("ID", DAO.dbLong)
sCampo.Attributes = DAO.dbAutoIncrField 'Autonúmero
sTabla.Fields.Append sCampo 'Añado el campo

Set sCampo = sTabla.CreateField("Nombre", DAO.dbText, 60)
sTabla.Fields.Append sCampo 'Añado el campo

'¿Quiero saber si asi se crea el Campo OLE
Set sCampo = sTabla.CreateField("Foto", DAO.dbVarBinary 'Campo Objeto OLE
sTabla.Fields.Append sCampo 'Añado el campo

sBase.TableDefs.Append sTabla

'Cierra la base de datos
sBase.Close

Set sBase = Nothing
End Sub

Private Sub Añadir__Datos()
Dim Rs As Recordset, sBase As Database

Set Rs = dbw.OpenRecordset("Select * From Personas")

Rs.AddNew
'En este campo sale un mensaje de Error "El registro es demasiado grande"
Rs!Nombre = "Candance Cameron Burne"

End SUb

O talvez no es asi como se lo un tamaño a un campo de texto
sTabla.CreateField("Nombre", DAO.dbText, 60)

¿Como lo hago? y
¿Como creo un campo Objeto OLE?

Gracias de antemano.
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