Attribute VB_Name = "dtLob"
'----------------------------------------------------------------------------
'
' (c) Copyright IBM Corp. 2007 All rights reserved.
' 
' The following sample of source code ("Sample") is owned by International 
' Business Machines Corporation or one of its subsidiaries ("IBM") and is 
' copyrighted and licensed, not sold. You may use, copy, modify, and 
' distribute the Sample in any form without payment to IBM, for the purpose of 
' assisting you in the development of your applications.
' 
' The Sample code is provided to you on an "AS IS" basis, without warranty of 
' any kind. IBM HEREBY EXPRESSLY DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR 
' IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF 
' MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. Some jurisdictions do 
' not allow for the exclusion or limitation of implied warranties, so the above 
' limitations or exclusions may not apply to you. IBM shall not be liable for 
' any damages you suffer as a result of using, copying, modifying or 
' distributing the Sample, even if IBM has been advised of the possibility of 
' such damages.
'----------------------------------------------------------------------------
'
' SOURCE FILE NAME: dtLob.bas
'
' SAMPLE: Get Large Objects (LOBs)
'
'         For this sample to work with ODBC connection, the keyword
'         LONGDATACOMPAT=1 must be set in the db2cli.ini file.
'
' FORMS USED:
'         frmMain (Demo.frm)
'
'----------------------------------------------------------------------------
'
' For more information on the sample programs, see the README file.
'
' For information on building ADO applications with Visual Basic, 
' see the Developing ADO.NET and OLE DB Applications book.
'
' For information on using SQL statements, see the SQL Reference.
'
' For the latest information on programming, compiling, and running DB2
' applications, visit the DB2 Information Center:
'     http://publib.boulder.ibm.com/infocenter/db2luw/v9r7/index.jsp
'----------------------------------------------------------------------------

Option Explicit

'This procedure returns a Recordset which contains CLOB and BLOB.
Public Function GetLOB(con As ADODB.Connection, dc As Adodc)
  
  'set properties for the ADO Control
  With dc
    .ConnectionString = con.ConnectionString
    .CursorLocation = adUseClient
    .CursorType = adOpenStatic
    .CommandType = adCmdText
    .RecordSource = _
      "SELECT a.empno, firstnme, lastname, resume, picture " & _
      "  FROM employee a, emp_resume b, emp_photo c " & _
      "  WHERE a.empno = b.empno AND " & _
      "        b.empno = c.empno AND " & _
      "        resume_format='ascii' AND " & _
      "        photo_format='bitmap'"
  End With

End Function