[ADO] Updatebatch

[Nutcaze]

Het volgende probleem:

Ik loop in ASP door een recordset heen en tijdens die loop zet ik telkens een veld met waarde 0 naar waarde 1. Echter ik wil niet dat deze wijziging onmiddellijk doorgevoerd wordt maar dat dit definitief gebeurd als ik de methode updatebatch aanroep.

Dit lukt mij echter niet. Ligt dit aan de manier waarop ik de recordset open of anders: wat voor statement moet ik geven om het veld alleen te updaten in de cache en niet op de schijf?

[Verwijderd]

Als volgt ga je dan te werk:

--> zet de code wel ff om naar ASP/VB door (create object)

code:

'maak een nieuwe instance van je recordset
dim objRs As ADODB.Recordset
objRs.Cursorlocation = adUseClient
'haal alle records op
objRs.Open "SELECT * FROM jouwTabel", _
    "Provider=SQLOLEDB;Initial Catalog=jouwDatabase; " _
    "Data Source=jouwServer;User=jouwUser;Password=jouwPassword; ", _
    "adOpenStatic, adLockBatchOptimistic

Set objRs.ActiveConnection = Nothing

'pas hier je records aan!
objRs("blaat") = "blaat2"

'connect opnieuw
objRs.ActiveConnection =  "Provider=SQLOLEDB;Initial Catalog=jouwDatabase; " _
    "Data Source=jouwServer;User=jouwUser;Password=jouwPassword; "

'update de tabel
objRs.UpdateBatch
'vernietig objecten
Set objRs = Nothing

That's it

[ Voor 28% gewijzigd door Verwijderd op 02-02-2004 21:20 ]

[Nutcaze]

Ik krijg hier op de melding:
Key column information is insufficient or incorrect. Too many rows were affected by update.

Het gaat echter maar om 7 rijen. Tevens lijkt het me ietwat omslachtig om de activeconnection op nothing te zetten om vervolgens weer terug te zetten. Dit kan vast anders?

[Verwijderd]

laat jouw code dan es zien......het MOET zo werken hoor
EDIT:: je zet alleen de active connection op je recordset op nothing hoor

BTW als je niet ALLE records wilt updaten, zet dan ff de MarshalOptions op AdMarshalModifiedOnly.....dan zullen alleen de aangepaste records worden teruggestuurd

[ Voor 80% gewijzigd door Verwijderd op 02-02-2004 21:36 ]

[Nutcaze]

code:

'Cursortypes
Const adOpenDynamic = 2, adOpenForwardOnly = 0, adOpenKeyset = 1, adOpenStatic = 3
'Locktypes
Const adLockBatchOptimistic = 4, adLockOptimistic = 3, adLockPessimistic = 2, adLockReadOnly = 1
Const adUseClient = 3

Set con = Server.CreateObject("ADODB.Connection")
con.Open DSN

Set rsBetalingen = Server.CreateObject("ADODB.Recordset")
rsBetalingen.Cursorlocation = adUseClient
rsBetalingen.Open "SELECT rekeningnummer, aantaladressen, verwerkt FROM Klant WHERE gecompleteerd AND NOT verwerkt", con, adOpenStatic, adLockBatchOptimistic

rsBetalingen.ActiveConnection = Nothing

If Not rsBetalingen.eof Then
    'Blablabla
    Do Until rsBetalingen.eof
        rsBetalingen.Fields("verwerkt").Value = 1

        rsBetalingen.MoveNext
    Loop
    rsBetalingen.ActiveConnection = DSN
    
    rsBetalingen.UpdateBatch
End If

rsBetalingen.Close
Set rsBetalingen = Nothing

con.Close
Set con = Nothing

DSN is in dit geval de connectiestring, rest staat erbij volgens mij.


Edit:

Het valt me op dat ie de records wel bijwerkt ondanks de foutmelding. Als ik de regel met updatebatch uitzet doet ie dit niet. Verschil tussen activeconnection tussentijds op nothing zetten en dat niet doen zie ik niet.

[ Voor 14% gewijzigd door Nutcaze op 02-02-2004 21:44 ]

[Verwijderd]

Ik zie niet 123 het probleem. De code lijkt goed te zijn.
Verder zou ik alles in subs gooien en dan op de diverse plaatsen de subs aanspreken (voorbeeld zien?)....ik heb het al helemaal aangepast

ik doe hieronder ff een voorbeeld van updateBatch uit msdn;

code:

Public Sub UpdateBatchX()

   Dim rstTitles As ADODB.Recordset
   Dim strCnn As String
   Dim strTitle As String
   Dim strMessage As String

   ' Assign connection string to variable.
      strCnn = "Provider=sqloledb;" & _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "

   Set rstTitles = New ADODB.Recordset
   rstTitles.CursorType = adOpenKeyset
   rstTitles.LockType = adLockBatchOptimistic
   rstTitles.Open "titles", strCnn, , , adCmdTable
   
   rstTitles.MoveFirst

   ' Loop through recordset and ask user if she wants 
   ' to change the type for a specified title.
   Do Until rstTitles.EOF
      If Trim(rstTitles!Type) = "psychology" Then
         strTitle = rstTitles!Title
         strMessage = "Title: " & strTitle & vbCr & _
            "Change type to self help?"

         If MsgBox(strMessage, vbYesNo) = vbYes Then
            rstTitles!Type = "self_help"
         End If
      End If

      rstTitles.MoveNext
   Loop

   ' Ask if the user wants to commit to all the 
   ' changes made above.
   If MsgBox("Save all changes?", vbYesNo) = vbYes Then
      rstTitles.UpdateBatch
   Else
      rstTitles.CancelBatch
   End If

   ' Print current data in recordset.
   rstTitles.Requery
   rstTitles.MoveFirst
   Do While Not rstTitles.EOF
      Debug.Print rstTitles!Title & " - " & rstTitles!Type
      rstTitles.MoveNext
   Loop

   ' Restore original values because this is a demonstration.
   rstTitles.MoveFirst
   Do Until rstTitles.EOF
      If Trim(rstTitles!Type) = "self_help" Then
         rstTitles!Type = "psychology"
      End If
      rstTitles.MoveNext
   Loop
   rstTitles.UpdateBatch

   rstTitles.Close

End Sub

EDIT:: het gekke is dat zij hier ook niet de connectie op nothing zetten terwijl dit echt wel de bedoeling is vlgs mij

[ Voor 9% gewijzigd door Verwijderd op 02-02-2004 22:05 ]

[Nutcaze]

Ik heb 'm zojuist gevonden, het antwoord zat al verscholen in de foutmelding. Ik had in de query geen unieke index opgenomen. Hier had ie kennelijk problemen mee. Hoewel wel de juiste rijen ge-update werden. Misschien komt dit doordat alle rijen uit de recordset worden ge-update. Who knows?

Anyway hij doet het nu zonder dat de activeconnection op nothing gezet wordt tussentijds. Thanks.

[Verwijderd]

Nutcaze schreef op 02 februari 2004 @ 22:09:
Ik heb 'm zojuist gevonden, het antwoord zat al verscholen in de foutmelding. Ik had in de query geen unieke index opgenomen. Hier had ie kennelijk problemen mee. Hoewel wel de juiste rijen ge-update werden. Misschien komt dit doordat alle rijen uit de recordset worden ge-update. Who knows?

Anyway hij doet het nu zonder dat de activeconnection op nothing gezet wordt tussentijds. Thanks.

Perfecto!!! problem fixed hehehe...... BWT...het is in asp toch? dus de records worden meegesleurd naar de client....dus de connection is al nothing (voor zover ik mij kan bedenken )

[Nutcaze]

Volgens mij niet hoor. Records blijven allemaal server-side lijkt me. Ik kan die regel met adUseClient echter niet weghalen. Dan krijg ik een foutmelding.

[Verwijderd]

Tis toch adUseClient of adUseServer....in dit geval adUseClient dus worden de records toch mee naar de client gesleurd en daar in de cache gezet? (of ben ik nu abuis?? )

[Nutcaze]

Ik moet je eerlijk zeggen dat ik het niet weet. Dacht altijd dat al dat soort updates op de server plaatsvonden. Maar goed ik heb ook nog nooit adUseClient gebruikt. Ik stel normaal gesproken die parameters niet in.

[Verwijderd]

Ben net ff in de boeken gedoken en het is precies zoals ik zei....

[Nutcaze]

Tjaa de naam zegt het wel he. Maar goed, ik vind het vreemd, die hele recordset wordt dus overgepompt naar mijn computer als ik dit uitvoer?!

[Verwijderd]

Yeps...daarom is het altijd raadzaam zo nuttig mogelijke queries te schrijven en geen ongein op te halen (to the point dus) en dus niet standaard "SELECT *" te gebruiken en geen onnodige objecten aan te maken. Meestal kun je het af met 1 of 2 recordsets (gedeclareerd) die je telkens opnieuw vult met data.
Ga je nuttig om met je objecten dan kan dat heel wat snelheidswinst opleveren (en bijkomend voordeel voor de provider = minder belasting)