ADO世界之FIRST
目录
一、ADO 简介
二、ADO 数据库连接
1.创建一个 DSN-less 数据库连接
2.创建一个 ODBC 数据库连接
3.到 MS Access 数据库的 ODBC 连接
4.ADO 连接对象（ADO Connection Object）
三、ADO Recordset（记录集）
1.创建一个 ADO 表记录集（ADO Table Recordset）
2.创建一个 ADO SQL 记录集 （ADO SQL Recordset）
3.从记录集中提取数据
4.ADO 记录集对象（ADO Recordset Object）
四、ADO 显示
1.显示字段名称和字段值
2.在一个 HTML 表格中显示字段名称和字段的值
3.向 HTML 表格添加标题
4.向 HTML 表格添加颜色
五、ADO 查询
1.显示选定的数据
2.仅显示 "Customers" 表的 "Companyname" 字段中大于 E 的记录
3.仅显示 "Customers" 表中的西班牙客户
4.让用户根据国别来选择客户
一、ADO 简介
①ADO自述：
1.ADO 是一项微软的技术
2.ADO 是一个微软的 Active-X 组件
3.ADO 是一个访问数据库中数据的编程接口
4.ADO 指 ActiveX 数据对象（ActiveX Data Objects）
5.ADO 被用于从网页访问数据库
6.ADO 会随微软的 IIS 被自动安装
②从一个 ASP 页面内部访问数据库的通常的方法是：
1.创建一个到数据库的 ADO 连接
2.打开数据库连接
3.创建 ADO 记录集
4.从记录集提取您需要的数据
5.关闭记录集
6.关闭连接
二、ADO 数据库连接
在从某个网页访问数据之前，必须先建立一个数据库连接。
1.创建一个 DSN-less 数据库连接
连接到某一个数据库的最简单的方法是使用一个 DSN-less 连接。DSN-less 连接可被用于您的站点上的任何微软 Access 数据库。
假设您拥有一个名为 "northwind.mdb" 的数据库位于 "c:/webdata/" 的 web 目录中，您可以使用下面的 ASP 代码连接到此数据库：
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
%>
注意，在上面的例子中，您必须规定微软的 Access 数据库驱动程序（Provider），以及此数据库在计算机上的物理路径。
2.创建一个 ODBC 数据库连接
假设您拥有一个名为 "northwind" 的 ODBC 数据库，您可以使用下面的 ASP 代码连接到此数据库：
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "northwind"
%>
通过一个 ODBC 连接，您可以连接到您的网络中任何计算机上的任何数据库，只要 ODBC 连接是可用的。
3.到 MS Access 数据库的 ODBC 连接
如何创建到一个 MS Access 数据库的连接：
1.打开控制面板中的 ODBC 图标
2.选择系统 ODBC 选项卡
3.点击 ODBC 选项卡中的添加按钮
4.选择 Driver to Microsoft Access，然后点击完成按钮
5.在下一个窗口中点击“选择”按钮来定位数据库
6.为此数据库赋予一个数据源名称（Data Source Name，DSN）
7.点击"确定"
注：此配置必须在您的网站所在的计算机上完成。假如您正在自己的计算机上运行PWS或者IIS，此架构是可以运行的，但是假如您的网站位于一台远程的服务器，您就必须拥有此服务器的物理访问权限，或者请您的 web 主机提供商为您做这些事情。
4.ADO 连接对象（ADO Connection Object）
ADO 连接对象用来创建到某个数据源的开放连接。通过此连接，您可以对此数据库进行访问和操作，查看此连接对象的所有方法和属性。
三、ADO Recordset（记录集）
如需读取数据库的数据，那么其中的数据必须首先被载入一个记录集中。
1.创建一个 ADO 表记录集（ADO Table Recordset）
假设有一个名为 "Northwind" 的数据库，通过下面的代码访问数据库中的 "Customers" 表：
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Customers", conn
%>
2.创建一个 ADO SQL 记录集 （ADO SQL Recordset）
使用 SQL 访问 "Customers" 表中的数据：
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select * from Customers", conn
%>
3.从记录集中提取数据
假设用一个名为 "Northwind" 的数据库，通过下面的代码访问数据库中 "Customers" 表：
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select * from Customers", conn
for each x in rs.fields
response.write(x.name)
response.write(" = ")
response.write(x.value)
next
%>
4.ADO 记录集对象（ADO Recordset Object）
ADO Recordset 对象可被用来容纳来自数据库表的记录集。
查看 ADO Recordset 对象的所有方法和属性。
四、ADO 显示
显示来自记录集中的数据的最常用的方法，就是把数据显示在 HTML 表格中。
1.显示字段名称和字段值
一个名为 "Northwind" 的数据库，显示出 "Customers" 表中的数据（记得以 .asp 为扩展名来保存这个文件）：
<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "SELECT * FROM Customers", conn
do until rs.EOF
for each x in rs.Fields
Response.Write(x.name)
Response.Write(" = ")
Response.Write(x.value & "<br />")
next
Response.Write("<br />")
rs.MoveNext
loop
rs.close
conn.close
%>
</body>
</html>
2.在一个 HTML 表格中显示字段名称和字段的值
通过下面的代码把表 "Customers" 中的数据显示在一个 HTML 表格中：
<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "SELECT Companyname, Contactname FROM Customers", conn
%>
<table border="1" width="100%">
<%do until rs.EOF%>
<tr>
<%for each x in rs.Fields%>
<td><%Response.Write(x.value)%></td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
conn.close
%>
</table>
</body>
</html>
3.向 HTML 表格添加标题
为这个 HTML 表格添加标题：
<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Companyname, Contactname FROM Customers"
rs.Open sql, conn
%>
<table border="1" width="100%">
<tr>
<%for each x in rs.Fields
response.write("<th>" & x.name & "</th>")
next%>
</tr>
<%do until rs.EOF%>
<tr>
<%for each x in rs.Fields%>
<td><%Response.Write(x.value)%></td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
conn.close
%>
</table>
</body>
</html>
4.向 HTML 表格添加颜色
<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/db/northwind.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Companyname, Contactname FROM Customers"
rs.Open sql, conn
%>
<table border="1" width="100%" bgcolor="#fff5ee">
<tr>
<%for each x in rs.Fields
response.write("<th align='left' bgcolor='#b0c4de'>" & x.name & "</th>")
next%>
</tr>
<%do until rs.EOF%>
<tr>
<%for each x in rs.Fields%>
<td><%Response.Write(x.value)%></td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
conn.close
%>
</table>
</body>
</html>
五、ADO 查询
使用 SQL 来创建查询，指定仅查看选定的记录和字段。
1.显示选定的数据
仅显示 "Customers" 表的 "Companyname" 字段中以 A 开头的记录：
<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=Server.CreateObject("ADODB.recordset")
sql="SELECT Companyname, Contactname FROM Customers
WHERE CompanyName LIKE 'A%'"
rs.Open sql, conn
%>
<table border="1" width="100%">
<tr>
<%for each x in rs.Fields
response.write("<th>" & x.name & "</th>")
next%>
</tr>
<%do until rs.EOF%>
<tr>
<%for each x in rs.Fields%>
<td><%Response.Write(x.value)%></td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
conn.close%>
</table>
</body>
</html>
2.仅显示 "Customers" 表的 "Companyname" 字段中大于 E 的记录
<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/db/northwind.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Companyname, Contactname FROM Customers WHERE CompanyName>'E'"
rs.Open sql, conn
%>
<table border="1" width="100%">
<tr>
<%for each x in rs.Fields
response.write("<th>" & x.name & "</th>")
next%>
</tr>
<%do until rs.EOF%>
<tr>
<%for each x in rs.Fields%>
<td><%Response.Write(x.value)%> </td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
conn.close
%>
</table>
</body>
</html>
3.仅显示 "Customers" 表中的西班牙客户
<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/db/northwind.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Companyname, Contactname FROM Customers WHERE Country='China'"
rs.Open sql, conn
%>
<table border="1" width="100%">
<tr>
<%for each x in rs.Fields
response.write("<th>" & x.name & "</th>")
next%>
</tr>
<%do until rs.EOF%>
<tr>
<%for each x in rs.Fields%>
<td><%Response.Write(x.value)%> </td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
conn.close
%>
</table>
</body>
</html>
4.让用户根据国别来选择客户
<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/db/northwind.mdb"))
set rs=Server.CreateObject("ADODB.recordset")
sql="SELECT DISTINCT Country FROM Customers ORDER BY Country"
rs.Open sql,conn
country=request.form("country")
%>
<form method="post">
Choose Country <select name="country">
<% do until rs.EOF
response.write("<option")
if rs.fields("country")=country then
response.write(" selected")
end if
response.write(">")
response.write(rs.fields("Country"))
rs.MoveNext
loop
rs.Close
set rs=Nothing %>
</select>
<input type="submit" value="Show customers">
</form>
<%
if country<>"" then
sql="SELECT Companyname,Contactname,Country FROM Customers WHERE country='" & country & "'"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn
%>
<table width="100%" cellspacing="0" cellpadding="2" border="1">
<tr>
<th>Companyname</th>
<th>Contactname</th>
<th>Country</th>
</tr>
<%
do until rs.EOF
response.write("<tr>")
response.write("<td>" & rs.fields("companyname") & "</td>")
response.write("<td>" & rs.fields("contactname") & "</td>")
response.write("<td>" & rs.fields("country") & "</td>")
response.write("</tr>")
rs.MoveNext
loop
rs.close
conn.Close
set rs=Nothing
set conn=Nothing%>
</table>
<% end if %>
</body>
</html>
相关文章：
ADO世界之FIRST
目录 一、ADO 简介 二、ADO 数据库连接 1.创建一个 DSN-less 数据库连接 2.创建一个 ODBC 数据库连接 3.到 MS Access 数据库的 ODBC 连接 4.ADO 连接对象（ADO Connection Object） 三、ADO Recordset（记录集） 1.创建一个 …...
【COMP337 LEC 5-6】
LEC 5 Perceptron ： Binary Classification Algorithm 8 感应器是 单个神经元的模型 突触连接的强度取决于接受外部刺激的反应 X input W weights a x1*w1x2*w2....... > / < threshold Bias MaxIter is a hyperparameter 超参数 which has to be chosen…...
力扣72. 编辑距离（动态规划）
Problem: 72. 编辑距离 文章目录 题目描述思路复杂度Code 题目描述 思路 由于易得将字符串word1向word2转换和word2向word1转换是等效的，则我们假定统一为word1向word2转换！！！ 1.确定状态：我们假设现在有下标i&#x…...
linux tree命令找不到：如何使用Linux Tree命令查看文件系统结构
Linux tree命令是一个用于显示文件夹和文件的结构的工具，它可以帮助用户更好地理解文件系统的结构。如果你在linux系统上找不到tree命令，那么可能是因为你的系统中没有安装tree命令。 解决方案 Linux tree命令是一个用于显示文件夹和文件的结构的工具&…...
OJ_最大逆序差
题目 给定一个数组，编写一个算法找出这个数组中最大的逆序差。逆序差就是i<j时，a[j]-a[i]的值 c语言实现 #include <stdio.h> #include <limits.h> // 包含INT_MIN定义 int maxReverseDifference(int arr[], int size) { if (size…...
MyBatis-Plus 实体类里写正则让字段phone限制为手机格式
/* Copyright © 2021User:啾啾修车File:ToupiaoRecord.javaDate:2021/01/12 19:29:12 */ package com.jjsos.repair.toupiao.entity; import com.baomidou.mybatisplus.annotation.IdType; import com.baomidou.mybatisplus.annotation.TableField; import com.baomido…...
K8S之运用污点、容忍度设置Pod的调度约束
污点、容忍度 污点容忍度 taints 是键值数据，用在节点上，定义污点； tolerations 是键值数据，用在pod上，定义容忍度，能容忍哪些污点。 污点 污点是定义在k8s集群的节点上的键值属性数据，可以决…...
Sora爆火，普通人的10个赚钱机会
您好，我是码农飞哥（wei158556），感谢您阅读本文，欢迎一键三连哦。💪🏻 1. Python基础专栏，基础知识一网打尽，9.9元买不了吃亏，买不了上当。 Python从入门到精通…...
【C++】C++入门—初识构造函数 ， 析构函数，拷贝构造函数，赋值运算符重载
C入门 六个默认成员函数1 构造函数语法特性 2 析构函数语法特性 3 拷贝构造函数特性 4 赋值运算符重载运算符重载赋值运算符重载特例：前置 与 后置前置：返回1之后的结果后置： Thanks♪(･ω･)ﾉ谢谢阅读&…...
沁恒CH32V30X学习笔记04--外部中断
外部中断 CH32V2x 和 CH32V3x 系列内置可编程快速中断控制器（PFIC– Programmable Fast Interrupt Controller），最多支持 255 个中断向量。当前系统管理了 88 个外设中断通道和 8 个内核中断通道 PFIC 控制器 88个外设中断，每个中断请求都有独立的触发和屏蔽控制位，有专…...
基础IO[三]
close关闭之后文件内部没有数据， stdout和stderr 他们一起重定向，只会重定向号文件描述符，因为一号和二号描述符虽然都是sydout，但是并不一样，而是相当于一个显示器被打开了2次。 分别重定向到2个文件的写法和直接写道…...
Leetcode 392 判断子序列
题意理解： 给定字符串 s 和 t ，判断 s 是否为 t 的子序列。 字符串的一个子序列是原始字符串删除一些（也可以不删除）字符而不改变剩余字符相对位置形成的新字符串。（例如，"ace"是"abcde&quo…...
基于微信小程序的校园跑腿系统的研究与实现，附源码
博主介绍：✌程序员徐师兄、7年大厂程序员经历。全网粉丝12w、csdn博客专家、掘金/华为云/阿里云/InfoQ等平台优质作者、专注于Java技术领域和毕业项目实战✌ 🍅文末获取源码联系🍅 👇🏻 精彩专栏推荐订阅👇…...
VTK Python PyQt 监听键盘 控制 Actor 移动 变色
KeyPressInteractorStyle 在vtk 中有时我们需要监听 键盘或鼠标做一些事； 1. 创建 Actor； Sphere vtk.vtkSphereSource() Sphere.SetRadius(10)mapper vtk.vtkPolyDataMapper() mapper.SetInputConnection(Sphere.GetOutputPort()) actor vtk.vtkAc…...
力扣 第 124 场双周赛 解题报告 | 珂学家 | 非常规区间合并
前言 整体评价 T4的dp解法没想到，走了一条"不归路", 这个区间合并解很特殊，它是带状态的，而且最终的正解也是基于WA的case，慢慢理清的。 真心不容易，太难了。 T1. 相同分数的最大操作数目 I 思路: 模拟 c…...
2024年华为OD机试真题-生成哈夫曼树-Java-OD统一考试（C卷）
题目描述： 给定长度为n的无序的数字数组，每个数字代表二叉树的叶子节点的权值，数字数组的值均大于等于1。请完成一个函数，根据输入的数字数组，生成哈夫曼树，并将哈夫曼树按照中序遍历输出。 为了保证输出的二叉树中序遍历结果统一，增加以下限制：二叉树节点中，左节点权…...
【实战】二、Jest难点进阶（二） —— 前端要学的测试课 从Jest入门到TDD BDD双实战（六）
文章目录 一、Jest 前端自动化测试框架基础入门二、Jest难点进阶2.mock 深入学习 学习内容来源：Jest入门到TDD/BDD双实战_前端要学的测试课 相对原教程，我在学习开始时（2023.08）采用的是当前最新版本： 项版本babel/co…...
（一）【Jmeter】JDK及Jmeter的安装部署及简单配置
JDK的安装和环境变量配置 对于Linux、Mac和Windows系统，JDK的安装和环境变量配置方法略有不同。以下是针对这三种系统的详细步骤： 对于Linux系统： 下载适合Linux系统的JDK安装包，可以选择32位或64位的版本。 将JDK的安装包放置在服务器下，创建一个新的文件夹来存储JDK，…...
HAL/LL/STD STM32 U8g2库 +I2C SSD1306/sh1106 WouoUI磁贴案例
HAL/LL/STD STM32 U8g2库 I2C SSD1306/sh1106 WouoUI磁贴案例 📍基于STM32F103C8T6 LL库驱动版本：https://gitee.com/chcsx/platform-test/tree/master/MDK-ARM🎬视频演示： WouoUI移植磁贴案例，新增确认弹窗 …...
手机如何改自己的ip地址
在现如今的数码时代，手机已经成为人们生活中不可或缺的一部分。然而，有时候我们可能需要改变手机的IP地址来实现一些特定的需求。本文将向大家介绍如何改变手机的IP地址，帮助大家更好地应对各种网络问题。 更改手机IP地址的原因：…...
ajax函数库axios基本使用
ajax函数库Axios基本使用 简介：Axios 对原生的Ajax进行了封装，简化书写，快速开发。 官网：https://www.axios-http.cn/ Axios使用步骤 引入Axios的js文件(参考官网)使用Axios发送请求,获取相应结果 <script src"https:…...
【nginx实践连载-4】彻底卸载Nginx（Ubuntu）
步骤1：停止Nginx服务 打开终端（Terminal）。停止Nginx服务：sudo systemctl stop nginx步骤2：卸载Nginx软件包 运行以下命令卸载Nginx软件包：sudo apt purge nginx nginx-common nginx-core步骤3࿱…...
究极小白如何自己搭建一个自动发卡网站-独角数卡
首页 | 十画IOSIDshihuaid.cn/编辑 如果你也是跟我一样，什么都不懂，也想要搭建一个自己的自动发卡网站，可以参考一下我的步骤，不难，主要就是细心，一步步来一定成功！！ 独角数卡： 举个例子：独角数卡就是一个店面，而且里面帮你装修好了，而你要做的就是把开店之…...
Java_方法(重载方法签名等详解)
在之前我们学习C语言时，当我们想要重复使用某段代码的功能时，我们会将这段代码定义为一个函数，而在java中我们把这段重复使用的代码叫做方法。 方法的定义 类体的内容分为变量的声明和方法的定义，方法的定义包括两部分࿱…...
VQ35 评论替换和去除（char_length()和replace函数的使用）
代码 select id ,replace(comment,，,) as comment from comment_detail where char_length(comment)>3知识点 要注意替换的是中文逗号 由于题目说的是汉字长度大于3，所以这里就要使用char_length()而不是length() char_length()：单位为字…...
【MySQL】学习多表查询和笛卡尔积
🌈个人主页: Aileen_0v0 🔥热门专栏: 华为鸿蒙系统学习|计算机网络|数据结构与算法 💫个人格言:“没有罗马,那就自己创造罗马~” #mermaid-svg-N8PeTKG6uLu4bJuM {font-family:"trebuchet ms",verdana,arial,sans-serif;font-siz…...
RabbitMQ实现延迟消息的方式-死信队列、延迟队列和惰性队列
当一条消息因为一些原因无法被成功消费，那么这这条消息就叫做死信，如果包含死信的队列配置了dead-letter-exchange属性指定了一个交换机，队列中的死信都会投递到这个交换机内，这个交换机就叫死信交换机，死信交换机再绑…...
【运维测试】测试理论+工具总结笔记第1篇：测试理论的主要内容（已分享，附代码）
本系列文章md笔记（已分享）主要讨论测试理论测试工具相关知识。Python测试理论的主要内容，掌握软件测试的基本流程，知道软件测试的V和W模型的优缺点，掌握测试用例设计的要素，掌握等价类划分法、边界值法、因…...
【C语言】实现队列
目录 （一）队列 （二）头文件 （三） 功能实现 （1）初始化 （2） 销毁队列 （3） 入队 （4）出队 （5&a…...
【友塔笔试面试复盘】八边形取反问题
问题：一个八边形每条边都是0，现在有取反操作，选择一条边取反会同时把当前边和2个邻边取反（如果是0变为1，如果是1变为0） 现在问你怎么取反能使得八条边都变为1. 当时陷入了暴力递归漩涡，给出一个…...