#/usr/bin/perl -w
use strict;
use DBI;

my $DSN = 'dbi:ODBC:driver={SQL Server};server={myserver};database={my
+db}';
my $dbh = DBI->connect($DSN, undef, undef) or die "$DBI::errstr\n";

my $gSQLCmd = 'SELECT col1, col2, col3 FROM mytable';
my $gSQLHandle = $dbh->prepare
  (
    $gSQLCmd
  ) || die 'Error with SQL statement ['.$DBI::errstr.' - '.$DBI::err.'
+]';

$gSQLHandle->execute() || die 'Error with SQL statement ['.$DBI::errst
+r.' - '.$DBI::err.']';

while (my @gFields = $gSQLHandle->fetchrow_array)
{
  print 'Row: ',$gFields[0],"\t",$gFields[1],"\t",$gFields[2],"\n";
}

$dbh->disconnect;
[download]

The code will work a little better if you replace myserver, mydb, and mytable with ones from your actual system. *Smiles* Also, please note that this code connects to the database without a userid or password -- it is using my domain account for authorization.

Update I forgot to give credit where credit is due -- my code is based on the information from DBD::ODBC Connecting without DSN from Win32 by sparkyichi

LastError() is your friend. Use it as all is often revealed.

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

Hi tachyon. thanks so much for your time & interest... are you talking about this:

print Win32::OLE->LastError(), "\n";
[download]

because if you are, it unfortunately returns NOTHING! thanks, michael

You can also use Win32::GetLastError() which is included in core perl. To get the text based version of that, Win32::FormatMessage(Win32::GetLastError()) or "$^E"

use Win32::TieRegistry
[download]

## create_dsn($dsn, $pointer, @servers)
## Creates a DSN named $dsn pointing to $pointer on servers named @ser
+vers
sub create_dsn {
    my $dsn = shift(@_);
    my $pointer = shift(@_);
    my @servers = @_;
    
    foreach my $server (@servers) {
        my $ref = $Registry->{"//$server/LMachine/Software/ODBC/ODBC.I
+NI/"};

        if (not exists $ref->{"$dsn/server"}) {
        
            print "$server: Creating DSN $dsn, setting to $pointer... 
+";
            
            $ref->{"$dsn/"} = {
                'Description' => "",
                'Server' => "$pointer",
                'Database' => "$dsn",
                'Driver' => "C:\\WINNT\\System32\\SQLSRV32.dll",
                'OEMTOANSI' => "YES",
                'UseProcForPrepare' => "YES",
                'TrustedConnection' => "",
            };
            
            print " done\n";
            
            print "$server: Updating ODBC Data Sources list... ";
            
            $ref->{"ODBC Data Sources/$dsn"} = "SQL Server";
            
            print " done\n";
                
        } else {
        
            print "$server: DSN $dsn already exists!\n";
        }
                
    }
    print "\n\tRemember to edit the new DSNs with username and passwor
+d!\n";
}
[download]

Hi Ibanix!!!! Thanks for the code. I'm guessing if i can't get the Win32::ODBC::ConfigDSN to work, i'll probably do something similar (edit the registry). thanks again. michael