'定义变量,注意VBS一条命令占据一行,换行后无效!
Dim conn
Dim con
Dim sSQL
Dim oRS
Dim oCom
con= "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名称;Data Source=服务器"
Set conn= CreateObject("ADODB.Connection")
conn.ConnectionString=con
conn.CursorLocation=3
conn.Open
Set oRs=CreateObject("ADODB.Recordset")
Set oCom= CreateObject("ADODB.Command")
Set oCom.ActiveConnection=conn
oCom.CommandType=1
sSQL="填写查询写入语句"
'写入数据库:sSQL="INSERT INTO [表名称] ([字段名称]) VALUES ('写入的值');"
'更新数据库:sSQL= "UPDATE [表名称] Set [字段名称]='写入的值' where [字段名称]='值'"
oCom.CommandText=sSQL
Set oRS=oCom.Execute
Set oRS=Nothing
conn.close
Set conn=Nothing
版权属于:
滕招
作品采用:
《
署名-非商业性使用-相同方式共享 4.0 国际 (CC BY-NC-SA 4.0)
》许可协议授权
评论 (0)