Zeoslib, ExecSQL

[Zhbr]

Доброго времени суток.
Ситуация следующая добавляю строки в ZQuery:

Код: Выделить всё

ZQuery2.SQL.Add(format('INSERT INTO oc_category_to_store (category_id, store_id) VALUES (''%d'', ''0'');',[temp^.category_id]));\0

Добавив все необходмиые запросы выполняю:

Код: Выделить всё

 ZQuery2.ExecSQL; \0

Выскакивает исключение - errcode: 1064, error: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'INSERT INTO oc_category_to_store (category_id, store_id) VALUES ('900001126', '0' at line 2

Никак не пойму, если для каждой строки отдельно выполнять ExecSQL все окей, сформированный TStringList без проблем через консоль выполняется корректно. Конечно можно и каждую строку отдельно выполнять, но хотелось бы понять почему несколько строк сразу не могу импортировать.
Lazarus 1.6, на локальной машине mariadb10.1 на удаленной mysql 5.5

[Little_Roo]

ZQuery2.ExecSQL; \0
? и это что?

[vitaly_l]

Покажите как Вы несколько строк отправляете?

[Zhbr]

ZQuery2.ExecSQL; \0
? и это что?

Это я из редактора Лазаруса вставлял. Незнаю почему он добавил. В исходниках этого нет

Добавлено спустя 2 минуты 2 секунды:

Покажите как Вы несколько строк отправляете?

В цикле через ZQuery.sql.add(), затем после цикла execsql.

[sign]

Конкретно кусок текста программы, а не слова о программе.

[Zhbr]

Добавляю вот так:

Код: Выделить всё

  temp:=FCategory;
  while temp^.Next <> nil do
      begin
       s:=False;
       ZQuery1.First;
       while not ZQuery1.EOF do
          begin
           if ZQuery1.FieldByName('category_id').AsInteger = temp^.category_id then s:=True;
           ZQuery1.Next;
          end;
      if not s then ZQuery2.SQL.Add(format('INSERT INTO oc_category_to_store (category_id, store_id) VALUES (''%d'', ''0'');',[temp^.category_id]));
       temp:= temp^.Next;
      end;
   ZQuery2.ExecSQL;
   ZQuery2.SQL.Clear;

[kav]

метод ZQuery2.ExecSQL выполняет ОДИН SQL запрос а не несколько сразу.
Если бы он назывался ZQuery2.ExecSQLScript или как-то похоже тогда - да
можно было бы и несколько запросов сразу.

[Zhbr]

Да, Вы правы. Как жаль что по zeos доков не осталось. А может кто знает в zeos нет ли встроенного метода выполнения всех запросов из TSringList или нужно свой метод написать?

[vitaly_l]

А может кто знает в zeos нет ли встроенного метода выполнения всех запросов из TSringList или нужно свой метод написать?

Вообще Вы изначально неправильно делаете.

Вам нужно сделать ОДИН ExecSQL запрос, а вот отправлять в нём, вставку всех 1000 значений. Что-то типа такого:

Код: Выделить всё

ZQuery2.SQL.Add( 'INSERT INTO oc_category_to_store (category_id, store_id) VALUES ('111', ''0''),('222', ''0''),('333', ''0''),('444', ''0''),('555', ''0'');' );
ZQuery2.ExecSQL;

либо можно в одном запросе делать вот так:

Код: Выделить всё

SQLstring := '
INSERT INTO oc_category_to_store (category_id, store_id) VALUES ('111', ''0'');
INSERT INTO oc_category_to_store (category_id, store_id) VALUES ('222', ''0'');
INSERT INTO oc_category_to_store (category_id, store_id) VALUES ('333', ''0'');
INSERT INTO oc_category_to_store (category_id, store_id) VALUES ('444', ''0'');
INSERT INTO oc_category_to_store (category_id, store_id) VALUES ('555', ''0'');
';

ZQuery2.SQL.Add( SQLstring );
ZQuery2.ExecSQL;

Принцип примерно понятен думаю, но лучше почитайте доку по SQL запросам - там всё есть.



.

[Zhbr]

Понял, благодарю.

[svk12]

А может кто знает в zeos нет ли встроенного метода выполнения всех запросов из TSringList или нужно свой метод написать?

Компонент TZSQLProcessor.

[Zhbr]

А может кто знает в zeos нет ли встроенного метода выполнения всех запросов из TSringList или нужно свой метод написать?

Компонент TZSQLProcessor.

Спасибо добрый человек , это то что необходимо.
Если не трудно ниукого документации по zeos'у нет? Офф сайт давно у них уже в ауте.

либо можно в одном запросе делать вот так:
КОД: ВЫДЕЛИТЬ ВСЁ

SQLstring := '
INSERT INTO oc_category_to_store (category_id, store_id) VALUES ('111', ''0'');
INSERT INTO oc_category_to_store (category_id, store_id) VALUES ('222', ''0'');
INSERT INTO oc_category_to_store (category_id, store_id) VALUES ('333', ''0'');
INSERT INTO oc_category_to_store (category_id, store_id) VALUES ('444', ''0'');
INSERT INTO oc_category_to_store (category_id, store_id) VALUES ('555', ''0'');
';

ZQuery2.SQL.Add( SQLstring );
ZQuery2.ExecSQL;

Кстати так тоже нельзя, ошибка аналогичная.

[Ism]

Если нужно много insert values используйте Connection.ExecuteDirect

Если не трудно ниукого документации по zeos'у нет? Офф сайт давно у них уже в ауте.

http://zeoslib.sourceforge.net/

[vitaly_l]

Кстати так тоже нельзя, ошибка аналогичная.

Странно, что не работает, но верю (я по аналогии советовал).
А первый вариант работает ?

.

[sign]

Я работаю на компонентах лазаруса (MySQL).
Делаю вот так:

Код: Выделить всё

    
var qTmp1: TSQLQuery;
...
    qTmp1.SQL.BeginUpdate; 
    qTmp1.SQL.Text := 'INSERT INTO ' + CListBase[Param.Base] + '(Un, DateOp, Nakl, UNP, Firm, Article, CountBuy, Promo, Oper, Retail) VALUES ';
    P := V.RootNode^.FirstChild;
    while Assigned(P) do begin
      Data := V.GetNodeData(P);
...
      qTmp1.SQL.Add(Format('(%s, "%s", %s, %s, %d, %s, %d, %d, %d, %d),',
          [sUn, SD, SN, Data^.UNPStr, Data^.FirmInt, Data^.ArticleStr, Data^.CountBuy, Ord(Data^.Is_Promo), 0, Data^.Retail]));
      P := V.GetNextNoInit(P);
    end;
    MakeEndInsert(qTmp1.SQL);
    qTmp1.SQL.EndUpdate;
    qTmp1.ExecSQL;

Процедура MakeEndInsert убирает последнюю запятую