Re: Porting from SQL Server to MySQL

Thanks for posting this, it is quite helpful. However, it could be made more easily modifiable by abstracting out the table name and its field names. The following is an untested and incomplete "re-write" of your script. This should help create a stronger basis for this tool. ;)

# notice use of RaiseError - goodbye DBI::errstr!
my $my_sql = DBI->connect($dsn, 'user', '1234', {RaiseError=>1});

# replace these to fit your needs - or better, use a Getopt:: module!
my $table = 'OTHER_TABLE';
my @field = qw(ID description file_data);

$rs->Open("SELECT * FROM $table", $db_connection, adOpenKeySet);

# Prepare our insert
my $insert_sql = "INSERT INTO $TABLE ("
   . join(',',@field)
   . ') VALUES ('
   . join(',',map '?',@field) . ')'
;
my $sth = $my_sql->prepare($insert_sql);

while (!$rs->EOF)
{
    $sth->execute( map $rs->{$_}{Value}, @field );
    $rs->MoveNext();
}
[download]

Hope this helps. :)

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Comment on Re: Porting from SQL Server to MySQL Download Code