Das Problem hängt nicht mit Delphi zusammen sondern beschränkt sich auf den Nativeclient 10.
Das Problem kann auch ohne Probleme mit einem VBScript nachvollzogen werden.
Weiß von euch jemand wie man einen Bug an Microsoft meldet?
VBScript
:
Code:
DBdriver = "SQLNCLI10.1" 'Native Client 10
'DBdriver = "SQLOLEDB.1" 'Native Client 9
DBserver = "127.0.0.1"
DBuser = "sa"
DBpass = ""
DBdb = "test"
Set cn =CreateObject("ADODB.Connection")
cn.Open "Provider="&DBdriver&";Password="&DBpass&";Persist Security Info=True;User ID="&DBuser&";Initial Catalog="&DBdb&";Data Source="&DBserver&""
Set cmd = CreateObject("ADODB.Command")
Set cmd.ActiveConnection = cn
cn.BeginTrans
cmd.CommandText = "test"
cmd.commandtype=4
cmd.Parameters.Refresh
cmd.Execute
cn.CommitTrans
cn.BeginTrans
cmd.CommandText = "test"
cmd.commandtype=4
cmd.Parameters.Refresh
cmd.Execute
cn.CommitTrans