Hey AM, I can think of two ways of doing this.

The first would be to actually connect to the DSN and use the "Name" DBI database handle property to find out which database you are connected to. For example:

$dbh = DBI->connect("dbi:ODBC:DSN","user","passwd");
print "Connected to: ", $dbh->{"Name"};

[download]
The other option is a non-perl route and doesn't require connecting to the database at all. You should be able to find out the default database by going through the Windows Registry.

I'm running Windows 2000 and the path to my DSNs is:
HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\
Choose your DSN and there should be a "Database" string value for that key.

HTH

~CubicSpline
"No one tosses a Dwarf!"

In reply to Re: dsn and underlying db by CubicSpline
in thread dsn and underlying db 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.