使用ADO批量更新记录（源代码） -pc6资讯

您的位置：首页 → 技术开发 → ASP技巧 → 使用ADO批量更新记录（源代码）

使用ADO批量更新记录（源代码） 时间：2004/11/7 4:02:00来源：本站整理作者：蓝点我要评论(0)

'**************************************

    ' Name: Batch Update using ADO

    ' Description:ADO has a great batch upda

    '     te feature that not many people take adv

    '     antage of. You can use it to update many

    '     records at once without making multiple

    '     round trips to the database. Here is how

    '     to use it.

    ' By: Found on the World Wide Web

    '

    '

    ' Inputs:None

    '

    ' Returns:None

    '

    'Assumes:None

    '

    'Side Effects:None

    '

    'Warranty:

    'code provided by Planet Source Code(tm)

    '     (http://www.Planet-Source-Code.com) 'as

    '     is', without warranties as to performanc

    '     e, fitness, merchantability,and any othe

    '     r warranty (whether expressed or implied

    '     ).

    '**************************************





    Place Document Title Here



    <%

    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

    %>

    Error opening RecordSet

    <% Else %>

    Opened Successfully

<% End If %>

Before Batch Update

    <% For i = 0 To rs.Fields.Count - 1 %>



    <% Next %>



    <% For j = 1 To 5 %>



    <% For i = 0 To rs.Fields.Count - 1 %>



    <% Next %>



    <%

    rs.MoveNext

    Next

    rs.MoveFirst

    %>

<%= rs(i).Name %>

<%= rs(i) %>

    Move randomly In the table and perform updates To table.

    <%

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

    rs("au_fname") = newval

    For j = 1 To r2

    rs.MoveNext

    response.write "Move Next
"

    Next

    Next

    rs.UpdateBatch adAffectAll

    rs.Requery

    rs.MoveFirst

    %>

    <% rs.MoveFirst %>

After Changes

    <% For i = 0 To rs.Fields.Count - 1 %>



    <% Next %>



    <% For j = 1 To 5 %>



    <% For i = 0 To rs.Fields.Count - 1 %>



    <% Next %>



    <%

    rs.MoveNext

    Next

    rs.Close

    Cn.Close

    %>

<%= rs(i).Name %>

<%= rs(i) %>

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。