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

宽度，参考

 

For Each dc As DataCol In DataTables("表A").DataCols
    output.Show(dc.datatype.name & dc.Name & dc.MaxLength)
Next

 

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

...

if x < 3 then

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

end if

 

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

 

 

msgbox(DataTables("表A").DataCols("第一列").MaxLength)

 

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

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

 

 不明白你什么意思。

 

 msgbox(DataTables("表A").DataCols("第一列").MaxLength)

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

 

 

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

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

Dim x As Integer = dt2.DataCols("是否在职").MaxLength

返回的结果是-1

 要用ADOX.Catalog处理

 

Dim Ca,tb,conn
c
Ca = CreateObject("ADOX.Catalog")
Ca.ActiveConnection = conn
Tb = ca.Tables("订单")

msgbox(tb.Columns("产品").DefinedSize)

Tb = Nothing
Ca = Nothing

 

http://blog.chinaunix.net/uid-9847882-id-1996654.html