 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<HTML> <HEAD><TITLE>Place Document Title Here</TITLE></HEAD> <BODY BGColor=ffffff Text=000000> <% Set cn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.RecordSet") cn.Open Application("guestDSN") rs.ActiveConnection = cn rs.CursorType = adOpenStatic rs.LockType = adLockBatchOptimistic rs.Source = "SELECT * FROM authors" rs.Open If (rs("au_fname") = "Paul") or (rs("au_fname") = "Johnson") Then newval = "Melissa" Else newval = "Paul" End If If err <> 0 Then %> <B>Error opening RecordSet</B> <% Else %> <B>Opened Successfully</B><P> <% End If %> <H2>Before Batch Update</H2> <TABLE BORDER=1> <TR> <% For i = 0 To rs.Fields.Count - 1 %> <TD><B><%= rs(i).Name %></B></TD> <% Next %> </TR> <% For j = 1 To 5 %> <TR> <% For i = 0 To rs.Fields.Count - 1 %> <TD><%= rs(i) %></TD> <% Next %> </TR> <% rs.MoveNext Next rs.MoveFirst %> </TABLE> Move randomly In the table and perform updates To table.<BR> <% Randomize r1 = Int(rnd*3) + 1 \\\' n Itterations r2 = Int(rnd*2) + 1 \\\' n places skipped between updates For i = 1 To r1 response.write "Itteration: " & i & "<BR>" rs("au_fname") = newval For j = 1 To r2 rs.MoveNext response.write "Move Next<BR>" Next Next rs.UpdateBatch adAffectAll rs.Requery rs.MoveFirst %> <% rs.MoveFirst %> <H2>After Changes</H2> <TABLE BORDER=1> <TR> <% For i = 0 To rs.Fields.Count - 1 %> <TD><B><%= rs(i).Name %></B></TD> <% Next %> </TR> <% For j = 1 To 5 %> <TR> <% For i = 0 To rs.Fields.Count - 1 %> <TD><%= rs(i) %></TD> <% Next %> </TR> <% rs.MoveNext Next rs.Close Cn.Close %> </TABLE> 返回类别: 教程 上一教程: REMOTE SCRIPTING进阶教程-检查错误 下一教程: 一个分页代码例子 您可以阅读与"使用ADO的批量更新方式UPDATEBATCH"相关的教程: · FILTER与UPDATEBATCH混合使用实现批量更新 · 使用ADO批量更新记录(源代码) · 如何在VC++ 编写的组件中使用 ADO · 在ADO使用SELECT语法四 · 用数组实现数据记录的批量录入方式 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
