Error of DBD::SQLite::db do failed: near ",": syntax error at C:\

[Wiinie]

Hi,
I have this error when i try to insert some values into the database via perl script.

there is my code

sub addWords {
	my $self = shift;
	my $wordsRef = shift;
	my @words = \$wordsRef;
	my $language = Language->new();
	my $classId = undef;
	my $wordId = undef;
	if (!@words || !$language){
		die "addWords invalid arguments.";
	}
	my $languageId = $language->id();
	my $db = DBI->connect("dbi:SQLite:$dbFile","","",{RaiseError =>1, AutoCommit => 1, sqlite_unicode => 1}) or die "Unable to connect: $DBI::errstr\n"; 
	foreach my $word (@words){ 
		$db->do("INSERT INTO words(wordId, languageId, word, classId) VALUES ($wordId, $languageId, \"$word\", $classId);"); 		
	}
	$db->disconnect or warn "Disconnection failed: $DBI::errstr\n";;
}

Please help

[RonB]

Start by changing:

my @words = \$wordsRef;

To:

my @words = @$wordsRef;

Next, instead of the doing the 'do' statement, it would be better to do a prepare statement prior to the foreach loop and use a placeholder, then do an execute statement in the loop.

    my $sth = $db->prepare( "INSERT INTO words(wordId, languageId, word, classId) VALUES ($wordId, $languageId, ?, $classId)" );
    
    foreach my $word (@words) { 
        $sth->execute($word);
    }

[Rabbit]

It's been a while but I'm pretty sure SQLite uses single quotes and not double quotes to demarcate strings.

[miller]

Winnie,

Address your first question please before asking a related one, or at least continue in the same thread:

http://bytes.com/topic/perl/answers/912053-error-cant-use-string-test-array-ref-while-strict-refs-use

- Miller