データ追加と更新

※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