vbs 执行sql语句

Sub ExeSql(ByRef connstr, ByRef sqlstr)

' 功能: 执行sql 语句  
' 参数：数据库连接, 语句
' 设计: 年纪涛 13913140677
' 修改: 2021-1-24
' 从此位置起写入代码：

On Error Resume Next
Dim ret
Dim RecipeTable,RecipeConn

''------数据库连接配置
Set RecipeConn = CreateObject("ADODB.Connection")
RecipeConn.open connstr
Set RecipeTable=CreateObject("ADODB.Recordset")
RecipeTable.cursorlocation=3 'aduseclient
RecipeTable.activeconnection=RecipeConn
RecipeTable.LockType=3 'adLockOptimistic
RecipeTable.CursorType=1 'adOpenKeyset
''------数据库连接配置结束

RecipeTable.open sqlstr
RecipeTable.close

Set RecipeTable =Nothing
Set RecipeConn =Nothing

End Sub

 

参数传入sql连接,和要执行的语句.

sqldb:  RecipeFileName = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=DataCore;Data Source=localhost;"

如下是删除记录.

Sub DelRecipeByName_Local(ByVal RecipeName)
' 示例 RecipeName = "ABC123"
' 功能: 直接删除工艺
' 设计: 年纪涛 13913140677
' 修改: 2021-1-24
' 从此位置起写入代码：

On Error Resume Next
Dim connstr,sqlstr
Dim RecipeFileName
'示例 RecipeFileName = "d:\sqldata\Recipe\AfRecipe.mdb"
RecipeFileName = HMIRuntime.Tags("RecipeFileName").Read
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & RecipeFileName & ";Persist Security Info=False"
sqlstr = "delete from 工艺 where 名称 = '" & RecipeName & "'"
Call  ExeSql(connstr,sqlstr)

End Sub