当前位置:编程学习 > VB >>

用wincc里的vbs对SQL进行读写操作

试了好几种方法 似乎根本没有连接上数据库
从网上找了个成功的例子试了下,还是不行,求助,为什么。

已经在图形编辑器里创建了按钮,按钮动作时引用这个过程。
代码如下:

Sub procedure1

Dim objConnection

Dim strConnectionString

Dim lngValue

Dim strSQL

Dim objCommand

Dim Name

Name="222"

strConnectionString = "Provider=MSDASQL;DSN=ZCZ;UID=;PWD=;" 

'字符串连接到数据库

strSQL = "INSERT INTO ZCZ (search) VALUES ("& Name &");" 

'sql语句将new插入zcZ的变量名的列

Set objConnection = CreateObject("ADODB.Connection")

'将objconnection定义成adodb的连接

objConnection.ConnectionString = strConnectionString

'将数据库连接字符串赋值给adodb.objconnection

objConnection.Open

'打开连接数据库

Set objCommand = CreateObject("AdodB.Command")

'将objcommand定义成adodb的命令

With objCommand

.ActiveConnecTion = objConnection

.Commandtext = strSQL

End With

objCommand.Execute

set objCommand = Nothing

oBjcoNnection.Close

Set objConnection = Nothing

End Sub --------------------编程问答-------------------- 建议LZ移到VB板块问比较好 --------------------编程问答--------------------
引用 1 楼  的回复:
建议LZ移到VB板块问比较好
谢谢
补充:VB ,  数据库(包含打印,安装,报表)
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,