Question

我想改变一个表并创建一个类型为Attachment的新字段。

首先我想到了以下内容：

Dim SQL_Attachement_Str As String
SQL_Attachement_Str = "ALTER TABLE tbl_FinalTable_summerized ADD CoCAttachement ATTACHMENT"
DoCmd.RunSQL SQL_Attachement_Str

但不幸的是（在我的情况下）这是不可能的。

我的第二次尝试是首先将字段创建为TEXT类型，然后将类型更改为Attachment，如下所示：

Dim SQL_Attachement_Str As String
SQL_Attachement_Str = "ALTER TABLE tbl_FinalTable_summerized ADD CoCAttachement TEXT"
DoCmd.RunSQL SQL_Attachement_Str

Dim tbl As TableDef

Set db = CurrentDb
Set tbl = db.TableDefs("tbl_FINALtable_Summerized")
tbl.Fields("CoCAttachement").Type = dbAttachment

Set tbl = Nothing
Set db = Nothing

所以我需要的是一种添加类型为Attachment to the table

的字段的方法谢谢你们：D

Answer 1

如果您没有追加数据，只需添加一个字段，您可以随时保持简单并在设计视图中添加字段，不是吗？

你刚刚启发了一些研究。

currentdb.TableDefs("Table").CreateField("Attachment",dblongbinary)

https://msdn.microsoft.com/en-us/library/office/ff845510.aspx

Answer 2

如果有人正在寻找这个问题的答案，那就可以了：

Dim fld As DAO.Field

Set fld = CurrentDb().TableDefs("MyTable").CreateField("NewField", 101&)
CurrentDb().TableDefs("MyTable").Fields.Append fld
CurrentDb().TableDefs.Refresh

Set fld = Nothing

其他复杂数据类型的FieldType值可在此处找到： like

MS Access中的附件字段

2 个答案: