#!/usr/bin/perl
use strict;
use warnings;
use DBI;
my $dbh = DBI->connect("dbi:MaxDB:....",...);
my $sth1 = $dbh->prepare("Select k1 From t1") or die "preparing:
$DBI::errstr";
my $sth2 = $dbh->prepare("Select k2 From t2 Where k1 = ?") or die
"preparing: $DBI::errstr";
$sth1->execute or die "executing: $DBI::errstr";
my @fields1;
while (@fields1 = $sth1->fetchrow_array) {
$sth2->bind_param(1, $fields1[0]);
$sth2->execute or die "executing: $DBI::errstr";
my @fields2;
while (@fields2 = $sth2->fetchrow_array ) {
print ">>>T2 - $fields1[0] $fields2[0]\n";
}
$sth2->finish;
}
$sth1->finish;
$dbh->disconnect;
--
MaxDB Discussion Mailing List
For list archives: http://lists.mysql.com/maxdb
To unsubscribe: http://lists.mysql.com/[EMAIL PROTECTED]
