主题：[求助]mdb数据库的列的宽度问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:修改数据库的列的列宽.rar

承蒙版主指点，修改MDB数据库的列名称代码是：

 If dt4.DataCols.Contains("备用054") Then  '如果存在【备用054】列

cmd4.CommandText = "alter table {教职工信息表} add 上年档案工资 DOUBLE;" '建立

cmd4.ExecuteNonQuery

。。。。

现在我想修改一个已经建立好的数据列的宽度，特征为文本。但下列写法没成功

'---- 下面把数据库的【是否在职】修改宽度为4，原来宽度为2

If dt4.DataCols.Contains("是否在职") Then  '如果存在【是否在职】列

    cmd4.CommandText = "alter table {教职工信息表} modify column 是否在职 text(4);" 

End If

我在WORD里复制一段文本过来就无法发表了，只要上传附件了。

写成这样还是不行，请指导

cmd4.CommandText = "alter table {教职工信息表} ALTER COLUMN 是否在职 NVARCHAR(4);" 

文件共享锁定数溢出。(Error 3052)

我用了如下方法，避开了溢出的问题

   1、 先添加一个【临时】列，然后把【是否在职】赋值给【临时】，再删除【是否在职】

   2、再添加【是否在职】，定义列宽，再把【临时】赋值给【是否在职】

 

 

如果只想运行一次，就需要在运行之前，检测一下列宽度，添加怎样的语句可以返回一个列的宽度值？

发表发表话题的字数有限制啊，是限制多少字符啊，很不方便了！

 

Dim x As Integer   'x是项目【是否在职】的设定长度，而不是所有记录的最长长度

...

if x < 3 then

cmd2.CommandText = "alter Table {教职工信息表} drop Column 是否在职;"

end if

 

恳请帮我补充一下省略号部分！

 

 

这里是外部数据库，因字符限制，没发的：

Connections.Add("test", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ProjectPath & "data\教育信息数据库.mdb;Persist Security Info=False;Jet OLEDB:Database Password=zh")

 

此主题相关图片如下：qq图片20150511223331.png

 

上传字符有限制，我只好上传个说明

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:请教一个关于修改mdb数据列宽度的问题.rar

返回的结果是-1