ADO世界之SECOND

这篇具有很好参考价值的文章主要介绍了ADO世界之SECOND。希望对大家有所帮助。如果存在错误或未考虑完全的地方,请大家不吝赐教,您也可以点击"举报违法"按钮提交疑问。

目录

一、ADO 排序记录

1.对数据进行排序

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

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

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

二、ADO 添加记录

1.向数据库中的表添加记录

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

3.无数据字段

三、ADO 更新记录

1.更新数据库表中的记录


一、ADO 排序记录

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

1.对数据进行排序

显示 "Customers" 表中的"Companyname"和"Contactname"字段,并根据"Companyname"进行排序(请记得用.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")

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>文章来源地址https://www.toymoban.com/news/detail-827843.html

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

<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 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("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 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("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 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>

二、ADO 添加记录

使用 SQL 的 INSERT INTO 命令向数据库中的表添加记录。

1.向数据库中的表添加记录

向 Northwind 数据库中的 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("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 数据库中,将 AllowZeroLength 属性设置为 “Yes”,就可以在文本、超链接以及备忘字段输入零长度的字符串 ("")。

注:并非所有的数据库都支持零长度的字符串。

三、ADO 更新记录

使用 SQL 的 UPDATE 来更新数据库表中的某条记录。

1.更新数据库表中的记录

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

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

<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

%>

<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>

<body>

<h2>Update Record</h2>

<%

set conn=Server.CreateObject("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("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>

到了这里,关于ADO世界之SECOND的文章就介绍完了。如果您还想了解更多内容,请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章,希望大家以后多多支持TOY模板网!

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处: 如若内容造成侵权/违法违规/事实不符,请点击违法举报进行投诉反馈,一经查实,立即删除!

领支付宝红包 赞助服务器费用

相关文章

  • GBASE南大通用数据库通过 GBase ADO.NET 接口读取数据

    通过 GBase ADO.NET 接口读取 GBase Server 数据需要下面的步骤:  1) 使用 GBaseConnection 创建数据库连接对象   2) 使用 GBaseCommand 创建命令对象   3) 使用连接对象打开连接  4) 设置命令对象的 CommandText 属性,指明查询语句,并关联连接对象  5) 执行命令对象的 ExecuteReader 方法后返

    2024年01月24日
    浏览(53)
  • .net----数据库的访问ADO.NET、DataAdapter和DataSet

    ADO.NET的概述 使用ADO.NET连接和操作数据库 使用DataAdapter和DataSet访问数据库 .NET Framework提供的数据访问服务的类库 提供对关系数据、XML和应用程序数据各种数据源的一致访问 应用程序使用ADO.NET连接到数据源,检索、处理和更新数据 SQL Server数据源:System.Data.SqlClient命名空间

    2024年02月07日
    浏览(42)
  • VC++中通过ADO中的_RecordsetPtr操作数据库:增删改查

    VC++ 中通过ADO中的_RecordsetPtr操作数据库:增删改查 _RecordsetPtr 智能指针,它是专门为通过记录集操作数据库而设立的指针,通过该接口可以对数据库的表内的记录、字段等进行各种操作。 要搞清楚:数据库和ADO的记录集是两个不同的概念,是存在于不同物理位置的两个存储空间

    2024年01月17日
    浏览(48)
  • Microsoft Jet 4.0 VC++中通过ADO中的_RecordsetPtr操作数据库:增删改查

    _RecordsetPtr智能指针,它是专门为通过记录集操作数据库而设立的指针,通过该接口可以对数据库的表内的记录、字段等进行各种操作。 要搞清楚:数据库和ADO的记录集是两个不同的概念,是存在于不同物理位置的两个存储空间。记录集相当于是实际数据的一份拷贝。正因为记录

    2024年02月15日
    浏览(41)
  • 问题记录:MFC使用ADO在32位和64位下分别连接ACCESS数据库碰到的问题

    题外话:近期收到个任务,给合作的公司弄一个静态库,库的功能需要加载文件夹中的ACCESS数据库,合作方希望同时有32位的 和 64位的。 进入正题把,首先声明,我的ACCESS数据库文件后缀是.mdb的 在x86下导入msado15.dll,我是这样写的 我按网上说的#import \\\"C:Program FilesCommon Fil

    2024年02月03日
    浏览(47)
  • VB.net:VB.net编程语言学习之ADO.net基本名称空间与类的简介、案例应用(实现与SQL数据库编程案例)之详细攻略

    VB.net:VB.net编程语言学习之ADO.net基本名称空间与类的简介、案例应用(实现与SQL数据库编程案例)之详细攻略 目录 ADO.net基本名称空间与类 1、ADO.net六个基础名称空间 2、ADO.net类

    2024年02月06日
    浏览(47)
  • 初识数据库:探索数据的世界

    在信息技术日益发展的今天,数据库已成为存储、管理、检索信息的核心技术。无论是大型企业的复杂系统还是我们日常使用的应用程序,数据库都扮演着不可或缺的角色。本文将为初学者介绍数据库的基本概念、类型以及使用数据库的基本原理。 数据库(Database)是按照数

    2024年02月22日
    浏览(47)
  • MySQL中的表与视图:解密数据库世界的基石

    🏆作者简介,黑夜开发者,CSDN领军人物,全栈领域优质创作者✌,CSDN博客专家,阿里云社区专家博主,2023年6月CSDN上海赛道top4。 🏆数年电商行业从业经验,历任核心研发工程师,项目技术负责人。 🏆本文已收录于PHP专栏:MySQL的100个知识点。 🎉欢迎 👍点赞✍评论⭐收

    2024年02月10日
    浏览(74)
  • 数据库管理系统(基于前端+后端+数据库)

      库存管理系统 包括模块: (1)基本信息管理。 (2)商品入库管理。 (3)商品出库管理。 (4)商品查询管理。 (5)查看商品目录。 实训步骤: 开发环境:html , css , js , python,Mysql,pycharm 需求分析: 和其他数据库系统相比, MySQL 有点与众不同,它的架构可以在多种

    2024年02月04日
    浏览(69)
  • 【SWAT水文模型】SWAT水文模型建立及应用第三期:基于世界土壤数据库HWSD建立土壤库(待更新)

    此博客主要介绍基于 世界土壤数据库HWSD 建立土壤库的过程。基于中国土壤数据库建立土壤库可参见另一博客-【SWAT水文模型】SWAT水文模型建立及应用第三期:基于中国土壤数据库建立土壤库。 SWAT模型中土壤数据是主要的输入参数之一,土壤数据质量的好坏会对模型的模拟

    2024年02月02日
    浏览(53)

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

博客赞助

微信扫一扫打赏

请作者喝杯咖啡吧~博客赞助

支付宝扫一扫领取红包,优惠每天领

二维码1

领取红包

二维码2

领红包