搬家第44天-wincc7.3vbs往access添加纪录

今天晚上看到QQ群里有人问他的代码为什么不能往access添加纪录，这个应该好实现，我试着做了一下，把代码贴在这里，免得以后自己着急需要使用时想不起来。

Sub OnClick(ByVal Item)      
 Dim conn
 Dim ors
 Set conn=CreateObject("ADODB.Connection")
 conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:\Wincc73DBTest\MyDB.mdb"
 conn.open
 Set ors=CreateObject("ADODB.RecordSet")
 ors.open "insert into mytable(号码,姓名,年龄) values('1234','小张',35)" ,conn,3,3
 Set ors=Nothing
 conn.close
 Set conn=Nothing
End Sub

 

没有用复杂的功能，access路径也是绝对路径，需要的话，可以修改成相对路径。access数据库的mytable数据表有几个字段，号码是字符串、姓名字符串、年龄是整型。