Re: Oracle to DBF

From: John D Groenveld <groenvel_at_cse.psu.edu>
Date: 29 Jun 1999 12:01:59 -0400
Message-ID: <7laqln$kd6$1_at_grolsch.cse.psu.edu>

Its easy in Perl.
John
groenveld_at_acm.org

#!/usr/bin/perl -w

use strict;
use DBI;

my $xbase_dbh = DBI->connect("DBI:XBase:/tmp",{RaiseError=>1,AutoCommit=>1});
$xbase_dbh->do("

		CREATE TABLE emp (
			ename		char(10),
			job		char(9)
		)
	");
my $xbase_sth = $xbase_dbh->prepare("INSERT INTO emp VALUES (?, ?)");
my($ename, $job);

my $oracle_dbh = DBI->connect("dbi:Oracle:","scott","tiger",{RaiseError=>1}); my $oracle_sth = $oracle_dbh->prepare("SELECT ENAME, JOB FROM EMP");
$oracle_sth->execute;
$oracle_sth->bind_columns(\$ename, \$job);
while ($oracle_sth->fetch) {

    $xbase_sth->execute($ename, $job);
}
$xbase_dbh->disconnect;
$oracle_sth->finish;
$oracle_dbh->disconnect;
Received on Tue Jun 29 1999 - 18:01:59 CEST