Re^2: Help needed for Win32::ODBC

Replies are listed 'Best First'.
Re^3: Help needed for Win32::ODBC by terra incognita (Pilgrim) on Oct 22, 2004 at 15:08 UTC
You may want to do a DSN less connection instead of relying on a preconfigured DSN. This allows you to move and run this script to any machine with the DB Client. `use warnings; use strict; use Win32::ODBC; my $DSN = "driver={SQL Server};server=myservername;database=mydb;uid=s +a;pwd=xxxx"; if (!(my $input = new Win32::ODBC($DSN))){ print "Failure opening connection. \n\n"; exit(); }else{ print "Success (connection #", $input->Connection(), ")\n\n"; }` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Help needed for Win32::ODBC
by terra incognita (Pilgrim) on Oct 22, 2004 at 15:08 UTC

use warnings;
use strict;
use Win32::ODBC;

my $DSN = "driver={SQL Server};server=myservername;database=mydb;uid=s
+a;pwd=xxxx";

if (!(my $input = new Win32::ODBC($DSN))){
        print "Failure opening connection. \n\n";
        exit();
    }else{
        print "Success (connection #", $input->Connection(), ")\n\n";
}
[download]

[reply]
[d/l]