数据库的问题?

[MMABing]

Dim dbData As Database
Dim dtTable As TableDef
Dim NewWs As Workspace
Set NewWs = DBEngine.Workspaces(0)
Set dbData = NewWs.CreateDatabase("c:\soft.mdb"), dbLangSpanish)
Set dtTable = dbData.CreateTableDef("属性")
Set F1 = dtTable.CreateField("信息", dbMemo)
dtTable.Fields.Append F1
dbData.TableDefs.Append dtTable
dbData.close
用以上语句创建一个数据库后，"信息"字段只能输入50个字符，
为什么？怎样才能使"信息"字段的字符个数无限制？

[wufang]

数据库字段是否设定长度是50呀？

[Richard2001]

...
Set F1 = dtTable.CreateField("信息", dbMemo)
F1.Size = 255
dtTable.Fields.Append F1
dbData.TableDefs.Append dtTable
dbData.close

[baoxiang]

我试了你的程序，如果在数据库里输入，我输了超过255个字符，都可以输的。
不知道你是不是在程序里输入，也许是你的TEXT框定义了maxlength=50。
你看一下吧。