ASP操作数据库常用简单代码

技术交流14年前 (2010)发布 liyugang
109 0

其实ASP,PHP等语言对数据库的操作语法都是一样的,掌握一种方法,就能明白看明白其他语言对数据库的操作。

 

<%
dim db,conn,connstr
Db="data/online.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
 connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Db)
conn.Open connstr
%>

以上是数据库链接代码,存储为conn.asp

=============================
要用到数据库的页就在页面引用
=============================
<!–#include file="conn.asp"–>

=======================
数据库记录查询
=======================
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from [数据表] "
rs.open sql,conn,1,1

set rs=conn.execute("select * from [数据表] ")
注:记录存放到rs中
引用值: rs("字段名")

=======================
添加数据库新记录
=======================
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from [数据表] "
rs.open sql,conn,1,3
rs.addnew
rs("字段1")=trim(Request.Form("表单域名称1"))
rs("字段2")=trim(Request.Form("表单域名称2")
rs.update
rs.close

sql="insert into [数据表](字段1,字段2,字段3,字段4) values(‘"&变量1&"’,’"&变量2&"’,"&变量3&",’"&变量14&"’)"
conn.execute(sql)
注:变量3为数值型,所以不用两个单引号包含. 例: ‘变量2’ 变量3

=======================
修改数据库记录
=======================
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from [数据表] where ID="&Request.Query("ID")
rs.open sql,conn,1,3
rs.update
rs("字段1")=trim(Request.Form("表单域名称1"))
rs("字段2")=trim(Request.Form("表单域名称2")
rs.update
rs.close

sql="update [数据表] set 字段1=’"&变量1&"’,字段2=’"&变量2&"’,字段3="&变量3&",字段4=’"&变量4&"’ where ID="&Request.Query("ID")
conn.execute(sql)
注:变量3为数值型,所以不用两个单引号包含. 例: 字段2=’变量2′ 字段3=变量3

在必要时清除记录集及连接(页面执行完毕后,ASP会自动清除)
set rs=nothing
set conn=nothing

© 版权声明

相关文章

暂无评论

  • 李玉刚
    李玉刚 游客

    建立数据源 这个是access 的数据源
    dim db,conn
    db="dbq="&server.mappath("数据库")&";defaultdir=;driver={microsoft access driver (*.mdb)};"
    set conn=server.createobject("adodb.connection")
    conn.open db
    然后用recordset 对表操作
    就是
    set rs=server.createobject("adodb.recordset")
    sql="select * from 表名 where 条件 order by 字段 desc/asc"
    这是查询的
    sql="update 表 set 字段="&值 ‘注:数字不用”,如果为字符,要用’值’
    这个是修改
    sql="delete 表.* from 表名 where 条件 "

    这个是删除的
    rs.open sql,conn,3,2就可以了

    回复
  • 李玉刚
    李玉刚 游客

    建立数据源 这个是access 的数据源
    dim db,conn
    db="dbq="&server.mappath("数据库")&";defaultdir=;driver={microsoft access driver (*.mdb)};"
    set conn=server.createobject("adodb.connection")
    conn.open db
    然后用recordset 对表操作
    就是
    set rs=server.createobject("adodb.recordset")
    sql="select * from 表名 where 条件 order by 字段 desc/asc"
    这是查询的
    sql="update 表 set 字段="&值 ‘注:数字不用”,如果为字符,要用’值’
    这个是修改
    sql="delete 表.* from 表名 where 条件 "

    这个是删除的
    rs.open sql,conn,3,2就可以了

    回复