RE: Quirky problem with DBI

[pvandeursen]

Hi Ulrike,

Try the following.

use DBI ;
use DBD::ODBC qw(:sql_types) ;

$sth->bind_param(1, $conc_name, { TYPE => SQL_LONGVARCHAR });
$sth->bind_param(2, $definition, { TYPE => SQL_LONGVARCHAR });

Greetings,
Paul.



                                                                                       
                                                       
                    Ulrike Schmidt                                                     
                                                       
                    <ulrike.schmidt@uni-       To:     [EMAIL PROTECTED]              
                                                       
                    erfurt.de>                 cc:                                     
                                                       
                                               Subject:     RE: Quirky problem with 
DBI                                                       
                    18-09-2002 12:30                                                   
                                                       
                                                                                       
                                                       
                                                                                       
                                                       




  Hello,

I have a similar problem to Brad some days ago, but the solution that
worked for him leads to new error messages for me. I am trying to insert
values into an Access database, "conc_name" and "definition" are of type
"Memo". The error message I get is:

[Microsoft][ODBC Microsoft Access Driver]COUNT-Feld ungültig.
(SQL-07001)(DBD: st_execute/SQLExecute err=-1) at PerlModule/Database..pm
line 110.

Here an excerpt of my code with the possibly relevant information:

    use DBI qw(:sql_types);
    my $dbh = DBI->connect("DBI:ODBC:MLTD",
                {
                'RaiseError' => 1,
                'LongReadLen' => 2048,
                'LongTruncOk' => 1
                }
                );

    my $sql .= "INSERT INTO tbl_concepts_wn
(conc_name,definition,source) VALUES (?,?,?)";
    my $sth = $dbh->prepare($sql);
    $sth->bind_param(1, $conc_name, SQL_LONGVARCHAR);
    $sth->bind_param(2, $definition, SQL_LONGVARCHAR);
    $sth->execute or die $dbh->errstr;

I also tried the following variation:

    $sth->bind_param(1, $conc_name, DBI::SQL_LONGVARCHAR);
    $sth->bind_param(2, $definition, DBI::SQL_LONGVARCHAR);

What could I be doing wrong?

TIA, Uli