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 © 2012 CA. Tous droits réservés. | Envoyer un courriel à CA Technologies sur cette rubrique |