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
・ロジック
１．oo4oでOracleに接続
２．csvファイルの読み込み
３．oracleのレコードとの比較
４．insertプログラム
５．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ファイルをオープンして、１行ずつループで取り込んで、取り込んだcsvレコード（行）を元にキー項目（COMPANY_CODE）を条件に既にOracleテーブルにあればInsertクエリを, なければUpdateクエリを発行する、をファイルエンドまで繰り返します。
自分でなんとか書いて聞くのが礼儀だと思いますが、調べてもやっぱりどう書けばよいのか全くわかりません。懸念事項として、Oracleのテーブルの列とCSVの列の数や並び方が異なっていることがあります。よろしくお願いします。

回答No.1

taknt · ベストアンサー

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

前提として、
ファイルから読み込み
ＳＥＬＥＣＴ
ＩＮＳＥＲＴ
ＵＰＤＡＴＥ
ＤＥＬＥＴＥ
などのやり方は わかりますでしょうか？
とりあえず、それぞれが 単体で実行できることを確認してから それを
組み合わせていったらいいでしょう。
ＤＥＬＥＴＥとあるのは、手順として
ＳＥＬＥＣＴして ない → ＩＮＳＥＲＴ
ある→ＵＰＤＡＴＥ
とするのと
無条件で
ＤＥＬＥＴＥ→ＩＮＳＥＲＴ
という手段もあるからです。
どちらがいいかは、レコード数によっても違うと思います。

お礼

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