The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Perl-MySQL"
Вариант для распечатки  
Пред. тема | След. тема 
Форумы WEB технологии (Public)
Изначальное сообщение [Проследить за развитием треда]

"Perl-MySQL"  
Сообщение от freevict on 27-Мрт-07, 14:28 
есть SELECT и вывод из таблицы:

print"<form action='/cgi-bin/zapros.pl' method='post'>";
while (my @row = $sth1->fetchrow_array)
{
print"<input type='text' name='row' value='$row[0]">
print"<input type='text' name='row' value='$row[1]">
print"<input type='text' name='row' value='$row[2]">
print"<input type='text' name='row' value='$row[3]">
}
print</form>
=======
Теперь в zapros.pl надо делать INSERT в другую таблицу:
принимаю данные из формы:
my $cit = new CGI;
my @p=$cit->param('row');
потом:
$query1="insert into table2(field1,field2,field3,field4) values (?,?,?,?)";
$sth1=$dbh->prepare($query1);
$sth1->execute(@p);
========
Ругается, подскажите pls что я делаю неправельно, заранее благодарен

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

 Оглавление

  • Perl-MySQL, Giro, 14:58 , 27-Мрт-07, (1)  
    • Perl-MySQL, freevict, 15:14 , 27-Мрт-07, (2)  
      • Perl-MySQL, Koba LTD, 10:14 , 28-Мрт-07, (6)  
  • Perl-MySQL, XAnder, 15:45 , 27-Мрт-07, (3)  
    • Perl-MySQL, freevict, 15:48 , 27-Мрт-07, (4)  
      • Perl-MySQL, A, 18:13 , 27-Мрт-07, (5)  

Сообщения по теме [Сортировка по времени, UBB]


1. "Perl-MySQL"  
Сообщение от Giro on 27-Мрт-07, 14:58 
>Ругается, подскажите pls что я делаю неправельно, заранее благодарен

А как именно ругается нельзя было привести?

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

2. "Perl-MySQL"  
Сообщение от freevict on 27-Мрт-07, 15:14 
>>Ругается, подскажите pls что я делаю неправельно, заранее благодарен
>
>А как именно ругается нельзя было привести?


меня интересует если я правельно делаю, а ругается :
execute falled:called with 56 bind variables when 7 are needen

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

6. "Perl-MySQL"  
Сообщение от Koba LTD on 28-Мрт-07, 10:14 
>>>Ругается, подскажите pls что я делаю неправельно, заранее благодарен
>>
>>А как именно ругается нельзя было привести?
>
>
>меня интересует если я правельно делаю, а ругается :
>execute falled:called with 56 bind variables when 7 are needen
учимся приблезительно переводить сообщения об ошибках
->выполнение провалено:вызвано(добавлено) 56 значений(вариаций) когда нужно 7

Пояснения у тебя навероное гдето используються в значениях переменных для запроса запятые или массив/хеш и ты из вставляешь в запрос без одиночных ковычек, при формировании строчи, т.к. запятая (или разделитель елементов) воспринимаються в запросе как синтаксис запроса, а не значения переменной и получаеться что в место того чтобы добавить 4 значения ты вставляешь 56 :)
совет при формировании sql запроса ВСЕГДА заключай переменные в одиночные ковычки, не навредит точно, а от многих глюков спасет.

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

3. "Perl-MySQL"  
Сообщение от XAnder (ok) on 27-Мрт-07, 15:45 
>print"<input type='text' name='row' value='$row[0]">
>print"<input type='text' name='row' value='$row[1]">
>print"<input type='text' name='row' value='$row[2]">
>print"<input type='text' name='row' value='$row[3]">

С кавычками здесь напутали.

>print</form>

А тут кавычек вообще нет.

Если на это ругается, то правильно ругается.

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

4. "Perl-MySQL"  
Сообщение от freevict on 27-Мрт-07, 15:48 
>>print"<input type='text' name='row' value='$row[0]">
>>print"<input type='text' name='row' value='$row[1]">
>>print"<input type='text' name='row' value='$row[2]">
>>print"<input type='text' name='row' value='$row[3]">
>
>С кавычками здесь напутали.
>
>>print</form>
>
>А тут кавычек вообще нет.
>
>Если на это ругается, то правильно ругается.


В скрипте все правельно с ковычками, не на это ругается

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

5. "Perl-MySQL"  
Сообщение от A on 27-Мрт-07, 18:13 
точно!! лажа с кавычками :-)))
Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру