Opens the Insight database for reading without using a connection string.
OpenInsight
Dim safeodbc
Dim name
Dim recordSet
Set safeodbc=CreateObject("SafeOdbc.OdbcConnection")
safeodbc.OpenOblicore
Set recordSet= safeodbc.Query("select * from T_resources")
Do Until recordSet.EOF
Tools.log "Resource name = " & recordSet ("RESOURCE_NAME")
recordSet.MoveNext
Loop
recordSet.Close
safeodbc.Close
|
Copyright © 2013 CA.
Alle Rechte vorbehalten.
|
|