163K网站系统官方论坛's Archiver

cwgcjs 发表于 2007-9-26 15:56

ASP操作Access,ADOX类的使用

一般操作Access数据库,有Alter 语句,和MsSQL2k的基本语法差别不是太打,例如,在某表创建新列语句:

Dim sqlstr
sqlstr="alter table l_info add column info_file varchar(200)default NULL"
conn.execute(sqlstr)




以上语句在l_info创建列info_file,为文本类型,长度是200,如果没有其他的设置,这时候,默认的:
必填字段:否
允许空字符创:否
这个空字符串一般可以允许的话不太满意,就有了ADOX这个空间处理。

详细请访问:微软ADOX介绍

这个Examples是多的出奇,可以访问这里查看全部的。

  如下是其中一个例子:可以实现很多功能:

  

Sub AddHelpColumn()
    Dim oConn, oCat, oColumn
    ' 打开数据库
    Set oConn = Server.CreateObject("ADODB.Connection")
    oConn.Open MM_conn_STRING
    ' 打开表
    Set oCat = Server.CreateObject("ADOX.Catalog")

    Set oCat.ActiveConnection = oConn
    ' 创建列
    Set oColumn = Server.CreateObject("ADOX.Column")
    With oColumn
         Set .ParentCatalog = oCat ' Must set before setting properties
         .Name = "memHelp"
         .Type = adLongVarWChar
         .Properties("Nullable") = True
         .Properties("Jet OLEDB:Allow Zero Length") = True
    End With
    oCat.Tables("MetaExternalFields").Columns.Append oColumn
    ' 完成

    Set oColumn = Nothing
    Set oCat = Nothing
    oConn.Close()
    Set oConn = Nothing
End Sub

  其中的集合Column的成员有:

Item property
Count property.
Delete method.
Refresh method.



  关于column对象,详细可以参见:Column对象,不表。
关键词:ASP,ACCESS

页: [1]

Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.