转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 站长学院 >> Web开发 >> 正文
asp函数:创建数据表/创建列/添加字段/修改字段/ASP操作表和字段         ★★★

asp函数:创建数据表/创建列/添加字段/修改字段/ASP操作表和字段

作者:闵涛 文章来源:闵涛的学习笔记 点击数:1647 更新时间:2011/2/4 14:59:39
asp函数:创建数据表/创建列/添加字段/修改字段/ASP操作表和字段,

有时候要通过asp代码在数据库中创建表和列,下面的就是这些操作的函数。

1.检测表是否存在

tbName 检测的表的名称

dbTp 数据库的类型1为sql,0为access

返回1存在,返回0不存在

Function isTable(tbName,dbTp)
    dim isTbSql
    if dbTp="1" then
        isTbSql="select count(*) as num from sysobjects where id=object_id('"&tbName&"')"
        dim rs:set rs=conn.execute(isTbSql)
        if rs("num")>0 then
            isTable="1"
        else
            isTable="0"
        end if
        rs.close
        set rs=nothing
    else
        on error resume next
        dim rs2:set rs2=conn.execute(tbName)
        if err.number=0 then
            isTable="1"
        else
            isTable="0"
        end if
        rs2.close
        set rs2=nothing
    end if
End Function


2.检测字段是否存在

tbName 要检测的字段所在的表

colName 要检测的字段

dbTy 数据库类型 1为sql,0为access

返回1表示字段存在,返回0表示不存在,当然若表不存在也是返回0

Function isCol(tbName,colName,dbTy)
  dim isColSql
  if dbTy="1" then
    isColSql="select count(*) as num from syscolumns where id=object_id('"&tbName&"') and name='"&colName&"'"
    dim rs:set rs=conn.execute(isColSql)
    if rs("num")>0 then
      isCol="1"
     else
       isCol="0"
     end if
     rs.close
     set rs=nothing
  else
    isColSql="select "&colName&" from "&tbName
    on error resume next
    dim rs1:set rs1=conn.execute(isColSql)
    if err.number=0 then
      isCol="1"
    else
      iscol="0"
    end if
    rs1.close
    set rs1=nothing
  end if
End Function


3.添加表

tbName 表的名称

pkCol 表的第一个字段,此字段必须为你创建表的主键,并且自动编号

Function addTable(byVal tbName,byVal pkCol)
    Dim TSql
    if isTable(tbName,dbType)="0" then
    TSql="Create Table ["&TbName&"]("&pkCol&" int IDENTITY (1,1) CONSTRAINT PrimaryKey PRIMARY KEY);"
    conn.Execute(TSql)
    response.Write("表创建成功")
    else
    response.Write("要创建的表存在")
    end if
End Function


4.添加列

tbName 表名称

colName 列名称

colType 列的数据类型;如nvarchar(50)

Function addCol(tbName,colName,colType)
  if isTable(tbName,dbType)="1" and isCol(tbName,colName,dbType)="0" then
    Dim TSql
    TSql="Alter Table ["&tbName&"] Add "&colName&" "&colType
    conn.Execute(TSql)
    response.Write("列:"&colName&" 创建成功")
  else
    response.Write("列:"&colName&" 没有创建,可能表不存在或字段重复")
  end if
End Function


5.删除列

Function delCol(tbName,colName)
  if isTable(tbName,dbType)="1" and isCol(tbName,colName,dbType)="1" then
    Dim TSql
    TSql="Alter Table ["&tbName&"] Drop column "&colName
    conn.Execute(TSql)
    response.Write("列: "&colName&" 删除成功")
  else
    response.Write("表或者列不存在")
  end if
End Function
使用方法相信就很简单了,看下面的示例:

dim connStr
const dbType="1"
if dbType="0" then
  connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../test.mdb")
else
  connStr="Provider=Sqloledb;User Id=sa;Password=12345a;Initial Catalog=test;Data Source=(local)"
end if
dim conn:set conn=server.CreateObject("adodb.connection")
conn.open connStr
'下面的就是例子
addTable "myTb1","mId"
'addCol "myTb1","mCol_1","nvarchar(50)"
'delCol "myTb1","mCol_1"
'response.Write(isCol("myTb1","mCol_1","0"))
conn.close
set conn=nothing


[Web开发]修改dede v5.7版本网站地图与rss存放路径  [C语言系列]C# 文件创建、移动、删除、复制
[C语言系列]C#注册表的读,写,删除,查找  [Web开发]ASP添加、删除、修改、数据表SQL语句
[MySql]修改mysql导入文件大小限制  [办公软件]这样来修改PowerPoint超级链接的文字颜色
[办公软件]批量删除Office文档(word,excle,powerpoint)中的超…  [办公软件]如何删除PowerPoint幻灯片中的页脚信息
[办公软件]如何在PowerPoint演示文稿中插入(增加)新幻灯片、…  [办公软件]如何设置(更改、修改)PowerPoint中图片的版式(排版…
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · Web开发  · 网页制作
    · 平面设计  · 网站运营
    · 网站推广  · 搜索优化
    · 建站心得  · 站长故事
    · 互联动态
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    An error occurred on the server when processing the URL. Please contact the system administrator.

    If you are the system administrator please click here to find out more about this error.

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao 信息产业部ICP备案号:鄂ICP备11006601号

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台