Вставка нескольких строк в столбец в MySQL с помощью программы Perl

Я хочу вставить несколько строк данных в один столбец, используя один запрос. Эта программа для меньшего количества данных. У меня есть другой.txt файл мониторинга погоды, который имел 4000 строк данных. Я могу вставить по одной информации за раз, но это становится утомительным для стольких значений данных.

1.     use DBI;
2.     use DBD::mysql;
3.     use warnings;


4.     $connection = ConnectToMySql($database);

5.   # Multiple Data inputs
6.      $myquery = "INSERT INTO data(datatime,battery)
7.           VALUES
8.             (?,?),
9.             ('16.01.2013','6.54'), #data corresponding to date and battery
10.             ('17.01.2013','6.42'),
11.             ('21.01.2013','6.24'),
12.             ('22.01.2013','6.21'),
13.             ('24.01.2013','6.17'),
14.             ('25.01.2013','6.13'),
15.             ('28.01.2013','6.00'),
16.             ('29.01.2013','5.97'),
17.             ('30.01.2013','5.94'),
18.             ('01.02.2013','5.84')";
19.    $statement2 = $connection->prepare($myquery);

20.     $statement2->execute($myquery);

21.    #--- start sub-routine
22.    sub ConnectToMySql {
23.       $database ="xxxx";
24.       $user = "XXXX";
25.       $pass = "XXXX";
26.       $host="XXXX";
27.    my $dbh = DBI->connect("DBI:mysql:$database:$host", $user, $pass);
28.    }

Этот код дает мне следующие ошибки:

DBD:: mysql:: st выполнить не удалось: у вас ошибка в синтаксисе SQL; проверьте руководство, соответствующее вашей версии сервера MySQL, чтобы найти правильный синтаксис для использования рядом со строкой 2 в строке C:/Users/User/workspace/DataBaseEntry/DataEntry.pl, строка 20.
DBD:: mysql:: st выполнить не удалось: вызывается с 1 связывающими переменными, когда необходимо 2, в строке C:/Users/User/workspace/DataBaseEntry/DataEntry.pl 40.

Я не могу определить проблему. Это заполнитель. Что я могу сделать, чтобы улучшить это? Я новичок в этих вещах. так что вы можете быть проще. СПАСИБО

Источник

2 ответа

Решение

Вы должны передавать значения данных, которые должны заменить (?, ?) в качестве параметров для execute, Ваш код, как написано, передает только один параметр execute и этот параметр является текстом SQL вашего запроса.

Попробуйте это вместо этого:

$myquery = "INSERT INTO data(datatime,battery) VALUES (?,?)";
my $sth = $connection->prepare($myquery);

$sth->execute('16.01.2013','6.54');
$sth->execute('17.01.2013','6.42');
$sth->execute('21.01.2013','6.24');
$sth->execute('22.01.2013','6.21');
$sth->execute('24.01.2013','6.17');
$sth->execute('25.01.2013','6.13');
$sth->execute('28.01.2013','6.00');
$sth->execute('29.01.2013','5.97');
$sth->execute('30.01.2013','5.94');
$sth->execute('01.02.2013','5.84');
Источник 
$connection->do(<<'EOT');
  INSERT INTO data (datatime, battery)
  VALUES
    ('17.01.2013', '6.42'),
    ('21.01.2013', '6.24'),
    ('22.01.2013', '6.21'),
    ('24.01.2013', '6.17'),
    ('25.01.2013', '6.13'),
    ('28.01.2013', '6.00'),
    ('29.01.2013', '5.97'),
    ('30.01.2013', '5.94'),
    ('01.02.2013', '5.84')
EOT

Я не уверен, что вы пытаетесь сделать с заполнителями здесь.

Кроме того, вы пропали без вести use warnings; use strict;, и вы не должны использовать глобальные переменные везде.

Источник
Другие вопросы по тегам