一些access表操纵语句清算

在写从梅儿小屋的交情链接数据库转换为CuteLink V1.0的时辰用到了好些Access的表和字段的操纵，好些不会，查阅了资料后行使通过，现清算如下：

建表：
Sql="CREATE TABLE webtype ("&_
?"id AutoIncrement,"&_
?"hits smallint NOT NULL,"&_
?"name nvarchar (12) NOT NULL,"&_
?"PRIMARY KEY (id))"
Conn.Execute(Sql)

个中，AutoIncrement 为自动编号数据范例，PRIMARY KEY 为主键。

删除索引：
Conn.execute("DROP INDEX id on link;")

添加索引：
Conn.execute("Create Unique Index iusername on link(username);")

添加一个username主键
Conn.execute("Alter Table Link Add username nvarchar(12) null PRIMARY KEY")

以下为动网V7.0进级文件中的一些通用函数，很适用：

'删除字段通用函数
Sub DelColumn(TableName,ColumnName)
?On Error Resume Next
?Conn.Execute("Alter Table "&TableName&" Drop "&ColumnName&"")
?If Err Then
??Response.Write TableTop & "删除 "&TableName&" 表中字段<font color=blue>错误</font>，请手动将数据库中 <B>"&ColumnName&"</B> 字段删除，缘故起因" & Err.Description & "<BR>" & TableEnd
??Err.Clear
??Response.Flush
?Else
??Response.Write TableTop & "删除 "&TableName&" 表中字段 "&ColumnName&" 乐成 <BR>" & TableEnd
??Response.Flush
?End If
End Sub

'添加字段通用函数
Sub AddColumn(TableName,ColumnName,ColumnType)
?On Error Resume Next
?Conn.Execute("Alter Table "&TableName&" Add "&ColumnName&" "&ColumnType&"")
?If Err Then
??Response.Write TableTop & "新建 "&TableName&" 表中字段<font color=blue>错误</font>，请手动将数据库中 <B>"&ColumnName&"</B> 字段成立，属性为 <B>"&ColumnType&"</B>，缘故起因" & Err.Description & "<BR>" & TableEnd
??Err.Clear
??Response.Flush
?Else
??Response.Write TableTop & "新建 "&TableName&" 表中字段 "&ColumnName&" 乐成 <BR>" & TableEnd
??Response.Flush
?End If
End Sub

'变动字段通用函数
Sub ModColumn(TableName,ColumnType)
?On Error Resume Next
?Conn.Execute("Alter Table "&TableName&" Alter Column "&ColumnName&" "&ColumnType&"")
?If Err Then
??Response.Write TableTop & "变动 "&TableName&" 表中字段属性<font color=blue>错误</font>，请手动将数据库中 <B>"&ColumnName&"</B> 字段变动为 <B>"&ColumnType&"</B> 属性，缘故起因" & Err.Description & "<BR>" & TableEnd
??Err.Clear
??Response.Flush
?Else
??Response.Write TableTop & "变动 "&TableName&" 表中字段属性 "&ColumnName&" 乐成 <BR>" & TableEnd
??Response.Flush
?End If
End Sub

以下是行使要领：

AddColumn "link","username","nvarchar(12) not null"
DelColumn "link","img"
ModColumn "link","nvarchar(12) not null PRIMARY KEY"

（编辑：湖南网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!