建设网站租服务器,睢宁网站建设,做社交网站需要什么资质,青海建设厅报名网站目录
一、ADO 排序记录
1.对数据进行排序
2.根据指定的字段名处对记录进行升序排序
3.根据指定的字段名处对记录进行降序排序
4.让用户来选择根据哪列进行排序
二、ADO 添加记录
1.向数据库中的表添加记录
2.使用 INSERT command 命令时的注意事项
3.无数据字段
三、…目录
一、ADO 排序记录
1.对数据进行排序
2.根据指定的字段名处对记录进行升序排序
3.根据指定的字段名处对记录进行降序排序
4.让用户来选择根据哪列进行排序
二、ADO 添加记录
1.向数据库中的表添加记录
2.使用 INSERT command 命令时的注意事项
3.无数据字段
三、ADO 更新记录
1.更新数据库表中的记录 一、ADO 排序记录
使用SQL来规定如何对记录集中的数据进行排序。
1.对数据进行排序
显示 Customers 表中的Companyname和Contactname字段并根据Companyname进行排序请记得用.asp为后缀保存 html body % set connServer.CreateObject(ADODB.Connection) conn.ProviderMicrosoft.Jet.OLEDB.4.0 conn.Open c:/webdata/northwind.mdb set rs Server.CreateObject(ADODB.recordset) sqlSELECT Companyname, Contactname FROM Customers ORDER BY CompanyName rs.Open sql, conn % table border1 width100% 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 connServer.CreateObject(ADODB.Connection) conn.ProviderMicrosoft.Jet.OLEDB.4.0 conn.Open(Server.Mappath(/db/northwind.mdb)) set rs Server.CreateObject(ADODB.recordset) sqlSELECT Companyname, Contactname FROM Customers ORDER BY CompanyName rs.Open sql, conn % table border1 width100% 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 connServer.CreateObject(ADODB.Connection) conn.ProviderMicrosoft.Jet.OLEDB.4.0 conn.Open(Server.Mappath(/db/northwind.mdb)) set rs Server.CreateObject(ADODB.recordset) sqlSELECT Companyname, Contactname FROM Customers ORDER BY CompanyName DESC rs.Open sql, conn % table border1 width100% 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 border1 width100% bgcolor#fff5ee tr th alignleft bgcolor#b0c4de a href/example/adoe/demo_adoe_sort_3.asp?sortcompanynameCompany/a /th th alignleft bgcolor#b0c4de a href/example/adoe/demo_adoe_sort_3.asp?sortcontactnameContact/a /th /tr % if request.querystring(sort) then sortrequest.querystring(sort) else sortcompanyname end if set connServer.CreateObject(ADODB.Connection) conn.ProviderMicrosoft.Jet.OLEDB.4.0 conn.Open(Server.Mappath(/db/northwind.mdb)) set rsServer.CreateObject(ADODB.recordset) sqlSELECT 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 methodpost actiondemo_add.asp table tr tdCustomerID:/td tdinput namecustid/td /trtr tdCompany Name:/td tdinput namecompname/td /trtr tdContact Name:/td tdinput namecontname/td /trtr tdAddress:/td tdinput nameaddress/td /trtr tdCity:/td tdinput namecity/td /trtr tdPostal Code:/td tdinput namepostcode/td /trtr tdCountry:/td tdinput namecountry/td /tr /table br /br / input typesubmit valueAdd New input typereset valueCancel /form /body /html 当用户按下确认按钮时这个表单就会被送往名为 demo_add.asp 的文件。文件 demo_add.asp 中含有可向 Customers 表添加一条新记录的代码 html body % set connServer.CreateObject(ADODB.Connection) conn.ProviderMicrosoft.Jet.OLEDB.4.0 conn.Open c:/webdata/northwind.mdb sqlINSERT INTO customers (customerID,companyname, sqlsql contactname,address,city,postalcode,country) sqlsql VALUES sqlsql ( Request.Form(custid) , sqlsql Request.Form(compname) , sqlsql Request.Form(contname) , sqlsql Request.Form(address) , sqlsql Request.Form(city) , sqlsql Request.Form(postcode) , sqlsql Request.Form(country) ) on error resume next conn.Execute sql,recaffected if err0 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 connServer.CreateObject(ADODB.Connection) conn.ProviderMicrosoft.Jet.OLEDB.4.0 conn.Open c:/webdata/northwind.mdb set rsServer.CreateObject(ADODB.Recordset) rs.open SELECT * FROM customers,conn % h2List Database/h2 table border1 width100% tr % for each x in rs.Fields response.write(th ucase(x.name) /th) next % /tr % do until rs.EOF % tr form methodpost actiondemo_update.asp % for each x in rs.Fields if lcase(x.name)customerid then% td input typesubmit namecustomerID 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 h2Update Record/h2 % set connServer.CreateObject(ADODB.Connection) conn.ProviderMicrosoft.Jet.OLEDB.4.0 conn.Open c:/webdata/northwind.mdb cidRequest.Form(customerID) if Request.form(companyname) then set rsServer.CreateObject(ADODB.Recordset) rs.open SELECT * FROM customers WHERE customerID cid ,conn % form methodpost actiondemo_update.asp table %for each x in rs.Fields% tr td%x.name%/td tdinput name%x.name% value%x.value%/td %next% /tr /table br /br / input typesubmit valueUpdate record /form % else sqlUPDATE customers SET sqlsql companyname Request.Form(companyname) , sqlsql contactname Request.Form(contactname) , sqlsql address Request.Form(address) , sqlsql city Request.Form(city) , sqlsql postalcode Request.Form(postalcode) , sqlsql country Request.Form(country) sqlsql WHERE customerID cid on error resume next conn.Execute sql if err0 then response.write(No update permissions!) else response.write(Record cid was updated!) end if end if conn.close % /body /html
