修改列数据格式使用变更表添加列

我正在尝试使用Excel VBA修改Access表中的新列中的数据types的字段大小。 我有以下代码可以工作：

InsertDataCommand = "ALTER TABLE " & TableName & " ADD COLUMN " & ColumnName & " " Select Case DataType Case Is = "TEXT" InsertDataCommand = InsertDataCommand & DataType & "(" & DataLength & ")" Case Is = "NUMBER" InsertDataCommand = InsertDataCommand & DataType End Select AccessObject.CurrentProject.Connection.Execute (InsertDataCommand) 

我的问题是我的一些数字需要一个双格式，一些需要一个长整数格式。 我无法find任何文档如何指定，如我可以用TEXT字段长度。 有什么想法吗？

Answer 1

好的，我明白了。 这是令人惊讶的简单。

 InsertDataCommand = "ALTER TABLE " & TableName & " ADD COLUMN " & ColumnName & " " Select Case DataType Case Is = "TEXT" InsertDataCommand = InsertDataCommand & DataType & "(" & DataLength & ")" Case Is = "LONG INTEGER" InsertDataCommand = InsertDataCommand & DataType Case Is = "DOUBLE" InsertDataCommand = InsertDataCommand & DataType Case Is = "MEMO" InsertDataCommand = InsertDataCommand & DataType Case Is = "DATE" InsertDataCommand = InsertDataCommand & DataType End Select AccessObject.CurrentProject.Connection.Execute (InsertDataCommand) 

我以为数字types将不得不指定相同types的语句，文本types，但唉，它没有。