ich frage per VBA von einer MSSQL-Datenbank Daten ab. In ganz seltenen Fällen kann es zu einem Deadlock kommen. Das würde ich jetzt gerne abfangen und dann das Select nochmal ausführen. Da ich das Deadlock nicht reproduzieren kann meine Frage, ob mir jemand mit einem Beispielcode weiter helfen kann.
Danke für eure Hilfe.
Gruß Joni
Dim cConnection As New ADODB.Connection, rsRecordSet As New ADODB.Recordset
Dim sDBServer As String, sDB as String, sQuery as String
cConnection.CommandTimeout = 0 'Timeout ausschalten
cConnection.ConnectionTimeout = 0
cConnection.Open "Provider=SQLOLEDB;Data Source=" & sDBServer & ";Initial Catalog=" & sDB & "; _
Integrated Security=SSPI;"
rsRecordSet.Open sQuery, cConnection, adOpenForwardOnly, adLockReadOnly
cConnection.Close
Set rsRecordSet = Nothing
Set cConnection = Nothing