Populating a TreeView Control using perl 
Author Message
 Populating a TreeView Control using perl

hi my question is really simple.  Can someone provide me with a sample on
how to populate a treeview control using data drawn in from an ODBC
connection?

I am just clueless on the command line syntax:  Here is how I am accessing
the data, now I just need to poplulate the tree:

use Win32::OLE;
use Win32::OLE::Const;
$Win32::OLE::Warn = 3;
my $conn = Win32::OLE->new("ADODB.Connection", "Close");
$conn->Open('DB', '', '');
my $rs = Win32::OLE->new("ADODB.Recordset");
my $const = Win32::OLE::Const->Load($rs);

eval { $rs->Open("User", $conn, $$const{adOpenKeyset},
$$const{adLockOptimistic}, $$const{adCmdTable}); };

---------------------

<object classid="clsid:C74190B6-8589-11D1-B16A-00C0F0283628" id="TreeView1"
width="206" height="438">
  <param name="_ExtentX" value="5450">
  <param name="_ExtentY" value="11589">
  <param name="_Version" value="393217">
  <param name="HideSelection" value="1">
  <param name="Indentation" value="1000">
  <param name="LabelEdit" value="0">
  <param name="LineStyle" value="0">
  <param name="PathSeparator" value>
  <param name="Sorted" value="0">
  <param name="Style" value="7">
  <param name="Checkboxes" value="0">
  <param name="FullRowSelect" value="0">
  <param name="HotTracking" value="0">
  <param name="Scroll" value="1">
  <param name="SingleSel" value="0">
  <param name="ImageList" value>
  <param name="BorderStyle" value="0">
  <param name="Appearance" value="1">
  <param name="MousePointer" value="0">
  <param name="Enabled" value="1">
  <param name="OLEDragMode" value="0">
  <param name="OLEDropMode" value="0">
</object>

Now how do I populate?

$TreeView1->Nodes->Add(...)???  I am clueless on the syntax from this point
on.



Sun, 02 Mar 2003 00:14:47 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. autodialer in database

2. Using named array to populate radio group via cgi.pm

3. Perl Win 32 GUI, TreeView problem, help needed !

4. treeview interface with perl/cgi?

5. Using Perl to control Win DevStudio application

6. Using perl to control interactive processes?

7. How to control jobs using PERL?

8. Can perl be used to control serial devices?

9. Problems using Perl Win32::OLE to control Acrobat Exchange

10. Using Perl Win32::OLE to control Adobe Acrobat.

11. Using perl for access control

12. EmptyTable Problem

 

 
Powered by phpBB® Forum Software