こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

csvファイルの読み込みとOracleDBへの更新

VB6.0とOracle9i、どちらも初心者です。
C:\直下にあるtest.csvファイルを読み込み、Oracleのテーブルと比較して存在しないものはinsert、存在するものはupdateする。
・test.csvファイル(百行)
"LOCATE", "COMPANY_CODE", "COMPANY_NAME", "COMPANY_KANA", "ZIPCODE", "ADDRESS",
"TEL_NO", "FAX_NO", "CATEGORY", "INDUSTRIES", "PERSONS"
・OracleのCustomerテーブル
COMPANY_CODE NUMBER
COMPANY_NAME VARCHAR2
COMPANY_KANA VARCHAR2
ZIPCODE CHAR
ADDRESS VARCHAR2
TEL_NO CHAR
TEL_NO_2 CHAR
FAX_NO CHAR
HP_URL VARCHAR2
NOTE VARCHAR2
CUST_VARCHAR_1 VARCHAR2
CUST_VARCHAR_2 VARCHAR2
CUST_VARCHAR_3 VARCHAR2
CUST_VARCHAR_4 VARCHAR2
・ロジック
1.oo4oでOracleに接続
2.csvファイルの読み込み
3.oracleのレコードとの比較
4.insertプログラム
5.updateプログラム
・コード
'** oo4o 接続
dbname = "****"
cnuser = "****/****"
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase(dbname, cnuser, ORADB_DEFAULT)

Open "c:\test.csv" For Input As #1 '

csvファイルをオープンして、1行ずつループで取り込んで、取り込んだcsvレコード(行)を元にキー項目(COMPANY_CODE)を条件に既にOracleテーブルにあればInsertクエリを, なければUpdateクエリを発行する、をファイルエンドまで繰り返します。
自分でなんとか書いて聞くのが礼儀だと思いますが、調べてもやっぱりどう書けばよいのか全くわかりません。懸念事項として、Oracleのテーブルの列とCSVの列の数や並び方が異なっていることがあります。よろしくお願いします。

投稿日時 - 2003-02-03 01:51:44

QNo.462443

困ってます

質問者が選んだベストアンサー

何が わからないのか ちょっとわかりません。

前提として、
ファイルから読み込み
SELECT
INSERT
UPDATE
DELETE
などのやり方は わかりますでしょうか?
とりあえず、それぞれが 単体で実行できることを確認してから それを
組み合わせていったらいいでしょう。
DELETEとあるのは、手順として
SELECTして ない → INSERT
ある→UPDATE
とするのと
無条件で
DELETE→INSERT
という手段もあるからです。
どちらがいいかは、レコード数によっても違うと思います。

投稿日時 - 2003-02-03 06:46:46

お礼

takntさん、ご回答ありがとうございました。
完成いたしました。

投稿日時 - 2003-02-13 09:29:18

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問