用asp如何对access数据库进行增、删、改、查?
展开全部
数据库连接文件:<%
dim conn
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\html\access_db\db.mdb"
%>
数据库读取:显示文章标题
创建连接
<%
dim rsa
set rsa=server.CreateObject("ADODB.recordset")
rsa.open "select top 8 * from article order by visitnum desc",conn
%>
显示标题和时间。
<a href="sort1.asp?articleid=<%=rsa("articleid")%>"><%=rsa("title")%>(<%=rsa("date")%>)</a>
删除某条信息
<%
dim rs,articleid,sql,strsql
articleid=request.QueryString("articleid")
set rs=Server.CreateObject("ADODB.recordset")
rs.open "delete * from article where articleid="&articleid,conn
if session("admin")<>"" then
%>
修改文章
<%
dim rs,strsql,title,content,author,tuijian,classid
title=request.form("title")
content=request.form("content")
author=request.form("author")
tuijian=request.form("tuijian")
classid=request.form("class")
set rs=server.CreateObject("ADODB.Recordset")
insertsql="insert into article(title,content,author,tuijian,classid,visitnum) values('"&title&"','"&content&"','"&author&"','"&tuijian&"','"&classid&"',0)"
modsql="update article set title='"&title&"',content='"&content&"',author='"&author&"',tuijian='"&tuijian&"',classid='"&classid&"' where articleid="&request.QueryString("articleid")
%>
记得连接创建以后,在页面结尾处必须关闭,否则会出错。
dim conn
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\html\access_db\db.mdb"
%>
数据库读取:显示文章标题
创建连接
<%
dim rsa
set rsa=server.CreateObject("ADODB.recordset")
rsa.open "select top 8 * from article order by visitnum desc",conn
%>
显示标题和时间。
<a href="sort1.asp?articleid=<%=rsa("articleid")%>"><%=rsa("title")%>(<%=rsa("date")%>)</a>
删除某条信息
<%
dim rs,articleid,sql,strsql
articleid=request.QueryString("articleid")
set rs=Server.CreateObject("ADODB.recordset")
rs.open "delete * from article where articleid="&articleid,conn
if session("admin")<>"" then
%>
修改文章
<%
dim rs,strsql,title,content,author,tuijian,classid
title=request.form("title")
content=request.form("content")
author=request.form("author")
tuijian=request.form("tuijian")
classid=request.form("class")
set rs=server.CreateObject("ADODB.Recordset")
insertsql="insert into article(title,content,author,tuijian,classid,visitnum) values('"&title&"','"&content&"','"&author&"','"&tuijian&"','"&classid&"',0)"
modsql="update article set title='"&title&"',content='"&content&"',author='"&author&"',tuijian='"&tuijian&"',classid='"&classid&"' where articleid="&request.QueryString("articleid")
%>
记得连接创建以后,在页面结尾处必须关闭,否则会出错。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
SQL基本语句:
1.查询 select 查询字段名(*代表查询所有字段) from 表名 where 查询条件(可有可无,根据需要) order by 根据那个字段来排序 desc (desc代表倒序排列)
2.写入 insert into 表名(字段名(多个字段用逗号分隔,且要在英文输入的状态下)) values(要写入数据库的值,与字段名是对应的)
3.修改 update 表名 set 字段名=值,字段名=值 where 条件(如果没有指定更改条件,将会把所有的数据改成一样的)
4.删除 delete from 表名 where 条件(注意如果没有指定删除条件,将会把所有的数据删除)
1.查询 select 查询字段名(*代表查询所有字段) from 表名 where 查询条件(可有可无,根据需要) order by 根据那个字段来排序 desc (desc代表倒序排列)
2.写入 insert into 表名(字段名(多个字段用逗号分隔,且要在英文输入的状态下)) values(要写入数据库的值,与字段名是对应的)
3.修改 update 表名 set 字段名=值,字段名=值 where 条件(如果没有指定更改条件,将会把所有的数据改成一样的)
4.删除 delete from 表名 where 条件(注意如果没有指定删除条件,将会把所有的数据删除)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询