0

次の VBA サブルーチンは、ほとんどのクエリを正常に実行します。(つまり: SELECT * FROM DUAL)

Sub DisplayQuery(QueryString As String)
  Dim rs As New ADODB.Recordset
  Dim connStr As String
  connStr = _
   "Provider=MSDAORA.1;" _
   & "User ID=abc;Password=123;" _
   & "Data Source=xxx/xxx;"
  out QueryString

  rs.Open QueryString, connStr, adOpenStatic, adLockOptimistic
  Range("DataTable").Clear
  Cells(1, 1).CopyFromRecordset rs
End Sub

ただし、以下のクエリを実行すると、次のエラー メッセージがすぐに表示されます。Run-time error '3704':Operation is not allowed when the object is closed.

with all_hours as
  ( select to_date('2009-11-03 05:00 PM','yyyy-mm-dd hh:mi PM') + numtodsinterval(level-1,'hour') hour
      from dual
   connect by level <= 4 /*hours*/

  )
  select h.hour
       , count(case when h.hour = trunc(s.sampled_on,'hh24') then 1 end) sampled
       , count(case when h.hour = trunc(s.received_on,'hh24') then 1 end) received
       , count(case when h.hour = trunc(s.completed_on,'hh24') then 1 end) completed
       , count(case when h.hour = trunc(s.authorized_on,'hh24') then 1 end) authorized
    from all_hours h cross join sample s
   group by h.hour

なんで？

4

2 に答える 2

0

私の記憶が正しければ、ADO Command オブジェクトにはデフォルトのタイムアウト (30 秒だと思います) があり、それが問題を引き起こしている可能性があります。次のような設定が必要です。

cn.ConnectionTimeout = (your value here)

拡張できます。

于 2009-11-05T18:54:14.860 に答える
0

ビューに入れることができるように、クエリ（リンク）を再構築しました。次に、名前を表示するための接続を Excel で作成しました。

于 2009-11-10T16:02:04.460 に答える