Πάνω στο Connection object υπάρχει η BeginTransaction και το commit και rollback ειναι όλα πάνω στο connection object. Όλα αυτά θα τα πάρεις από το Connection property του recordset

Έαν έχεις ένα κεντρικό ναι, ή θα το βάλεις στο σημείο που ελέγχεις τα λάθη από το transaction εαν έχεις δύο παγίδες λαθών δες παρακατω

Dim myConnection As ADODB.Connection
Dim myRecordset As ADODB.Recordset

Set myConnection = New ADODB.Connection
Set myRecordset = New ADODB.Recordset

myConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:\BegDB\Biblio.mdb"

'—Open the connection --
myConnection.Open

'Determine if we conected.
If myConnection.State = adStateOpen Then

  myRecordset.Open "SELECT * FROM TITLES", myConnection, _
                                adOpenDynamic, adLockOptimistic, adCmdTable
Else
  MsgBox "The connection could not be made."
  myConnection.Close
  Exit Sub
End If

'—just to be sure --
myRecordset.MoveFirst

On Error GoTo transError

'—here is the top of the transaction sandwich --
myConnection.BeginTrans

While Not myRecordset.EOF
   mcounter = mcounter + 1
   myRecordset!Title = myRecordset!Title & ""  'so we don't really change it
   myRecordset.Update
   myRecordset.MoveNext
Wend

'—if we got here ok, then everything is written at once
myConnection.CommitTrans
myRecordset.Close
myConnection.Close

Exit Sub

transError:
   myConnection.RollBack
   myRecordset.Close
     myConnection.Close
   MsgBox Err.Description

Correct!

Λοιπόν αν κατάλαβα καλά.

Μετά το update αν θέλεις να διαβάσεις την εγγραφή θα πρέπει να την κάνεις read, αλλά αυτό δεν σου χρειάζεται μιας και έχεις τις τιμές των πεδίων.

Αυτό που μάλλον θέλεις είναι ρωτήσεις, υποθέτω, είναι να πάρεις την τιμή από κάποιο identity πεδίο.

Σε αυτή την περίπτωση θα πρέπει να έχεις ένα transaction και με τα από το update να κάνεις ένα select scope_identity() or select @@Identity command.

Εάν έχεις ένα και μόνο ένα δεν έχει νοήμα να χρησιμοποίεις begin tran έτσι και αλλιώς και το ένα, transaction είναι

Vagele:

Όταν κάνεις recordset.addnew και μετά recordset.update γίνεται εισαγωγή στην βάση σωστά;

Πως γίνεται λοιπόν από αυτή την τελευταία εγγραφή να πάρω κάποια τιμή;

Μισό εδώ - δεν χρειάζεται να γράψεις transaction ή store procedure για να παίξει αυτό - αν το connection έχει client cursor και είναι dynamic, ώστε φαίνονται οι αλλαγές κατευθείαν στο recordset, τότε μετά το recordset.Update() στο recordset.Fields("primarykey").value θα έχει την τιμή που πήρε το primary key. Κώδικας που παίζει επάνω στη γνωστή "Northwind" και κάνω ακριβώς αυτό:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 

    ConnString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind;Data Source=."
    Set Conn = New ADODB.Connection
    Conn.CursorLocation = adUseClient
    Conn.Open ConnString
    
    Set Results = New ADODB.Recordset
    Set Results.ActiveConnection = Conn
    Results.CursorLocation = adUseClient
    Results.Open "Orders", Conn, adOpenDynamic, adLockOptimistic, adCmdTableDirect
    
    Debug.Print IIf(Results.Supports(adResync), "Supports", "Don't Support") & " Resync"
    
    Results.AddNew
    Results.Fields("CustomerID") = "ALFKI"
    Results.Fields("EmployeeID") = 1
    Results.Update
    
    'Results.Resync adAffectCurrent
    MsgBox Results.Fields("OrderID").Value
                
    Results.Close
    Conn.Close

George J.

George J. Capnias: Χειροπρακτικός Υπολογιστών, Ύψιστος Γκουράρχης της Κουμπουτερολογίας w: capnias.org, t: @gcapnias, l: gr.linkedin.com/in/gcapnias