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

Question

我正尝试使用Excel VBA修改Access表格中新列中数据类型的字段大小。我有以下代码的作品：

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) 

我的问题是我的一些数字需要双格式和一些需要长整数格式。我找不到任何关于如何指定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) 

我认为数字类型将不得不指定相同类型的文本类型的语句，但它却没有。