Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


24858 / 76732 ←次へ | 前へ→

【57221】Re:CSVデータをACCESSに移行2.
質問  satsuki  - 08/8/1(金) 19:31 -

引用なし
パスワード
   ▼neptune さん:
レスありがとうございます。

>>>For j = kiten2.Row + 1 To objsheet.Rows.Count
>ウォッチウィンドウか、ローカルウィンドウでその時のデータを確認しましょう。
>取り合えず、ここはかみちゃんさんのご指摘を試してみて下さい。

これは、データ見ました。65536がでました。
そして、かみちゃんさんのご指摘を試してみましたら、エラーは出ないまま65536回繰り返す状態になりました。
エクセルシートを使った時の
Range("A65536").End(xlUp).Row
はそのまま使えたのですが、これではまずいでしょうか?

>CSVファイルのデータを良く見ると、1つのファイルに複数のテーブル
>が含まれているようですので、上記の提案は不向きですね。ファイル内の
>データを解析したら、それをそのまんまmdbに放り込むほうが楽チンです。

今の状態がその楽チンな方法と考えてよいですか?


>知っているかどうか判らないので一応書いておきますが、CSVファイルも
>DAO、ADOを使用して、検索、追加は出来ます。
>削除は出来ない(ファイル操作では可能)。
>変更も多分出来ない。これは忘れました。これもファイル操作では可能です。
>CSVファイルは1行目がテーブル名になっていることが必要です。

ご教示ありがとうございます。

>その他気付いた点
>・DBへの追加処理は、別プロシージャにした方が見易い
>(好みだけの問題ではない。メンテナンス性。)

これは後で修正してみます。

>・RS.Open 後、RSを閉じないまま次のものに使っているが、問題は生じないんですかね?

RS.close をnext j の上に入れてみましたが、
RS.closeのところで「オブジェクトが閉じている時は操作は許可されません」というエラーがでましたので、RS.UPDATEの直後に毎回入れました。
RS.closeの入れ場所がまずいですか?

>・recordsetを開く際、openメソッドの第1引数でTable名を指定して、
> 第4引数でadCmdTableを指定すれば無駄なSQLを投げる必要は無かったと思う。

RS.Open InputTable, CN, adOpenKeyset, adLockOptimistic, adCmdTable
に変更し、上手く作動しました。

0 hits

【57168】CSVデータをACCESSに移行2. satsuki 08/7/30(水) 16:13 質問
【57183】Re:CSVデータをACCESSに移行2. neptune 08/7/30(水) 22:31 発言
【57188】Re:CSVデータをACCESSに移行2. satsuki 08/7/31(木) 0:47 質問
【57189】Re:CSVデータをACCESSに移行2. かみちゃん 08/7/31(木) 0:56 発言
【57194】Re:CSVデータをACCESSに移行2. satsuki 08/7/31(木) 11:23 質問
【57196】Re:CSVデータをACCESSに移行2. かみちゃん 08/7/31(木) 12:47 発言
【57201】Re:CSVデータをACCESSに移行2. satsuki 08/7/31(木) 14:26 質問
【57207】Re:CSVデータをACCESSに移行2. neptune 08/7/31(木) 21:52 回答
【57208】Re:CSVデータをACCESSに移行2. satsuki 08/8/1(金) 1:08 発言
【57192】Re:CSVデータをACCESSに移行2. neptune 08/7/31(木) 10:25 発言
【57193】Re:CSVデータをACCESSに移行2. satsuki 08/7/31(木) 11:13 発言
【57198】Re:CSVデータをACCESSに移行2. neptune 08/7/31(木) 13:33 発言
【57209】Re:CSVデータをACCESSに移行2. satsuki 08/8/1(金) 1:14 発言
【57210】Re:CSVデータをACCESSに移行2. かみちゃん 08/8/1(金) 7:14 発言
【57222】Re:CSVデータをACCESSに移行2. satsuki 08/8/1(金) 19:37 質問
【57220】Re:CSVデータをACCESSに移行2. neptune 08/8/1(金) 16:18 発言
【57221】Re:CSVデータをACCESSに移行2. satsuki 08/8/1(金) 19:31 質問
【57225】Re:CSVデータをACCESSに移行2. かみちゃん 08/8/1(金) 21:28 発言
【57230】Re:CSVデータをACCESSに移行2. satsuki 08/8/2(土) 1:14 お礼
【57231】Re:CSVデータをACCESSに移行2. かみちゃん 08/8/2(土) 9:56 発言
【57232】Re:CSVデータをACCESSに移行2. neptune 08/8/2(土) 11:08 発言
【57227】Re:CSVデータをACCESSに移行2. neptune 08/8/1(金) 22:20 発言
【57244】Re:CSVデータをACCESSに移行2. satsuki 08/8/2(土) 18:12 お礼

24858 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free