Nvite nekdo prosim, kde lze nalezt priklady pouziti Win32::OD

[Polak Michal]

> -----Původní zpráva-----
> Od: daemon na pandion.vslib.cz [mailto:daemon na pandion.vslib.cz]za
uživatele
> jindra na vavruska.cz (Jindra Vavruska)
> Předmět: Nvite nekdo prosim, kde lze nalezt priklady pouziti
Win32::ODBC
> --
> Jindra Vavruska (OK1FOU)

Dobry den,

o Win32::ODBC jsem nic neslysel.
Neslo by pouzit DBI ?
Toto je priklad, jak pristupuji na MSSQL, ktery nema/nenasel jsem
nativni ovladace. Nevi o nich nekdo ?

use DBI;
use strict;
my $dbi = DBI->connect ('dbi:ODBC:VIS','','') or die "$DBI::errstr";
#VIS je system DSN, pouziva se Trusted connection via NT
my $sh = $dbi->prepare('select * from Osoba') or die "Can't prepare
statement: $DBI::errstr";;
my $data = $sh->execute || die "Can't execute statement: $DBI::errstr";
while (my @data = $sh->fetchrow_array) { 
  print join ", ", @data, "\n";
};
$sh->finish;
$dbi->disconnect;