CimDbap.SubmitTableOLEDBRequest (method)

Gets CIMPLICITY Database Logger OLEDB connection information for a CIMPLICITY Logging table.
Syntax: object.SubmitTableOLEDBRequest project, table_id, pResponse, timeout
project As String - String containing the CIMPLICITY project.
table_id As String - String containing the CIMPLICITY Logging table.
pResponse As CimDbapTableOLEDBResponse - A CimDbapTableOLEDBResponse object, which will be populated with the DSN configuration data.
Optional timeout As long - An optional value defining how many milliseconds to attempt to make a connection with the CIMPLICITY project and retrieve the data. If the specified timeout elapses before successfully connecting and retrieving the data, then an error will be returned indicating that the timeout period has elapsed. The default value is to wait indefinitely, however it is recommended that a timeout value be used to avoid indefinitely hanging your application.
Description: Use this method to retrieve the OLE DB connection information required to make a connection to the database where the CIMPLICITY Logging table exists.


Sub Main()
Dim oCimDbap As Object
Dim oCimDbapTableOLEDBResponse As Object
Dim oADORecordset As Object
Set oCimDbap = CreateObject("DbapDisp.CimDbap")
Set oCimDbapTableOLEDBResponse = CreateObject("DbapDisp.CimDbapTableOLEDBResponse")
'Create an ADO Recordset object
Set oADORecordset = CreateObject("ADODB.Recordset")
'Submit request. Timeout of 30 seconds
oCimDbap.SubmitTableOLEDBRequest "VCRNWM", "DATA_LOG", oCimDbapTableOLEDBResponse, 30000
If oCimDbapTableOLEDBResponse.TableType = 0 Then
MsgBox "Table name is invalid"
Exit Sub
End If
sql$ = "Select TOP 100 * from " & oCimDbapTableOLEDBResponse.TableName
oADORecordset.CursorLocation = 3 'adUseClient
oADORecordset.Open sql$, oCimDbapTableOLEDBResponse.ConnectString
MsgBox oADORecordset.RecordCount
End Sub