ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文
ADO の レコードセット更新 ( No.0 )
日時: 2007/04/11 15:12
名前: lightbox



<JOB>
<COMMENT>
************************************************************
 WSH 実行スケルトン
************************************************************
</COMMENT>

<COMMENT>
************************************************************
 外部スクリプト定義
************************************************************
</COMMENT>
<SCRIPT
	language="VBScript"
	src="http://homepage2.nifty.com/lightbox/laylaClass.vbs">
</SCRIPT>

<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://homepage2.nifty.com/lightbox/" )
Call laylaLoadFunction( "baseFunction.vbs" )
Call laylaLoadFunction( "dbFunction.vbs" )

Crun

GetFso
Call SQSConnect( _
	"layla", _
	"isdb", _
	"sa", _
	"" _
 )

Set objHandle = Fso.OpenTextFile( ScriptDir & "\New.csv", 1 )
nCnt = 0
Do While not objHandle.AtEndOfStream
	Buffer = objHandle.ReadLine
	nCnt = nCnt + 1
	if nCnt <> 1 then
		aData = Split( Buffer, "," )
		Wscript.Echo nCnt & ":" & aData( 0 )
		Query = "select * from T_学生マスタ where コード = " & aData(0)
		if DBGet( Query, True ) then
			Rs.Fields("郵便番号").Value	= aData(8)
			Rs.Fields("住所").Value	= aData(9)
			Rs.Fields("住所2").Value = aData(10)
			Rs.Fields("電話番号").Value = aData(13)
			Rs.Fields("携帯電話番号").Value = aData(12)
			Rs.Fields("保護者名").Value = aData(21)
			Rs.Fields("保護者名・フリガナ").Value = aData(18)
			Rs.Fields("保護者・郵便番号").Value = aData(16)
			Rs.Fields("保護者・住所").Value = aData(19)
			Rs.Fields("保護者・住所2").Value = aData(20)
			Rs.Fields("保護者・電話番号").Value = aData(17)
			if trim( aData(22) ) = "" then
				Rs.Fields("保護者・生年月日").Value = Empty
			else
				Rs.Fields("保護者・生年月日").Value = aData(22)
			end if
			Rs.Fields("E_Mail").Value = aData(11)
			Rs.Fields("受付番号").Value = aData(1)
			Rs.Fields("高校学科").Value = aData(15)
			Rs.Fields("備考").Value = aData(23) & "|" & aData(14)
			Rs.Fields("更新日付").Value = Cdate("2007/04/11")

			Rs.Update
		end if
	end if
Loop

DBClose( Rs )
DBClose( Cn )

</SCRIPT>
</JOB>