| |
▼山田 さん：
こんにちは。
>特にエラーは出ないのですが
という事でしたが、ご提示されたコードで本当にエラーがでないのでしょうか。
当方の環境ですとエラー退治だけで一苦労でしたが…。
掲示板で質問して、何かしらのヒントを得たいという気持ちは解るのですが、
例えばご提示されたコードで
>'費目マスタ
>Dim rsH As ADODB.Recordset
>'出張所マスタ
>Dim rsSB As ADODB.Recordset
>Set rsH = New ADODB.Recordset
>Set rsSB = New ADODB.Recordset
>rsH.Open "SELECT T_費目マスタ.* FROM T_費目マスタ " & _
> "WHERE (((T_費目マスタ.除)<>1));", cN, adopkeyset, adLockReadOnly
>rsSB.Open "SELECT T_出張所マスタ.* FROM T_出張所マスタ " & _
> "WHERE (((T_出張所マスタ.除)<>1));", cN, adopkeyset, adLockReadOnly
これらは何の意味があるのでしょうか。
(ご提示して頂いた部分ですと開いて閉じているだけに思えますが。)
色々とうまく行かない事があってゴミが残ってしまっているのかもしれませんが、
質問をする際に手間を惜しまずに、提示するコードを今一度見直してみてください。
現在の所、
1) レコードセットの Open を記述する位置
2) Open する際の引数(記述ミス？)
3) Open する際の引数(adCmdTableDirect の指定漏れ)
4) Seek の際にインデックスを指定していない
等など、エラーが発生してしまう箇所がいくつかあります。
※ コードを見ての感想なのですが、
不一致クエリ ＋ 追加クエリ でもできそうですね。
ADO より SQL で行う方が得意なのでしたら
そちらでも検討されてみるのもいいかと思われます。
|
|
小僧
- 05/11/7(月) 11:40 -
