Font
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]3363[/thread]

Alle Tabellen selektieren: Wie ?



<< >> 3 entries, 1 page
havi
 2003-10-21 12:10
#35608 #35608
User since
2003-08-04
2036 articles
BenutzerIn
[Homepage]
user image
Hi!

Hab folgendes Problem!

Ich hab eine Access-Datenbank mit 50 Tabellen!

Nun will ich alle Tabellen in dieser Datenbank selektieren!

Hier mein Code:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $mdb_file = "d:\\access.mdb";

my $connection_string = q{;Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:System database=d:\\system.mdw};

my $cn = DBI->connect("dbi:ADO:Data Source=".$mdb_file.$connection_string, "");

my $alles = $cn->selectall_arrayref("SELECT * FROM SchluesselwortDasIchNichtWeiss");

foreach my $row ( @{$alles} )  {
  print join ("\t", @{$row}), "\n";
}

1;


Kann mir jemand helfen ?

Gruss\n\n

<!--EDIT|havi|1066723845-->
Strat
 2003-10-30 02:19
#35609 #35609
User since
2003-08-04
5246 articles
ModeratorIn
[Homepage] [default_avatar]
da muss man in der from-clause die Namen der Tabellen angeben, z.B.
SELECT * FROM table1, table2, table3
und damit du eine zuordnung zwischen den tabellen hast, solltest du sie irgendwie verknuepfen, z.B.
SELECT * FROM table1, table2, table3 WHERE table1.id = table2.id AND table1.id = table3.id

wenn du gleiche feldernamen in verschiedenen Tabellen hast, wird SQL da jedoch ein wenig durcheinanderkommen. dann kannst du aliasnamen vergeben, z.B:
SELECT table1.id AS id1, table2.id AS id2, ...weitere spaltennamen... FROM table1, table2, table3 WHERE table1.id = table2.id AND table1.id = table3.id
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
havi
 2003-10-30 10:09
#35610 #35610
User since
2003-08-04
2036 articles
BenutzerIn
[Homepage]
user image
Vielen Dank!
Genau das hab ich gesucht!

Gruss
<< >> 3 entries, 1 page



View all threads created 2003-10-21 12:10.