1187
社区成员
数据库的问题?
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个字符，
为什么？怎样才能使"信息"字段的字符个数无限制？
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个字符，
为什么？怎样才能使"信息"字段的字符个数无限制？
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
baoxiang 2001-11-19
我试了你的程序，如果在数据库里输入，我输了超过255个字符，都可以输的。
不知道你是不是在程序里输入，也许是你的TEXT框定义了maxlength=50。
你看一下吧。
不知道你是不是在程序里输入，也许是你的TEXT框定义了maxlength=50。
你看一下吧。
Richard2001 2001-11-19
...
Set F1 = dtTable.CreateField("信息", dbMemo)
F1.Size = 255
dtTable.Fields.Append F1
dbData.TableDefs.Append dtTable
dbData.close
Set F1 = dtTable.CreateField("信息", dbMemo)
F1.Size = 255
dtTable.Fields.Append F1
dbData.TableDefs.Append dtTable
dbData.close
wufang 2001-11-19
数据库字段是否设定长度是50呀？
