This is very basic with minimal error handling to get you going but DBI would be better. 
#!c:/perl/bin/perl -w
use strict;
use Win32::OLE;
# Set up a DSN using 
# Settings->Control Panel->ODBC Data Sources

# make a connection
# query the database
# close the connection
my $conn = Win32::OLE->new("ADODB.Connection"); 
$conn->open("myDSN1");
my $id = "103" ; # test value
my $hash_ref = getData($conn,$id);
$conn->close;

# check the result
print $$hash_ref{'username'}." : ".$$hash_ref{'sessionID'};


sub getData {

  my ($conn,$id) = @_; 
  my %data=(); # return values

  # prepare the SQL Statement
  my $sql = qq( SELECT username,sessionID FROM user WHERE id='$id' );
  my $rs = $conn->execute($sql);

  # catch any error
  if  (!$rs) {
    my $errors = $conn->errors();
    print "Errors:\n";
    foreach my $error (keys %$errors) {
        print $error->{Description}, "\n";
    }
    die;
  }

  # get the results
  # use until loop and movenext
  # if expecting >1 record
  # and add id into the %data structure
  #until ($rs->EOF){
    for ('username','sessionID'){
      $data{$_}  = $rs->fields($_)->value,
    }
  # $rs->movenext; 
  #}
  $rs->close;
  return \%data;
}

[download]

poj

In reply to Re: Database (OLE) Hashrefs ? by poj
in thread Database (OLE) Hashrefs ? by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.