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の列の数や並び方が異なっていることがあります。よろしくお願いします。