vbsの作法 その16

概要

vbsの作法調べてみた。
csvにcrudしてみた。

結果

insert,selectは、OK。
update,deleteは、NG。

サンプルコード

insert

Set db = CreateObject("ADODB.Connection")
db.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\;Extended Properties=""text;FMT=Delimited;"";"
sql = "INSERT INTO [test.csv](lat,lon,mise) VALUES('35.0','140.0', 'test1')"
Set rs = db.Execute(sql)
db.close

select

Set db = CreateObject("ADODB.Connection")
db.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\;Extended Properties=""text;FMT=Delimited;"";"

Set rs = db.Execute("SELECT * FROM [test.csv] WHERE mise='test'")
Do Until rs.EOF
    msgbox "lat: " & rs(0) & " lon: " & rs(1) & " mise: " & rs(2)
    rs.MoveNext
Loop
rs.close
db.close

以上。