一些access表操作语句整理

【作者：ITlearner 来源：本站原创更新时间：2004-5-21 | 字体：大中小】

在写从梅儿小屋的友情链接数据库转换为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&" 表中字段错误，请手动将数据库中 "&ColumnName&" 字段删除，原因" & Err.Description & " " & TableEnd
 Err.Clear
 Response.Flush
Else
 Response.Write TableTop & "删除 "&TableName&" 表中字段 "&ColumnName&" 成功 " & 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&" 表中字段错误，请手动将数据库中 "&ColumnName&" 字段建立，属性为 "&ColumnType&"，原因" & Err.Description & " " & TableEnd
 Err.Clear
 Response.Flush
Else
 Response.Write TableTop & "新建 "&TableName&" 表中字段 "&ColumnName&" 成功 " & TableEnd
 Response.Flush
End If
End Sub

'更改字段通用函数
Sub ModColumn(TableName,ColumnName,ColumnType)
On Error Resume Next
Conn.Execute("Alter Table "&TableName&" Alter Column "&ColumnName&" "&ColumnType&"")
If Err Then
 Response.Write TableTop & "更改 "&TableName&" 表中字段属性错误，请手动将数据库中 "&ColumnName&" 字段更改为 "&ColumnType&" 属性，原因" & Err.Description & " " & TableEnd
 Err.Clear
 Response.Flush
Else
 Response.Write TableTop & "更改 "&TableName&" 表中字段属性 "&ColumnName&" 成功 " & TableEnd
 Response.Flush
End If
End Sub

以下是使用方法：

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

收藏此页到 IE收藏夹 POCO网摘 [365Key] [ViVi] 百度藏搜和讯网摘天极网摘狐摘向您的朋友推荐此文章
转载请注明来源：文章大全网址：http://www.itlearner.com/article/
文章关键词：表 access
如意搜索搜索更多内容：一些access表操作语句整理
特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系我们，我们会尽快予以更正。

上一篇文章：两只蚂蚁走在路上，突然看见一只很大的梨 ——打N个国家名
下一篇文章：守住一颗宁静的心