Re^6: One Question about DBF

Hi jZed!!!
this is the code :

use DBI;

my $dbhX = DBI->connect("DBI:XBase:/proyecto");
my $dbhA = DBI->connect( 'dbi:AnyData:' );
   $dbhA->ad_catalog('etstx','CSV','etstx.csv');
my $sth = $dbhX->prepare("SELECT * FROM reg501");
$sth->execute();
$dbhA->do("CREATE TABLE etstx AS SELECT * FROM ?",{}, $sth);
[download]

So my cuestion is where do I put the $dbh->ad_catalog()

Comment on Re^6: One Question about DBF Select or Download Code

Replies are listed 'Best First'.
Re^7: One Question about DBF by jZed (Prior) on Oct 18, 2007 at 19:26 UTC
It's in the right place, I just meant that you should replace $dbhA->catalog(...) with $dbhA->ad_catalog(). you should probably also set $dbhA->{RaiseError} to 1 or trap errors on each call.	[reply]
Re^8: One Question about DBF by padawan_linuxero (Scribe) on Oct 18, 2007 at 19:35 UTC
Sorry to bug you so much :o) I did that this is like the code looks like `use DBI; my $dbhX = DBI->connect("DBI:XBase:/proyecto"); my $dbhA = DBI->connect('dbi:AnyData(RaiseError=>1):'); $dbhA->ad_catalog('etstx','CSV','etstx.csv'); my $sth = $dbhX->prepare("SELECT * FROM reg501"); $sth->execute(); $dbhA->do("CREATE TABLE etstx AS SELECT * FROM ?",{}, $sth);` [download] and I run it and it send a very long error message : SQL ERROR: Bad table or column name '?' has chars not alphanumeric or +underscore! DBD::AnyData::db do failed: SQL ERROR: Bad table or column name '?' ha +s chars not alphanumeric or underscore! Can't call method "execute" on an undefined value at C:/Perl/site/lib/ +SQL/Statement.pm line 254. [for Statement "SELECT * FROM ?"] at testdbf.pl line 8. DBD::AnyData::db do failed: SQL ERROR: Bad table or column name '?' ha +s chars not alphanumeric or underscore! Can't call method "execute" on an undefined value at C:/Perl/site/lib/ +SQL/Statement.pm line 254. [for Statement "SELECT * FROM ?"] at testdbf.pl line 8. [download]	[reply] [d/l] [select]
Re^9: One Question about DBF by jZed (Prior) on Oct 18, 2007 at 20:14 UTC
> Sorry to bug you so much :o) Au contraire, I'm sorry to be supplying you with bad examples of my own modules. Please use the code in my updated original node, I tried it, it works. Let me know if this works for you, sorry for all the confusion.	[reply]


The stupid question is the question not asked
	PerlMonks