uwsc で、access の制御（UPDATE編）

uwsc で、access の制御サンプルが少ないが、作成する機会があったのでメモしておきます。

UPDATE文

Dim DBE	= CreateOleObj("Access.Application")

try
	strFileName = "D:\usr\test.accdb"
	DBE.OpenCurrentDatabase( strFileName )
	DBE.DoCmd.RunSQL("UPDATE T_1 SET x = 5 WHERE id =  1" )
	DBE.CloseCurrentDatabase()
except
	print "Error"
	DBE.CloseCurrentDatabase()
endtry