一些access表 *** 作语句整理

一些access表 *** 作语句整理,第1张

概述在写从梅儿小屋的友情链接数据库转换为CuteLink V1.0的时候用到了好些Access的表和字段的 *** 作,好些不会,查阅了资料后使用通过,现整理如下: 建表:Sql= CREATE TABLE webtype ( &_ id AutoIncrement, &_ ...

在写从梅儿小屋的友情链接数据库转换为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"

总结

以上是内存溢出为你收集整理的一些access表 *** 作语句整理全部内容,希望文章能够帮你解决一些access表 *** 作语句整理所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/langs/1220103.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-06-05
下一篇 2022-06-05

发表评论

登录后才能评论

评论列表(0条)

保存