global.bas

使用 VB 编写访问 WinCC 软件的 SQL server 数据库的代码。

Attribute VB_Name = "Global"
Option Explicit
' Constant definitions for the whole project
Public Const TAGLOGG As Long = 1
Public Const ALALOGG As Long = 2
Public Const UA As Long = 3
Public Const T01 As String = " with TagLogging"
Public Const T02 As String = " with AlarmLogg."
Public Const T03 As String = " with UserArchiv"
Public Const E01 As String = " ERROR in SELECTION"

Public Const DBTYPE_RT As Long = 1          'WinCC RunTime database
Public Const DBTYPE_ARCHIVE As Long = 2     'database created by WinCC ArchiveConnector

Public Const g_c_CSV_Delimiter = ";"        ' CSV file column delimiter

' Variable definition
Public g_SER As String    ' Servername
Public g_DSN As String    ' ODBC Name for data source
Public g_Mod As Long      ' Mode for tag, Alarm Logging or User Archive
Public g_DBType As Long   ' database type (RunTime or archive)
Public g_Path As String   ' Path for export files
Public g_FilA As String   ' Path for export files in alarm
Public g_FilT As String   ' Path for export files in Taglogging

Public Sub Init()
   g_DSN = ""
   g_SER = "."
   g_Mod = 0
   g_DBType = DBTYPE_ARCHIVE
   g_Path = "D:\out\"
   g_FilA = "WCCALA.csv"
   g_FilT = "WCCTAG.csv"
End Sub

Public Sub SplitPathAndFileName(strFullPath As String, strPath As String, strFileName As String)
   
  Dim nPos As Long
   
  strPath = ""
  strFileName = ""
  nPos = InStrRev(strFullPath, "\", -1)
  If nPos > 1 Then
    strPath = Left(strFullPath, nPos)
    strFileName = Mid(strFullPath, nPos + 1)
  End If
  
End Sub

Public Function GetWinCCOleDbConnString(strServer As String, strDSN As String)
  GetWinCCOleDbConnString = "Provider=WinCCOLEDBProvider.1;Data Source=" & strServer & _
                            "\WinCC;Catalog=" & strDSN
End Function
Public Function GetSQLOLEDBConnString(strServer As String, strDSN As String)
  GetSQLOLEDBConnString = "Provider=SQLOLEDB.1; Integrated Security=SSPI; Persist Security Info=false;" & _
  "Initial Catalog=" & strDSN & "; Data Source=" & strServer & "\WinCC"
End Function