9 Einträge, 1 Seite |
1
2
$dbh = DBI->connect("dbi:ODBC:MYANGEB.DB", '','') or die "$DBI::errstr\n";
my @names = $dbh->tables; #veraltet
system("c:/mnha/DATA/MYANGEB.DB");
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/Perl/bin/perl
use strict;
use Win32::ODBC;
use Data::Dumper;
my $db = undef;
# Win32::ODBC #
$db = new Win32::ODBC("MYANGEB.DB");
my %Felder = $db->DataHash;
print Data::Dumper::Dumper( %Felder );
END {
if( defined $db ){
$db->Close();
}
}
Quote$VAR1 = 'REMARKS';
$VAR2 = undef;
$VAR3 = 'TABLE_CAT';
$VAR4 = undef;
$VAR5 = 'TABLE_NAME';
$VAR6 = undef;
$VAR7 = 'TABLE_SCHEM';
$VAR8 = undef;
$VAR9 = 'TABLE_TYPE';
$VAR10 = undef;
9 Einträge, 1 Seite |