[已解决]如何自动设置适当的字段长度

huangqinyong

txt 的文件我没导过，但EXCLE的文件，我导入前，先在数据库内建一个表，对哪些字段大于255的，我是把它设置成备注型的。

fang123

那对于那些小于255的如何设置到最合理的长度?

huangqinyong

原帖由 fang123 于 2008-3-27 15:13 发表
那对于那些小于255的如何设置到最合理的长度?

保险起见，建议设置成255

fang123

但这样的话,要是转成DBF格式的话,容量就会变得很大..这是一个困扰我很多年的问题...郁闷中...谢谢!

huangqinyong

你别讲一半留一半，这个问题解决了或解决了一部分，又冒出另一个问题，这样谁吃得消？？？有问题一步到位，说清楚。

fang123

谢谢huangqinyong的提醒.记住了.

kangking

讲点我的想法:先将数据导入,导入新表也好,导入旧表也好(说错了,旧表应该设置了字段宽度的).
导入后用dmax("len(trim(字段名称))", "表名称")计算字段值的长度,其中的字段名称你可以设置一个变量,用以循环所有字段,将结果保存在一个数组中.
再用SQL语句修改表的结构,OK!

fang123

谢谢kangking,提一个太过份的请求:能不能帮我用一个实例演示一下,非常谢谢!

kangking

原帖由 fang123 于 2008-3-28 17:17 发表
谢谢kangking,提一个太过份的请求:能不能帮我用一个实例演示一下,非常谢谢!

Public Sub fitSize()
Dim a()
Dim i As Integer
Dim j As Integer
Dim rs As DAO.Recordset
Dim db As DAO.Database
Set db = CurrentDb
Set rs = db.OpenRecordset("w1")
j = rs.Fields.Count
ReDim a(j, 2)
For i = 0 To j - 1
    a(i, 1) = rs.Fields(i).Name
    a(i, 2) = DMax("len(trim(" & rs.Fields(i).Name & "))", "w1")
Next
rs.Close
Set rs = Nothing
For i = 1 To j - 1
    db.Execute "alter table w1 alter column " & a(i, 1) & " char(" & a(i, 2) & ")"
Next

End Sub

fang123

再次谢谢kangking的帮助,又快又准.要浪费您宝贵的时间真的很抱歉,终于解决了心头中的困惑.向您学习了!