|
▼satsuki さん:
こんにちは
今回のResはキツ目なので先にお詫びしておきます。
細かく見てませんが、
>1.sSQL = sSQL & ptbl & "(日付,店名,人数)" & _
> " VALUES(#" & pRec(j).日付 & "#,'" & pRec(j).店名 & "'," & pRec(j).人数 & ")"
>のところで「インデックスが有効範囲にありません」というエラーがでます。
>どこを直したらよいでしょうか?
私は、大体の流れしか書いてない、確認もしてないとサンプルをUPしたとき
書いています。
大体、InSertDataで、変数jを扱う処理は書かれてないでしょ。
それぐらいは自分で改造、デバッグてください。
人に使ってもらうプログラムを書く人なのであえて、技術系の板のキツサで
書きますが、その程度のデバッグも出来ないなら、私の書いたサンプルは忘れて、
ご自分の理解の範囲で書いて下さい。若しくはあきらめて下さい。
・・・これぐらいで止めておきます。m(_ _)m
※↓はエラーとは関係ないとは思いますが、一応書いておきます。
※上のSQLはテーブルの構造、データ型、などが開示されてない為、想像で
書いてます。従って、文法自体はあっていると思いますが、動くかどうかは
私には判りません。
>2.Ret = InSertData(TargetTableName.店別来店数, typData, Cn)
>後、上記のコードのところで、Enumの値を動的に変える方法はありますでしょうか?
ありません。
但し、Helpを見れば判りますが、Enumのメンバは0から始まる数値です。
>3.InputTable = TableName(i)で、テーブル名をデータの内容ごとに変えるように
>してありますが、Enumで列挙されているテーブル名をまた配列で列挙しているの
>もムダな気がします。Enumの上手な使い方をどなたかご教示お願いいたします。
細かく目を通してないのでこれに付いてはパス。
でも、前にサンプルをUPした後、一度に複数のテーブルのデータを取得した方が
合理的だったなと気が付き、ClassかCollectionにした方が良かったかなとは
思っていました。
ご自分の理解の範囲で、適当に工夫して下さい。
別にEnum、構造体に、固執する事は無いです。自分のわかりやすい方法で
やられては?
Enumは間違い防止、インテリジェンス機能の利用をしたら楽チンという理由で
使用しています。構造体は、RecordSetのデータを扱う際の常套手段です。
|
|