在Wincc中使用Dapper读写数据库
在Wincc中使用Dapper读写数据库
Dapper是C#下的Micro ORM，极大简化了ADO.NET的查询操作。本应用将Dapper封装为一个COM组件，以便在Wincc中使用Dapper查询数据库。
安装
下载dll文件。
解压压缩包，运行“注册DLL.vbs”文件，提示“成功注册了类型”，即注册成功。
需要安装.NET Framework 4.8。
简单示例
Dim sqlClient
Set sqlClient = CreateObject("Wincc.SqlClientHelper")
Dim endTime
endTime = SqlClient.ExecuteScalar("SELECT Max([TimeStampe]) from UA#Batch where [BatchName] = 'abcd'")
以上代码将自动连接到Wincc服务器的Wincc运行数据库，从UA#Batch用户归档中查询结束时间并返回时间值。
执行SQL
ExecuteScalar
查询单个值。
原型：
object ExecuteScalar(string sql, object param = null, object transaction = null, int? commandTimeout = null)
示例：查询指定批次的结束时间
Dim sqlClient
Set sqlClient = CreateObject("Wincc.SqlClientHelper")
Dim endTime
endTime = SqlClient.ExecuteScalar("SELECT Max([TimeStampe]) from UA#Batch where [BatchName] = 'abcd'")
Execute
执行SQL并返回受影响的行数。
原型：
int Execute(string sql, object param = null, object transaction = null, int? commandTimeout = null)
示例：删除数据
Dim sqlClient
Set sqlClient = CreateObject("Wincc.SqlClientHelper")
SqlClient.Execute("DELETE from UA#Batch where [BatchName] = 'abcd'")
Query
查询数据。
原型：
ArrayList Query(string sql, object param = null, object transaction = null, int? commandTimeout = null)
返回一个ArrayList类型对象，其中的元素是HashTable类型对象。
示例：查询批次
Dim sqlClient
Set sqlClient = CreateObject("Wincc.SqlClientHelper")
Dim results
set results = SqlClient.Query("Select * from UA#Batch where [BatchName] = 'abcd'")
Dim r
For Each r in results
HMIRuntime.trace r("BatchName") & vbnewline
HMIRuntime.trace r("TimeStamp") & vbnewline
next
QueryFirst
获取第一个结果。如果查询结果为空则会引发异常。
原型：
Hashtable QueryFirst(string sql, object param = null, object transaction = null, int? commandTimeout = null)
返回一个HashTable类型对象。
示例：
Dim sqlClient
Set sqlClient = CreateObject("Wincc.SqlClientHelper")
Dim result
set result = SqlClient.QueryFirst("Select * from UA#Batch where [BatchName] = 'abcd'")
HMIRuntime.trace result ("BatchName") & vbnewline
HMIRuntime.trace result ("TimeStamp") & vbnewline
QueryFirstOrDefault
获取第一个结果，如果数据为空则返回一个默认值。
原型：
Hashtable QueryFirstOrDefault(string sql, object param = null, object transaction = null, int? commandTimeout = null)
示例：
Dim sqlClient
Set sqlClient = CreateObject("Wincc.SqlClientHelper")
Dim result
set result = SqlClient.QueryFirstOrDefault("Select * from UA#Batch where [BatchName] = 'abcd'")
if not result is nothing then
HMIRuntime.trace result ("BatchName") & vbnewline
HMIRuntime.trace result ("TimeStamp") & vbnewline
end if
QuerySingle
获取第一个结果，如果查询为空或不止一行则抛出异常。
原型：
Hashtable QuerySingle(string sql, object param = null, object transaction = null, int? commandTimeout = null)
示例：
Dim sqlClient
Set sqlClient = CreateObject("Wincc.SqlClientHelper")
Dim result
set result = SqlClient.QuerySingle("Select * from UA#Batch where [BatchName] = 'abcd'")
HMIRuntime.trace result ("BatchName") & vbnewline
HMIRuntime.trace result ("TimeStamp") & vbnewline
QuerySingleOrDefault
获取第一个结果，如果数据为空则返回一个默认值，如果查询出不止一行则抛出异常。
原型：
Hashtable QuerySingleOrDefault(string sql, object param = null, object transaction = null, int? commandTimeout = null)
示例：
Dim sqlClient
Set sqlClient = CreateObject("Wincc.SqlClientHelper")
Dim result
set result = SqlClient.QuerySingleOrDefault("Select * from UA#Batch where [BatchName] = 'abcd'")
if not result is nothing then
HMIRuntime.trace result ("BatchName") & vbnewline
HMIRuntime.trace result ("TimeStamp") & vbnewline
end if
事务
原型：
TransactionWrapper BeginTransaction(IsolationLevel isolationLevel = IsolationLevel.Unspecified)
示例：
Dim sqlClient
Set sqlClient = CreateObject("Wincc.SqlClientHelper")
Dim transaction
set transaction = SqlClient.BeginTransaction()
SqlClient.Execute("DELETE from UA#Batch where [BatchName] = 'abcd'", nothing, transaction)
transaction.Commit() ' 提交
'transaction.Rollback() '滚回
transaction.Dispose() '释放事务对象
在代码最后，需要用Dispose()释放事务对象，否则要等待垃圾回收时才会释放事务对象，这将导致其他查询等待事务结束。
参数
方法的第二个参数是传入到SQL的参数，此功能尚未开发，仅作预留。
指定访问的数据库
默认访问Wincc 运行数据库，如果要访问其他数据库，使用以下代码：
访问Wincc运行数据库：
Dim sqlClient
Set sqlClient = CreateObject("Wincc.SqlClientHelper")
sqlClient.UseWinccRtDatabase()
访问Wincc组态数据库：
Dim sqlClient
Set sqlClient = CreateObject("Wincc.SqlClientHelper")
sqlClient.UseWinccRcDatabase()
访问指定的数据库：
Dim sqlClient
Set sqlClient = CreateObject("Wincc.SqlClientHelper")
sqlClient.UseDatabase("AuditDB")
连接其他数据源
默认连接到Wincc服务器数据库，如果要连接到其他数据源，则给UseDatabase属性赋值。
Dim sqlClient
Set sqlClient = CreateObject("Wincc.SqlClientHelper")
sqlClient.ConnectionString = "Provider=MSOLEDBSQL.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=abcd"
连接到其他数据源时，不能使用UseWinccRtDatabase()或UseWinccRcDatabase()方法设置默认数据库，这两个方法获取本地Wincc的数据库。而要用UseDatabase()指定默认数据库。