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