如何操作Access数据库?
来源:asp之家 发布时间:2009-11-11 19:23:00
本文实例介绍了asp对access数据库常见操作方法,查找记录,添加记录更新记录,删除记录等。
一、查找记录
find.htm
<HTML>
<HEAD>
<TITLE>精彩春风之Access数据库记录查找</TITLE>
</HEAD>
<BODY>
<FORM ACTION="find.asp" METHOD="POST" id=form1 name=form1>
请输入您要查找的人的姓名: <BR>
<INPUT TYPE="TEXT" NAME="man" SIZE=50><BR><BR>
<INPUT TYPE="submit" NAME="send" VALUE="他/她的id是多少?">
</FORM>
</BODY>
</HTML>
find.asp
<%
Option Explicit
%>
<!-- METADATA TYPE="typelib" FILE="C:\Program Files\Common Files\System\ado\msado15.dll" -->
<HTML>
<BODY>
<%
Dim strman, strfind , objConn
strman = Request.Form("man")
Dim objRS
Set objconn = Server.CreateObject("ADODB.Connection")
set objRS = Server.CreateObject("ADODB.Recordset")
objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("Man.mdb"))
objRS.Open "Names", objConn, adOpenStatic, adLockReadOnly, adCmdTable
strfind = "Name='" & strman & "'"
objRS.Find strfind
' 显示第一条相关记录
If objRS.EOF Then
Response.Write "哦,没有找到您要查找的人!" & _
strman
Else
Response.Write "他/她的姓名是: " & strman & "" & _
"Id是:" & objRS("ID") & "<BR>" & _
End If
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
</BODY>
</HTML>
二、过滤记录
filter.asp
<%
Option Explicit
%>
<!-- METADATA TYPE="typelib" FILE="C:\Program Files\Common Files\System\ado\msado15.dll" -->
<HTML>
<HEAD>
<TITLE>精彩春风之Access数据库记录过滤</TITLE>
</HEAD>
<BODY>
<%
Dim objRS, intLetter, strChar, strCriteria objConn
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("Man.mdb"))
objRS.Open "Names", objConn, adOpenStatic, adLockReadOnly,
adCmdTable
For intLetter = 1 To 26
strChar = Chr(intLetter+64)
strCriteria = "Title LIKE '" & strChar & "*'"
objRS.Filter = strCriteria
If Not objRS.EOF Then
Response.Write "<H2>" & strChar & "</H2>" & _
"<TABLE BORDER=1><TR><TD><B>姓名<B></TD><TD>ID</TD></TR>"
While Not objRS.EOF
Response.Write "<TR><TD>" & objRS("Name") & "</TD>" & _
"<TD>" & objRS("ID") & "</TD></TR>"
objRS.MoveNext
Wend
Response.Write "</TABLE>"
End If
Next
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
</BODY>
</HTML>
三、添加记录
add.asp
<%
Option Explicit
%>
<!-- METADATA TYPE="typelib" FILE="C:\Program Files\Common Files\System\ado\msado15.dll" -->
<HTML>
<HEAD>
<TITLE>精彩春风之Access数据库记录添加</TITLE>
</HEAD>
<BODY>
<%
Dim objRS, intIDForNewRecord , objConn
Set objConn = Server.CreateObject("ADODB.Connection")
set objRS = Server.CreateObject("ADODB.Recordset")
objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("Man.mdb"))
' 连接数据库
objRS.Open "Names", objConn, adOpenStatic, adLockOptimistic,
adCmdTable
objRS.MoveLast
intIDForNewRecord = objRS("ID") + 1
objRS.AddNew
' 添加新记录
objRS("ID") = intIDForNewRecord
objRS("Names") = "ManD"
objRS.Update
objRS.Close
objRS.Open "SELECT * FROM Names WHERE ID=" & intIDForNewRecord, _
ObjConn, adOpenForwardOnly, adLockReadOnly,
adCmdText
If objRS.EOF Then
Response.Write "噢,出错了!新记录没找到."
Else
Response.Write "恭喜,添加成功!新记录是:<BR> " & _
"Name = '" & objRS("Name") & "'<BR>" & _
"ID = '" & objRS("ID") & "'<BR>"
End If
objRS.Close
Set objRS = Nothing
objConn.Close
' 清空
Set objConn = Nothing
%>
</BODY>
</HTML>
四、更新记录
和上面的“添加记录”一样,只需把“添加”命令改做“更新”就可以了:
objRS.Update
五、删除记录
This is the asp page, we will delete the record that we added ManD:
<%
Option Explicit
%>
<!-- METADATA TYPE="typelib" FILE="C:\Program Files\Common Files\System\ado\msado15.dll" -->
<HTML>
<HEAD>
<TITLE>精彩春风之Access数据库记录删除</TITLE>
</HEAD>
<BODY>
<%
Dim objRS, intIDForNewRecord, objConn
Set objConn = Server.CreateObject("ADODB.Connection")
set objRS = Server.CreateObject("ADODB.Recordset")
objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("Man.mdb"))
objRS.Open "Names", objConn, adOpenStatic, adLockOptimistic,
adCmdTable
objRS.Filter = "Name = ' ManD'"
Response.Write "注意,以下记录将被删除:<BR> "
While Not objRs.EOF
Response.Write objRS("ID") & "<BR>"
objRS.Delete
objRS.MoveNext
Wend
objRS.Close
Response.Write "<BR>核实删除记录:<BR>"
objRS.Open "SELECT * FROM Names WHERE Name LIKE 'ManD'", _
objConn, adOpenForwardOnly, adLockReadOnly,
adCmdText
If objRS.EOF Then
Response.Write "ManD的所有记录都已被从数据库删除!<BR> "
Else
Response.Write "噢,删除失败!ManD的记录还在数据库里呢, " & _
"ID=" & objRS("ID")
End If
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
</BODY>
</HTML>


猜你喜欢
- 闲来无事,想通过python来实现一些简单的游戏辅助脚本,而游戏辅助脚本的主要原理就是通过程序来查找游戏程序窗口,模拟实现鼠标点击和键盘按键
- 上一节除了介绍使用 Python 连接 es,还有最简单的 query() 方法,这一节介绍一下几种其他的查询方式。1、query() 方法
- 项目进行到和服务器交互,通过post访问服务器端jsp,jsp访问服务器端mysql数据库,最终返回到客户端的中文出现乱码问题。在整个流程中
- 前言SVG可以算是目前最最火热的图像文件格式了,它的英文全称为Scalable Vector Graphics,意思为可缩放的矢量图形。它是
- <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN&
- 最近在作图时需要将输出的图片紧密排布,还要去掉坐标轴,同时设置输出图片大小。要让程序自动将图表保存到文件中,代码为:plt.savefig(
- 摘要:将英文单词首字母变成大写是一个古老的话题,很常用,也很简单。不过如何用更简单的方式批量完成这个工作,则有很多学问,不想来看看吗!将英文
- 前言网络摄像头的视频流解析直接使用通过http的Mjpeg是具有边界帧信息的multipart / x-mixed-replace,而jpe
- 前言之前学python时在网上找了好多小程序,由于年代久远,已经忘记出自哪里了,给代码加了点注释,再稍微修改了一下,让代码的可读性更好,如有
- 本文实例讲述了JavaScript队列的应用。分享给大家供大家参考,具体如下:和前面介绍的栈相反,队列是一种先进先出的线性表,它只允许在表的
- 今天用numpy 的linalg.det()求矩阵的逆的过程中出现了一个错误:TypeError: No loop matching the
- 用python给自己做个练习系统刷题吧!实现效果实现代码选择题def xuanze(): global flag2
- 举例为大家介绍如何运用命令行实现MySQL导出导入数据库一、命令行导出数据库1.进入MySQL目录下的bin文件夹:cd MySQL中到bi
- JavaScript使用if () { ... } else { ... }来进行条件判断。例如,根据年龄显示不同内容,可以用if语句实现如
- API:statuses/public_timeline 返回最新的200条公共微博,返回结果非完全实时CODE:#!/usr/
- 目录1. 为什么选择Playwright1.1 Playwright的优势1.2 已知局限性2. Playwright使用2.1 安装2.2
- 前面章节我们学些了文件对象的创建、写入与读取,并且针对 .py 文件 与 .txt 文件进行了有针对性的小练习。 通过前面的学习我们知道,文
- 从控制台输入要出的拳 —— 剪刀(0)/石头(1)/布(2) 电脑 **随机*
- views,中设置请求的类型class LawDetailView(View): def get(self, request, law_id
- 类的定义Python中,定义类是通过class关键字,例如我们定义一个存储学生信息的类:class Student(object):pass