首页 > 数据库 > Access > 正文

一些access表操作语句整理

2024-09-07 18:57:15
字体:
来源:转载
供稿:网友

在写从梅儿小屋的友情链接数据库转换为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,ColumnName,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","username","nvarchar(12) not null PRIMARY KEY"

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表