VB中通过oo4o进行Oracle数据库操作-Select

[SQL  Select]
通过OO4O取得数据 Select

1. '***********************************************************************
2. '  通过oo4o进行连接数据库，通过执行Select语句选择数据后，断开DB
3. '***********************************************************************
4. Private Sub DBSelect()
6.   On Error GoTo Err_Rtn
8.   Dim OraSession As OraSession
9.   Dim OraDatabase As OraDatabase
10.   Dim OraDynaset As OraDynaset
12.   Dim result
13.   Dim strSQL
15.   strSQL = "SELECT * FROM HINMST WHERE MAKERCODE = '123'"  'SQL
17. &nb