in reply to Re^4: One Question about DBF
in thread One Question about DBF

Sorry again, not enough coffee this morning - should be $dbh->ad_catalog().

Replies are listed 'Best First'.
Re^6: One Question about DBF
by padawan_linuxero (Scribe) on Oct 18, 2007 at 19:22 UTC
    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()
[reply]
[d/l]
[select]
      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]
        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]

In Section Seekers of Perl Wisdom