| |
ponponさん、ichinoseさん
ご説明ありがとうございました。
自分でSQLのことを言っていたので、
今回はichinoseさんのものを使って試してみました。
結果なのですが、get_exec_sqlがエラーで動きませんでした。
リターンコードは"-2147217904"でした。
Dim rs As Object
Dim mysql As String
If open_ado_excel(ThisWorkbook.FullName) = 0 Then
mysql = "Select [YYYY],[MM],[CODE_A],[CODE_B],[CODE_C],[CODE_D],sum([KINGAKU]) " & _
" from [DATA$] " & _
" Where [FLG] = '1' AND [CODE_D] = '03' " & _
" group by [YYYY],[MM],[CODE_A],[CODE_B],[CODE_C],[CODE_D] "
If get_exec_sql(mysql, rs) = 0 Then
With Worksheets("WORK")
.Cells.ClearContents
.Range("a1").CopyFromRecordset rs
.Range("a1:g1").Value = Array("YYYY", "MM", "CODE_A", "CODE_B", "CODE_C", "CODE_D", "KINGAKU")
End With
Call rs_close(rs)
Else
MsgBox "rs error" ←ここに来ます。
End If
Call close_ado
Else
MsgBox "cn error"
End If
（他の部分はichinoseさんの記述のまま使用しています。）
なにか基本的な設定が足りないのでしょうか？
質問時はSQL文を少し(Where句、項目数)削り記載しましたが、
今回のSQLは実際のものです。
開発はXP（Excel2002）、使用するのは2000（Excel2000）です。
エラーは開発環境で出ています。
よろしくお願いします。
|
|
EXCEL_VBA中の下
- 05/9/5(月) 10:59 -
