Maybe you have different versions of DBD::SQLite installed?

Maybe, I'll check. Although it seems unlikely since all of these systems were rebuilt within the last 6 months. I don't remember when I installed Perl, and DBD::SQLite, but it's less that 6 months. Thanks for the suggestion.

EDIT

OK, you may be on to something here. On the systems where I have the error I am running the last version of DBD::SQLite (ver 1.29). On at least one of the systems where I don't have the error, I am running DBD::SQLite ver 1.25.

I'm still clueless as to what this error means, and how to correct it.

EDIT 2:

So, I rolled back to DBD::SQLite 1.25, and all my code works.

So thanks to Corion, I worked around the problem, but I still don't understand what that error means, or what was wrong with my code ...

Same problem here :-)

Mad_Mac

I've got nothing to say about your problem (as I have't programmed in Windows 7, nor do I use Strawberry perl). I just have a couple random notes:

• When you have a repeated clause in your SQL statement, if it can repeat a variable number of times, you can build the clause dynamically.
• I generally try to keep my embedded SQL stuff looking clean, so I would have added the leading and trailing '%' symbols in the call, rather than in the code. It makes the code a little easier to read (IMHO).
• You don't need to wrap a variable in quotes to use it.

So, I would have written it something like this:

my $SQL = q{SELECT SongTitle, SongPath FROM Songs WHERE };
$SQL .= join('OR', map { '(Songs.Artist LIKE ?)' } @inc_artists);

my $DBO = DBI->connect("dbi:SQLite:$mediaMonkeyPath", "", "")
            or die "Couldn't connect to MediaMonkey - $DBI::errstr\n";

my $STO = $DBI->prepare($SQL);
my $results = $STO->execute( map { "\%$_\%" } @inc_artists);
[download]

...roboticus

When your only tool is a hammer, all problems look like your thumb.

roboticus,

Thanks. Good idea.

Although, I'd also need to include the || concatenation operators for SQL (I think that syntax is peculiar to SQLite). I could do that in the map function, I guess.

Mad_Mac:

Nah, you don't need the concatenation operators. That's why I put the map in there. I think you're getting stuck on making the SQL concatenate the strings together, rather than letting perl do it for you.

Think of it this way, you get a list of artists to search for:

my @inc_artists = ( 'Watson', 'Cline', 'Horne' );
[download]

The first chunk of code would generate an SQL statement that looks like:

SELECT SongTitle, SongPath FROM Songs
WHERE (Songs.Artist LIKE ?)
OR    (Songs.Artist LIKE ?)
OR    (Songs.Artist LIKE ?)
[download]

The map statement with the execute wraps your artist names with the '%' symbols you want, so they end up look like:

 ( '%Watson%', '%Cline%', '%Horne%' );
[download]

Finally, the execute statement would effectively have a statement like:

SELECT SongTitle, SongPath FROM Songs
WHERE (Songs.Artist LIKE '%Watson%')
OR    (Songs.Artist LIKE '%Cline%')
OR    (Songs.Artist LIKE '%Horne%')
[download]

which is what I think you want to feed to SQLite.

...roboticus

When your only tool is a hammer, all problems look like your thumb.