note
reneeb
Can I do the binding dynamically depending on the datatype of the field??
<br /><br />
I tried<br />
<code>
#! /usr/bin/perl
use strict;
use warnings;
use DBI ':sql_types';
my $dbh = DBI->connect('DBI:ODBC:driver=Microsoft Access-Treiber (*.mdb);dbq=db1.mdb',user,pass);
my $col = 'Testcol';
my $statement = "INSERT INTO table (`$col`) VALUES(?)";
my $coltype = get_type($col,$dbh);
$coltype = 'SQL_'.$coltype;
my $sth = $dbh->prepare($statement);
for(2..1000){
my $var = <STDIN>;
chomp $var;
$sth->bind_param(1,$var,$coltype);
$sth->execute($var) or die $dbh->errstr();
}
sub get_type{
my ($name,$dbh) = @_;
my ($sthcolinfo) = $dbh->column_info(undef,undef,undef,$name);
my $hashref = $sthcolinfo->fetchrow_hashref();
return $hashref->{TYPE_NAME};
}</code>
<br /><br />
But I got the following errormessage:<br />
<code>DBI::st=HASH(0x3e9c2dc)->bind_param(...): attribute parameter 'SQL_INTEGER' is not a hash ref at C:/access.pl line 19</code>
491231
491253