Dim con As ADODB.Connection
Dim com As ADODB.Command
Dim rs As ADODB.Recordset
Set con = New ADODB.Connection
Set com = New ADODB.Command
Set rs = New ADODB.Recordset
con.ConnectionTimeout = 10
con.CommandTimeout = 10
' con.Open ("Provider=OraOLEDB.Oracle.1;Password=admin;Persist Security Info=True;User ID=admin;Data Source=dbor")
con.Open ("Provider=MSDAORA.1;Password=admin;User ID=admin;Data Source=dbor;Persist Security Info=True")
com.ActiveConnection = con
com.CommandText = "update tablexxx set col =1 where col=1"
com.CommandTimeout = 10
com.Execute
con.Close
ADO+OracleのAccessVBAでテスト中なのですが、タイムアウトちゃんしてくれません。
裏で select * from tablexxx for update仕掛けてます。
Oracleは8.1.7.1です。
Oracleでもタイムアウトしたと思うんですが、どうしたもんでしょう。
どこか聞くのに適切なところでもいいので教えてください。(;_;)