ADO世界之SECOND

news/2024/7/24 12:54:18 标签: 数据库, 前端, ADO, 笔记, html
htmledit_views">

目录

html" title=ADO>ADO%20%E6%8E%92%E5%BA%8F%E8%AE%B0%E5%BD%95-toc" style="margin-left:40px;">一、html" title=ADO>ADO 排序记录

1.对数据进行排序

2.根据指定的字段名处对记录进行升序排序

3.根据指定的字段名处对记录进行降序排序

4.让用户来选择根据哪列进行排序

html" title=ADO>ADO%20%E6%B7%BB%E5%8A%A0%E8%AE%B0%E5%BD%95-toc" style="margin-left:40px;">二、html" title=ADO>ADO 添加记录

1.向html" title=数据库>数据库中的表添加记录

2.使用 INSERT command 命令时的注意事项

3.无数据字段

html" title=ADO>ADO%20%E6%9B%B4%E6%96%B0%E8%AE%B0%E5%BD%95-toc" style="margin-left:40px;">三、html" title=ADO>ADO 更新记录

1.更新html" title=数据库>数据库表中的记录

一、html" title=ADO>ADO 排序记录

使用SQL来规定如何对记录集中的数据进行排序。

1.对数据进行排序

显示 "Customers" 表中的"Companyname"和"Contactname"字段，并根据"Companyname"进行排序（请记得用.asp为后缀保存）：

<html>

<body>

<%

set conn=Server.CreateObject("html" title=ADO>ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open "c:/webdata/northwind.mdb"

set rs = Server.CreateObject("html" title=ADO>ADODB.recordset")

sql="SELECT Companyname, Contactname FROM

Customers ORDER BY CompanyName"

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.根据指定的字段名处对记录进行升序排序

<html>

<body>

<%

set conn=Server.CreateObject("html" title=ADO>ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open(Server.Mappath("/db/northwind.mdb"))

set rs = Server.CreateObject("html" title=ADO>ADODB.recordset")

sql="SELECT Companyname, Contactname FROM Customers ORDER BY CompanyName"

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.根据指定的字段名处对记录进行降序排序

<html>

<body>

<%

set conn=Server.CreateObject("html" title=ADO>ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open(Server.Mappath("/db/northwind.mdb"))

set rs = Server.CreateObject("html" title=ADO>ADODB.recordset")

sql="SELECT Companyname, Contactname FROM Customers ORDER BY CompanyName DESC"

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>

<table border="1" width="100%" bgcolor="#fff5ee">

<tr>

<th align="left" bgcolor="#b0c4de">

<a href="/example/adoe/demo_adoe_sort_3.asp?sort=companyname">Company</a>

</th>

<th align="left" bgcolor="#b0c4de">

<a href="/example/adoe/demo_adoe_sort_3.asp?sort=contactname">Contact</a>

</th>

</tr>

<%

if request.querystring("sort")<>"" then

   sort=request.querystring("sort")

else

   sort="companyname"

end if

set conn=Server.CreateObject("html" title=ADO>ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open(Server.Mappath("/db/northwind.mdb"))

set rs=Server.CreateObject("html" title=ADO>ADODB.recordset")

sql="SELECT Companyname,Contactname FROM Customers ORDER BY " & sort

rs.Open sql,conn

do until rs.EOF

   response.write("<tr>")

   for each x in rs.Fields

     response.write("<td>" & x.value & "</td>")

   next

   rs.MoveNext

   response.write("</tr>")

loop

rs.close

conn.close

%>

</table>

</body>

</html>

html" title=ADO>ADO%20%E6%B7%BB%E5%8A%A0%E8%AE%B0%E5%BD%95" style="margin-left:.0001pt;text-align:justify;">二、html" title=ADO>ADO 添加记录

使用 SQL 的 INSERT INTO 命令向html" title=数据库>数据库中的表添加记录。

1.向html" title=数据库>数据库中的表添加记录

向 Northwind html" title=数据库>数据库中的 Customers 表添加一条新的记录。

首先要创建一个表单，这个表单包含了从中搜集数据的输入域：

<html>

<body>

<form method="post" action="demo_add.asp">

<table>

<tr>

<td>CustomerID:</td>

<td><input name="custid"></td>

</tr><tr>

<td>Company Name:</td>

<td><input name="compname"></td>

</tr><tr>

<td>Contact Name:</td>

<td><input name="contname"></td>

</tr><tr>

<td>Address:</td>

<td><input name="address"></td>

</tr><tr>

<td>City:</td>

<td><input name="city"></td>

</tr><tr>

<td>Postal Code:</td>

<td><input name="postcode"></td>

</tr><tr>

<td>Country:</td>

<td><input name="country"></td>

</tr>

</table>

<br /><br />

<input type="submit" value="Add New">

<input type="reset" value="Cancel">

</form>

</body>

</html>

当用户按下确认按钮时，这个表单就会被送往名为 "demo_add.asp" 的文件。文件 "demo_add.asp" 中含有可向 Customers 表添加一条新记录的代码：

<html>

<body>

<%

set conn=Server.CreateObject("html" title=ADO>ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open "c:/webdata/northwind.mdb"

sql="INSERT INTO customers (customerID,companyname,"

sql=sql & "contactname,address,city,postalcode,country)"

sql=sql & " VALUES "

sql=sql & "('" & Request.Form("custid") & "',"

sql=sql & "'" & Request.Form("compname") & "',"

sql=sql & "'" & Request.Form("contname") & "',"

sql=sql & "'" & Request.Form("address") & "',"

sql=sql & "'" & Request.Form("city") & "',"

sql=sql & "'" & Request.Form("postcode") & "',"

sql=sql & "'" & Request.Form("country") & "')"

on error resume next

conn.Execute sql,recaffected

if err<>0 then

  Response.Write("No update permissions!")

else

  Response.Write("<h3>" & recaffected & " record added</h3>")

end if

conn.close

%>

</body>

</html>

2.使用 INSERT command 命令时的注意事项

1.如果表含有一个主键，请确保向主键字段添加的值是唯一且非空的（否则，provider 就不会追加此记录，亦或发生错误）

2.如果表含有一个自动编号的字段，请不要在 INSERT 命令中涉及此字段（这个字段的值是由 provider 负责的）

3.无数据字段

在 MS Access html" title=数据库>数据库中，将 AllowZeroLength 属性设置为 “Yes”，就可以在文本、超链接以及备忘字段输入零长度的字符串 ("")。

注：并非所有的html" title=数据库>数据库都支持零长度的字符串。

html" title=ADO>ADO%20%E6%9B%B4%E6%96%B0%E8%AE%B0%E5%BD%95" style="margin-left:.0001pt;text-align:justify;">三、html" title=ADO>ADO 更新记录

使用 SQL 的 UPDATE 来更新html" title=数据库>数据库表中的某条记录。

1.更新html" title=数据库>数据库表中的记录

更新 Northwind 数据中 Customers 表的某条记录。

首先创建一个表格，来列出 Customers 中的所有记录。

<html>

<body>

<%

set conn=Server.CreateObject("html" title=ADO>ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open "c:/webdata/northwind.mdb"

set rs=Server.CreateObject("html" title=ADO>ADODB.Recordset")

rs.open "SELECT * FROM customers",conn

%>

<h2>List Database</h2>

<table border="1" width="100%">

<tr>

<%

for each x in rs.Fields

  response.write("<th>" & ucase(x.name) & "</th>")

next

%>

</tr>

<% do until rs.EOF %>

<tr>

<form method="post" action="demo_update.asp">

<%

for each x in rs.Fields

  if lcase(x.name)="customerid" then%>

    <td>

    <input type="submit" name="customerID" value="<%=x.value%>">

    </td>

  <%else%>

    <td><%Response.Write(x.value)%></td>

  <%end if

next

%>

</form>

<%rs.MoveNext%>

</tr>

<%

loop

conn.close

%>

</table>

</body>

</html>

如果用户点击 "customerID" 列中的按钮，会打开一个新文件 "demo_update.asp"。此文件包含了创建输入域的源代码，这些输入域基于html" title=数据库>数据库中记录的字段，同时也含有一个保存修改的“更新按钮”：

<html>

<body>

<h2>Update Record</h2>

<%

set conn=Server.CreateObject("html" title=ADO>ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open "c:/webdata/northwind.mdb"

cid=Request.Form("customerID")

if Request.form("companyname")="" then

  set rs=Server.CreateObject("html" title=ADO>ADODB.Recordset")

  rs.open "SELECT * FROM customers WHERE customerID='" & cid & "'",conn

  %>

  <form method="post" action="demo_update.asp">

  <table>

  <%for each x in rs.Fields%>

  <tr>

  <td><%=x.name%></td>

  <td><input name="<%=x.name%>" value="<%=x.value%>"></td>

  <%next%>

  </tr>

  </table>

  <br /><br />

  <input type="submit" value="Update record">

  </form>

<%

else

  sql="UPDATE customers SET "

  sql=sql & "companyname='" & Request.Form("companyname") & "',"

  sql=sql & "contactname='" & Request.Form("contactname") & "',"

  sql=sql & "address='" & Request.Form("address") & "',"

  sql=sql & "city='" & Request.Form("city") & "',"

  sql=sql & "postalcode='" & Request.Form("postalcode") & "',"

  sql=sql & "country='" & Request.Form("country") & "'"

  sql=sql & " WHERE customerID='" & cid & "'"

  on error resume next

  conn.Execute sql

  if err<>0 then

    response.write("No update permissions!")

  else

    response.write("Record " & cid & " was updated!")

  end if

end if

conn.close

%>

</body>

</html>


http://www.niftyadmin.cn/n/5380305.html

相关文章

数据库设计、JDBC、数据库连接池

数据库设计、JDBC、数据库连接池

数据库设计 数据库设计概念 数据库设计就是根据业务 系统的具体需求&#xff0c;结合我们所选用的DBMS,为这个业务系统构造出最优的数据存储模型。建立数据库中的表结构以及表与表之间的关联关系的过程。有哪些表?表里有哪些字段?表和表之间有什么关系? 数据库设计的步骤…
阅读更多...
Rust中的字符串处理及相关方法详解

Rust中的字符串处理及相关方法详解

在Rust中&#xff0c;字符串是一种非常重要的数据类型&#xff0c;而String类型则提供了对动态可变字符串的支持。本文将介绍一些常见的字符串处理方法以及相关示例代码。 创建字符串 在Rust中&#xff0c;有多种方式创建字符串&#xff0c;以下是一些常见的例子&#xff1a;…
阅读更多...
数据结构~二叉树（基础知识）

数据结构~二叉树（基础知识）

上一篇博客我们对树有了初步了解与学习&#xff0c;这篇我将初步学习二叉树&#xff01;&#xff01;&#xff08;新年快乐&#xff01;&#xff09; 目录 二叉树 1、定义&#xff1a; 2、特点&#xff1a; 3、基本形态&#xff1a; 4、二叉树的种类&#xff1a; &…
阅读更多...
代码随想录 -- 数组

代码随想录 -- 数组

文章目录 二分查找题目描述题解 移除元素题目描述题解&#xff1a;暴力解法题解&#xff1a;双指针法 有序数组的平方题目描述题解&#xff1a;暴力解法题解&#xff1a;双指针法 长度最小的子数组题目描述题解&#xff1a;暴力解法题解&#xff1a;滑动窗口&#xff08;双指针…
阅读更多...
MCU看门狗

MCU看门狗

目录 一、独立看门狗(IWDG) 1、IWDG 主要作用 2、IWDG 主要特性 3、编程控制 4、注意地方 二、窗口看门狗(WWDG) 1、窗口看门狗作用&#xff1a; 2、窗口看门狗产生复位信号有两个条件&#xff1a; 3、WWDG 框图 4、WWDG 将要复位的时间 5、编程控制 一、独立看门…
阅读更多...
CSS 不同颜色的小圆角方块组成的旋转加载动画

CSS 不同颜色的小圆角方块组成的旋转加载动画

<template><!-- 创建一个装载自定义旋转加载动画的容器 --><view class="spinner"><!-- 定义外部包裹容器，用于实现整体旋转动画 --><view class="outer"><!-- 定义四个内部小方块以形成十字形结构 --><view clas…
阅读更多...
选择seo框架的优缺点

选择seo框架的优缺点

Vue.js - 渐进式 JavaScript 框架 | Vue.jsVue.js - 渐进式的 JavaScript 框架https://cn.vuejs.org/ Nuxt.js - Vue.js 通用应用框架 | Nuxt.js 中文网Nuxt.js 是一个基于 Vue.js 的轻量级应用框架&#xff0c;可用来创建服务端渲染 (SSR) 应用&#xff0c;也可充当静态站点引…
阅读更多...
【nginx实践连载-3】发布VSTO应用

【nginx实践连载-3】发布VSTO应用

要使用 Nginx 发布 VSTO 应用程序&#xff0c;需要将 ClickOnce 发布文件夹部署到 Nginx 服务器上。以下是一些步骤&#xff1a; 将 ClickOnce 发布文件夹复制到 Nginx 服务器上。确认 Nginx 配置文件中有一个指向 ClickOnce 发布文件夹的位置块。确保Nginx 配置文件中启用了 …
阅读更多...
最新文章

Copyright @ 2022~2023