工作MySQL查询在Perl中失败

Question

我有一个查询,当从phpMyAdmin中运行时,它可以工作,但是当集成在用Perl编写的网站中时,它会失败并抛出错误.两者都通过连接到同一个数据库运行,并且在集成到网站时从编码/格式化方面运行,所有都是正确的并且与其他查询相同.

任何帮助都将非常感谢 - 谢谢!

MySQL查询:

CREATE TEMPORARY TABLE tmp_lecture_days (
timeslot_id int(50)
);
INSERT INTO tmp_lecture_days (timeslot_id)
SELECT DISTINCT tab_appointment.timeslot_id
FROM tab_appointment WHERE lecture_id = '1115';
SELECT COUNT(timeslot_id)
FROM tmp_lecture_days;

Perl中的MySQL查询:

            $query
                = &statement_database(
                    "CREATE TEMPORARY TABLE tmp_lecture_days (
                    timeslot_id int(50)
                    );
                    INSERT INTO tmp_lecture_days (timeslot_id)
                    SELECT DISTINCT tab_appointment.timeslot_id
                    FROM tab_appointment WHERE lecture_id = '1115';
                    SELECT COUNT(timeslot_id)
                    FROM tmp_lecture_days;");

             my ($days) = $query->fetchrow_array;

错误日志:

7.3.2011 10:14:12错误您的SQL语法有错误; 检查与您的MySQL服务器版本对应的手册,以便在'附近使用正确的语法; 7.3.2011 10:14:12错误INSERT INTO tmp_lecture_days(timeslot_id)7.3.2011 10:14:12错误SELECT DISTINCT tab_appoi'在第3行

Answer 1

如果您使用DBI运行查询,则不允许向其中放入多个语句.尝试将CREATE TABLE ...一个查询INSERT ...放入另一个查询中.