BEGIN TRANSACTION per VBA Macro

[Enrico]

Hallo,

ich habe bei meiner MS SQL Datenbank welche durch Daten aus einem Excel VBA Makro gefüllt wird.

Nun würde ich gerne eine Transaction aus dem Macro herraus starten und wieder beenden, um Dateninkonsistenz, bei Abbruch des Markos oder Sonstige Fehler zu Vermeiden.

[M Merlin]

Hallo,
versuch es mal damit:

'Verweis auf "Microsoft ActiveX Data Objects 2.8 Library" muss vorhanden sein...

  Dim cnn As ADODB.Connection
  Dim Rst As ADODB.Recordset

  Set cnn = New ADODB.Connection
  Set Rst = New ADODB.Recordset
    
    'DB öffnen, z.B....
    
    With cnn
        .ConnectionString = "Provider=sqloledb; Data Source=srv;Initial Catalog=MyDB;User Id=sa;Password=MyPWD; "
        .CursorLocation = adUseClient

        'Isolationslevel einstellen z.B......ReadCommitted
        .IsolationLevel = adXactReadCommitted

        .Open
    End With

  On Error GoTo errHandler
    cnn.BeginTrans
  
  'Transaktion
  
  cnn.CommitTrans

  cnn.Close
  Set Rst = Nothing
  Set cnn = Nothing
  Exit Sub
  
errHandler:
  cnn.RollbackTrans
  cnn.Close
  Set Rst = Nothing
  Set cnn = Nothing

[Enrico]

Ich greif per OBDC Link auf die Datenbank zu, da funktioniert das leider nicht.

[M Merlin]

Probier mal den Connectionstring zu tauschen....

Hier kannst du den Zugriff/Syntax unter ODBC nachlesen...

http://www.connectionstrings.com/?carrier=sqlserver