Access版自定义模型，系统文本字段不能为空的修改-领先建站CMS提供服务商我们专注于CMS建站产品的研发

3004 查看	1 回复

主题：Access版自定义模型，系统文本字段不能为空的修改 [收藏主题]

bbswing 当前离线

214 主题	0 广播	0 粉丝

级别:二年级

用户积分:1979 分
登录次数:104 次
注册时间:2008/4/23
最后登录:2014/10/23

bbswing 发表于：2008/9/28 11:45:00 | 只看该作者查看该作者主题楼主

一分钟快速开通线上知识店铺

KS的自定义模型非常强大，但是ACCESS版在建立模型的时候，表中的系统字段如果是文本字段，"允许空字符串"都是"否"，那么，模型设置中“系统字段”一些字段没有勾选的话，添加内容时会出错，必须修改字段的属性为"允许空字符串"

修改KS.Model.asp

增加一个过程

Sub ModifyCharField(TableName,FieldsStr)
   Dim MyDB,MyTable,FieldsArray,CurField
   on error resume next
   Set MyDB=Server.CreateObject("ADOX.Catalog")
   Set MyTable=Server.CreateObject("ADOX.Table")
   MyDB.ActiveConnection=Conn
   Set MyTable = MyDB.Tables(TableName)
   FieldsArray=Split(FieldsStr,",")
   for each CurField in FieldsArray
    MyTable.Columns(CurField).Properties("Jet OLEDB:Allow Zero Length") = True
   next
  End Sub

然后找到Select Case KS.ChkClng(KS.G("BasicType"))中的建表语句，在下面加上

if DatabaseType=0 then
Call ModifyCharField(ChannelTable,"NewsID,TID,KeyWords,TitleType,Title,FullTitle,Intro,TitleFontColor,TitleFontType,ArticleContent,Author,Origin,Rank,SpecialID,JSID,TemplateID,Fname,ArticleInput,PicUrl,ArrGroupID")
end if

图片类型和软件类型的建表修改方法同理。

科汛商学院助您快速入门