wincc7.5 VBS脚本读取SQL审计追踪数据，新数据库变成多个分段，名称不一致，如何连接查询？

你这个问题很好，你的目标是获取所有符合条件的数据库名称，那么你参考下面的实例，看看能不能有什么启发
' 连接SQL Server主数据库
strMasterCn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=master;Data Source=IPC43\WINCC"
Set objMasterConn = CreateObject("ADODB.Connection")
objMasterConn.Open strMasterCn

' 查询所有名称包含"ABC"的数据库
sqlGetDbs = "SELECT name FROM sys.databases WHERE name LIKE 'ABC%' ORDER BY name DESC"
Set objRsDbs = CreateObject("ADODB.Recordset")
objRsDbs.Open sqlGetDbs, objMasterConn

' 存储找到的数据库名称
Dim arrDatabases()
ReDim arrDatabases(-1) ' 初始化为空数组

Do Until objRsDbs.EOF
    ReDim Preserve arrDatabases(UBound(arrDatabases) + 1)
    arrDatabases(UBound(arrDatabases)) = objRsDbs("name")
    objRsDbs.MoveNext
Loop

objRsDbs.Close
objMasterConn.Close
依次查询每个数据库
' 定义查询结果数组
Dim arrAllResults()
ReDim arrAllResults(-1)

' 遍历所有找到的数据库
For Each dbName In arrDatabases
    On Error Resume Next ' 防止某个数据库查询失败导致脚本中断
    
    ' 连接当前数据库
    strCn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & dbName & ";Data Source=IPC43\WINCC"
    Set objConn = CreateObject("ADODB.Connection")
    objConn.Open strCn
    
    If Err.Number = 0 Then ' 连接成功
        ' 查询当前数据库
        sql = "SELECT * FROM CL_TRAILDATA WHERE DateTime BETWEEN '" & BeginDate & "' AND '" & EndDate & "' ORDER BY DateTime"
        Set objRs = CreateObject("ADODB.Recordset")
        objRs.Open sql, objConn
        
        ' 将结果合并到总结果中
        Do Until objRs.EOF
            ReDim Preserve arrAllResults(UBound(arrAllResults) + 1)
            Set arrAllResults(UBound(arrAllResults)) = objRs.GetRows(1) ' 获取当前行
            objRs.MoveNext
        Loop
        
        objRs.Close
        objConn.Close
    End If
    
    On Error GoTo 0 ' 恢复错误处理
Next
这样应该就可以满足你的需求了。。你需要根据实际的情况进行修改测试。。
希望可以帮到你，记得给个好评。。