CSVファイルの取り込み後のデータをDBに追加するには

call DbOpen　　'DB接続モジュール

　　MySQL = "SELECT * FROM テーブル名"
　　MyREC.Open MySQL, MyRDB, 3, 3, 1

　　Set fs = CreateObject("Scripting.FileSystemObject")
　　filename=server.mappath("../k_mem/" & newf1)
　　Set readfile=fs.OpenTextFile(filename,1,False)

　　Do while not readfile.atendofstream
　　　　count=count+1
　　　　 if count>1 then
　　　　　　Text=readfile.readline
　　　　　　 data = split(Text, ",")　　　'CSV ファイルは，で分割されている前提
　　　　　　 MyREC.addnew
　　　　　　MyREC(列名A)=right(100000000000+data(2),10)　　'CSV３要素目のデータで桁数併せ　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　のため０で穴埋め
　　　　　　MyREC("列名B")=data(3)　　　　　　　　　　　　　　　'４要素目のデータ
　　　　　　MyREC("列名C")="01"　　　　　　　　　　　　　　　　　'CSVから取り込まず、固定値
　　　　　　MyREC.update
　　　　　　dummy=left(data(1),10)
　　　　end if
　　loop
　　readfile.close
　　set readfile=nothing
　　set fs=nothing

call c_DbClose()　　'DB切断モジュール

★例：　Split(text ,",",3,1) カンマ区切りデータの３要素をテキスト形式で比較します。

　　　　 Split(text ,",") カンマ区切りデータの全ての要素をバイナリ形式で比較します。

四捨五入

四捨五入でroundを使用しない

• round(2.25,1) →　2.2
• formatnumber(2.25,1)　→ 2.3

データ追加と更新

※1　call DbOpen()  
　　MySQL="SELECT テーブル名.* FROM テーブル名 where 条件
　　MyREC.Open MySQL, MyRDB,3,3

　　If MyREC.EOF = true then 'レコードがなければ挿入　新規行を追加
　　　　MyREC.AddNew
　　　　MyREC.Fields("列名1").value=値

　　　　MyREC.Fields("列名2").value=値


　　else
　　　　MyREC.Fields("列名2").value=値
　　end if

 　　MyREC.Update  
※2  call b_DbClose
 

※部分はインクルードファイルの中で定義しておく

'===============================

'  ※1DB OPEN　（SQL　サーバ認証の場合）

'===============================

function DbOpen()

'##### コネクションオブジェクトの生成 #####

Set MyRDB = Server.CreateObject("ADODB.Connection")

'##### レコードセットオブジェクトの生成 #####

Set MyREC = Server.CreateObject("ADODB.Recordset")

　　    Set MyCMD = Server.CreateObject("ADODB.Command")

MyRDB.ConnectionString = "Provider=SQLOLEDB; Data Source='サーバー名'; Initial Catalog=データベース名;User ID=ログイン名;Pwd=パスワード;"

　　　　MyRDB.Open

end function

'===============================

'  ※2DB CLOSE

'===============================

function c_DbClose()

MyREC.Close

set MyREC = Nothing

MyRDB.close

set MyRDB = Nothing

end function