Back|Member|Save|Mobile
General member

西门子软启动器

西门子软起动

News type
  • N/A
站内搜索
 
友情链接
  • N/A
Home > 新闻中心 > vbs accsee 数据库编程经验分享
新闻中心
vbs accsee 数据库编程经验分享
Date:2021-11-06        Hits:19        Back
vbs 脚本看着易用,但对角本不熟悉 ,还是走了很多弯路,   一些功能都是试验得到的。

access归档, 就SQL语句, 本人就搞了三四天才有头绪 。

Set objConnection = CreateObject("ADODB.Connection")

objConnection.ConnectionString = strConnectionString

objConnection.Open

If (objConnection.State = 0) Then

MsgBox "连接数据库失败!"

End If

Set objCommand = CreateObject("ADODB.Command")

With objCommand

.ActiveConnection = objConnection

.CommandText = strSQL

End With


objCommand.Execute


MsgBox (Err.Number)

If Err.Number = 0 Then

MsgBox "执行插入成功"

Else

MsgBox "执行插入失败"

End If


Set objCommand = Nothing

objConnection.Close

Set objConnection = Nothing