Ниже приведен пример на Visual Basic:
Sub Form_Load ()
Dim OraSession As Object 'Declare variables as OLE Objects
Dim OraDatabase As Object
Dim OraDynaset As Object
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.DbOpenDatabase("SQL*Net_Connect_String", "scott/tiger", 0&)
MsgBox "Connected to " & OraDatabase.Connect & "@" & OraDatabase.DatabaseName
'Create the OraDynaset Object and display the first value
Set OraDynaset = OraDatabase.DbCreateDynaset("select empno, ename from emp", 0&)
MsgBox "Employee " & OraDynaset.Fields("empno").value & ", #" & OraDynaset.Fields("ename").value
End Sub
****************************************************************
КАК ПОЛУЧИТЬ КОЛИЧЕСТВО ПОЛЕЙ И СТРОК ПОПАВШИХ В ВЫБОРКУ
i = OraDynaset.RecordCount
j = OraDynaset.Fields.Count
НЕ РАБОТАЕТ
*************************************************************
