'このVBScriptについて：

'【使用方法】

	'販売時にバーコードを読み取ることが出来ず、仮登録後に別商品として販売してしまった場合の修正用スクリプトです。
	
	'このファイルをPOS端末へコピーして、下記「SQL文」の商品IDを編集後に、ファイルをダブルクリックして適用下さい。


'【スクリプト本体】

Dim strUserid
Dim strPassword
Dim strDsn
Dim strConnection
Dim Connection
Dim rs
Dim strSQL

'データベース接続用ID,パスワードの設定
		
strUserid = ""
strPassword = ""
strDsn = "Nyushukka"
strConnection = "DSN=" & strDsn & "; UID=" & strUserid & "; PWD=" & strPassword

'データベース接続
	
Set Connection = CreateObject("ADODB.Connection")

Connection.Open strConnection

'SQL文

'商品ID「2」として販売した商品を、商品ID「1」に変更するSQL文：　strSQL = "UPDATE nyushukkasub SET shouhinnid = 1 WHERE shouhinnid = 2"

strSQL = "UPDATE nyushukkasub SET shouhinnid = ここに修正後の商品IDを記入してください WHERE shouhinnid = ここに修正前の商品IDを記入してください"

Set rs = Connection.Execute(strSQL)
	
Connection.Close 'データベース接続を閉じる

MsgBox "処理が終了しました",MB_ICONINFORMATION,"商品ID変更スクリプト"