I am querying a database and putting the output into a listview

What I would like to next is to click on an item in the list and then  drilldown into the data base

The question is how can I return the value from a List

I am fairly new at using Win32::GUI and apologise if this is a stupid question.

Should I be using a different type than listview and if so what should I be using?



use strict;

use Socket;

use Win32::GUI;

use Win32::ODBC;

#set variables

my (%Data, %new, $result, $Window, $width);

my $Dir                 = "//neptune/tech_dept/databases";

my $DBase               = "asset.mdb";

my $DriverType  = "Microsoft Access Driver (*.mdb)";

my $Desc                = "Description=The Win32::ODBC Test DSN for Perl";

my $DSN                 = "tmpdsn";

$Window = new GUI::Window(

    -name   => "Window",

    -text   => "Win32::GUI::ListView test",

    -width  => 350,

    -height => 500,

    -left   => 100,

    -top    => 100,

);


$Window->AddListView(

    -name      => "ListView",

    -left      => 10,

    -top       => 10,

    -width     => 330,

    -height    => 383,

    -style     => WS_VISIBLE | 1,

    -gridlines => 1,

);

$width = $Window->ListView->ScaleWidth;

$Window->ListView->InsertColumn(

    -index => 0,

    -width => $width/2,

    -text  => "Asset No",

);

$Window->ListView->InsertColumn(

    -index   => 1,

    -width   => $width/2,

    -text    => "IP Address",

);

$Window->AddRadioButton(

        -name    => "Radio1",

        -left    => 8,

        -top     => 410,

        -text    => "192 Network  ",

        -tabstop => 1,

);

$Window->AddRadioButton(

        -name    => "Radio2",

        -left    => 8,

        -top     => 430,

        -text    => "212 XTML  ",

        -tabstop => 1,

);


$Window->AddRadioButton(

        -name    => "Radio3",

        -left    => 8,

        -top     => 450,

        -text    => "212 EasyNet  ",

        -tabstop => 1,

);

#$Window->ListView->TextColor(hex("0000FF"));

$Window->Show();

$Window->Dialog();


sub MAIN {

        #set up dsn

        Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, $DriverType, ("DSN=$DSN", "Description=The Win32 ODBC Test DSN for Perl", "DBQ=$Dir\\$DBase", "DEFAULTDIR=$Dir", "UID=", "PWD="));

        #open connection as $0

        my $cO = new Win32::ODBC($DSN);

        #run sql

        $cO->Sql("SELECT assetid, ipaddress FROM ip_address where ipaddress like '${result}%'");

        #reset new

        %new = ();

        # Fetch the next rowset

        while($cO->FetchRow()){

                %Data = $cO->DataHash();

                #convert to binary

                $new{inet_aton($Data{ipaddress})} = "$Data{assetid},$Data{ipaddress}";

        }

        #close database

        $cO->Close();

        #remove tempdsn

        Win32::ODBC::ConfigDSN(ODBC_REMOVE_DSN, $DriverType, "DSN=$DSN");

        #clear items

        $Window->ListView->Clear(); 

        foreach (sort keys %new) {

                        my ($asset, $ip ) = split(",",$new{$_});

                $Window->ListView->InsertItem(-text => [ "$asset", "$ip" ] );

        };

}


sub MAIN1 {

        #clear items

        $Window->ListView->Clear(); 

        foreach (sort numeric values %new) {

                        my ($asset, $ip ) = split(",",$_);

                $Window->ListView->InsertItem(-text => [ "$asset", "$ip" ] );

        };

}

sub numeric { $a <=> $b };

sub Radio1_Click {

        if($Window->Radio1->Checked()) {

                $result = "192";

                &MAIN;

        } elsif($Window->Radio2->Checked()) {

                $result = "212.88";

                &MAIN;

        } elsif($Window->Radio3->Checked()) {

                $result = "212.74";

                &MAIN;

        }

}

sub Radio2_Click { Radio1_Click(); }

sub Radio3_Click { Radio1_Click(); }

sub ListView_ColumnClick {

        my $column = shift;

        if ($result ne "" ) {

                if ( $column == 1 ) {&MAIN;}

                if ( $column == 0 ) {&MAIN1;}

        }

       

}

__END__

Regards


Mike Solomon

Technical Manager

Work     01582 831125

Mobile 07941 537 172

email   msolomon@3s-technology.com

==================================================================================

Important: Any views or opinions expressed by the sender do not necessarily

represent those of the 3s Group. This e-mail and any attachment(s)

are intended for the above named only and may be confidential.  If you are not

the named recipient please notify us immediately.  You must not copy or disclose

the contents to any third party.

Internet e-mail is not a fully secure communications medium.  Please take

this into account when sending e-mail to us.

Any attachment(s) to this e-mail are believed to be free from virus, but it

is the responsibility of the recipient to make all the necessary virus

checks.

www.3s-group.com

=========================================================================