1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#perl -w
# $Id: contest.pl 11680 2008-08-28 08:23:27Z mjevans $
use DBI;
# my $DSN = 'driver=Microsoft Access Driver (*.mdb);dbq=\\\\cheese\\g$\\perltest.mdb';
my $DSN = 'Driver={SQL Server};SERVER=SQL1;';
my $dbh = DBI->connect("dbi:ODBC:$DSN",undef,undef,{RaiseError=>1})
or die "$DBI::errstr\n";
my %InfoTests = (
'SQL_DRIVER_NAME', 6,
'SQL_DRIVER_VER', 7,
'SQL_CURSOR_COMMIT_BEHAVIOR', 23,
'SQL_ALTER_TABLE', 86,
'SQL_ACCESSIBLE_PROCEDURES', 20,
);
foreach $SQLInfo (sort keys %InfoTests) {
$ret = 0;
$ret = $dbh->func($InfoTests{$SQLInfo}, GetInfo);
print "$SQLInfo ($InfoTests{$SQLInfo}):\t$ret\n";
}
$dbh->disconnect;
|
