求助：如何在wincc的全局脚本中用c或vbs脚本编写程序访问oracal数据库？ 点击：2997 | 回复：15
发表于：2007-09-28 20:46:00
13楼
先建立一个项目函数DBConnecttion.bmo
在这个函数中中建立2个方法（打开和关闭数据库）
Public strSQL
Public strConnectionString
Public objRecordset
Public objConnection
Public objCommand
Sub OpenDataBase_Config
strConnectionString = "Provider=MSDASQL;DSN=ODBC_BD06_A_DC00;UID=BDAndon;PWD=BDAndon;" ’DSN为ODBC链接的名称，UID是用户名，PWD是密码
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
End Sub
Sub CloseDataBase_Config
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
End Sub
调用时的方法：
dim Type
OpenDataBase_Config
strSQL = "SELECT Top 1 * FROM Table_AndonStyle_Style_Config WHERE (AndonID = "&AndonNum.read&") ORDER BY SetupTime desc"
With objCommand
.ActiveConnection = objConnection
.CommandText = strSQL
End With
Set objRecordset = objCommand.Execute
'************** Read **************
Type=objRecordset.Fields(2).Value
'************ close datebace ***********
OpenDataBase_Config
在这个函数中中建立2个方法（打开和关闭数据库）
Public strSQL
Public strConnectionString
Public objRecordset
Public objConnection
Public objCommand
Sub OpenDataBase_Config
strConnectionString = "Provider=MSDASQL;DSN=ODBC_BD06_A_DC00;UID=BDAndon;PWD=BDAndon;" ’DSN为ODBC链接的名称，UID是用户名，PWD是密码
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
End Sub
Sub CloseDataBase_Config
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
End Sub
调用时的方法：
dim Type
OpenDataBase_Config
strSQL = "SELECT Top 1 * FROM Table_AndonStyle_Style_Config WHERE (AndonID = "&AndonNum.read&") ORDER BY SetupTime desc"
With objCommand
.ActiveConnection = objConnection
.CommandText = strSQL
End With
Set objRecordset = objCommand.Execute
'************** Read **************
Type=objRecordset.Fields(2).Value
'************ close datebace ***********
OpenDataBase_Config
发表于：2007-10-08 14:30:00
14楼
看了楼上的程序,有几个疑问,我是新手,呵呵
1.strSQL = "SELECT Top 1 * FROM Table_AndonStyle_Style_Config WHERE (AndonID = "&AndonNum.read&") ORDER BY SetupTime desc"
中Top 1是什么意思?
我记得在VB中SQL语句用SELECT * FROM 就可以了?我弄过VB,对VBS不太懂
2.Type=objRecordset.Fields(2).Value 是把表中的哪个数据赋给Type啊?
3.如果要修改数据库中的某个值,怎么写.
1.strSQL = "SELECT Top 1 * FROM Table_AndonStyle_Style_Config WHERE (AndonID = "&AndonNum.read&") ORDER BY SetupTime desc"
中Top 1是什么意思?
我记得在VB中SQL语句用SELECT * FROM 就可以了?我弄过VB,对VBS不太懂
2.Type=objRecordset.Fields(2).Value 是把表中的哪个数据赋给Type啊?
3.如果要修改数据库中的某个值,怎么写.
热门招聘
相关主题
- 求教VB与VC的区别
[2458] - SIAVIEW工业控制监控系统系列...[2381]
- IEC61131-3国际编程标准[5174]
- WinCC中的图形如何旋转任意角...[3934]
- 紧急求救：使用OMRON SYSMAC-...[2312]
- WinCC里怎样用脚本关闭当前窗...[5789]
- 组态王能生成可执行文件吗？[6853]
- C++开发OPC客户端[3718]
- mcgs6.2产生安装盘的问题[2019]
- 关于codesys安装时遇到的问题...[2048]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
