怎样用SQL语句在Access数据库中添加一个字段，其数据类型为OLE对象

Question

求各位大侠教我：
1、怎样用SQL语句在Access数据库中添加一个字段，其数据类型为OLE对象
2、怎样用SQL语句在Access数据库中添加一个文本字段，为其设一个默认值“N”。
很急呀！求大侠们教我。谢谢啦！！！

Answer 1

sql="ALTER TABLE table1 ADD COLUMN mytext Text(10) DEFAULT 'N'"
conn.Execute sql

Answer 2

1.try:sql="ALTER TABLE table1 ADD COLUMN myole LONGBINARY "
conn.Execute sql

Answer 3

可以参考TechnoFantasy老大的代码:http://blog.csdn.net/TechnoFantasy/archive/2001/01/12/2936.aspx

Answer 4

可以用ADOX来做：'引用ADOX(工程/引用/Microsoft ADO Ext. 2.X For DLL and Security)
Private Sub Form_Load()
    Dim cat As New ADOX.Catalog
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;User Id=admin;Password=;"
    cat.Tables("table1").Columns.Append "字段名", ADOX.DataTypeEnum.adLongVarBinary  ' 给Table1添加OLE字段
    Set cat.ActiveConnection = Nothing
End Sub

Answer 5

我一般这样做：
   1.先判断database文件存在？若否，创建它。
   2。判断Table存在？若否，创建它。
   3。判断一个字段是否存在？若否创建它。
怎样判断呢？试图打开它，若ERROR，就创建。
DAO先定义TableDef。用CreateTableDef，然后用Append和CreateField
ADO先定义ADOX.Catalog和ADOX.Table。

Answer 6

Dim objCat As New ADOX.Catalog
Dim objTbl As New ADOX.Table
    objCat.ActiveConnection = mADODBConnection    '' Open the catalog
With objTbl
   .Name = "您的TABLENAME"
   .Columns.Append "您的OLE字段", adLongVarBinary
   .Columns("您的OLE字段").Attributes = adColNullable
End With        ' Add the new table to the database.
        objCat.Tables.Append objTbl
        Set objCat = Nothing
        Resume