Отправить много данных в MySQL

[Adminisrator]

я чисто для упрощения поиска проблемы присваиваю текст:

AdoQueryMySql.Parameters.ParamByNam e(':ArtikelID').Value :='1';

На самом деле вместо '1' присваиваются значения

ADOQueryMSSQL.FieldByName('ArtikelID').value

чтобы было так:

AdoQueryMySql.Parameters.ParamByNam e(':ArtikelID').Value :=ADOQueryMSSQL.FieldByName('Artike lID').value;

[Adminisrator]

Сообщение от Adminisrator

Не пойму в чём проблема. С отладкой тоже не пойму...

Так как быть?

[Serge_Bliznykov]

Сообщение от Adminisrator

Цитата:
Строковые значения в параметры для них зачем?
Не совсем понял вопрос.

 AdoQueryMySql.Parameters.ParamByName(':ArtikelID').Value       :=1;
...
  AdoQueryMySql.Parameters.ParamByName(':Quantity').Value        := 9;

но это так, мелочи.

проблема ВОТ:

             AdoQueryMySQL.SQL.Clear;
             AdoQueryMySQL.SQL.Add('INSERT INTO '+ db +'.'+ dbtable +'(`ArtikelID`, `ManufacturerName`,             ');
             AdoQueryMySQL.SQL.Add('`ManufacturerPN`, `Supplier`, `SupplierPN`, `Description`, `PhotoURL`,           ');
             AdoQueryMySQL.SQL.Add('`Price`, `Quantity`, `Currency`, `Lagerplatz`)                                   ');
             AdoQueryMySQL.SQL.Add(' VALUES (:ArtikelID, :ManufacturerName, :ManufacturerPN, :Supplier, :SupplierPN, ');
             AdoQueryMySQL.SQL.Add(' :Description, :PhotoURL, :Price, :Quantity, :Currency, :Lagerplatz)             ');
             AdoQueryMySql.Open;

p.s. скажите честно, а Вы понимаете смысл этих всех Refresh, Open, Close, ExecSQL ? для чего они нужны и как их использовать?

[Аватар]

Вместо типа variant для числового поля конкретный тип присваивать в параметр или числовую константу, а не символьную:

AdoQueryMySql.Parameters.ParamByName(':ArtikelID').Value:=ADOQueryMSSQL.FieldByName('ArtikelID').Value;
AdoQueryMySql.Parameters.ParamByName(':ArtikelID').Value:=ADOQueryMSSQL.FieldByName('ArtikelID').AsInteger;
или так, если в лоб
AdoQueryMySql.Parameters.ParamByName(':ArtikelID').Value:='1';
AdoQueryMySql.Parameters.ParamByName(':ArtikelID').Value:=1;

В строковое поле:

AdoQueryMySql.Parameters.ParamByName(':ManufacturerName').Value:=ADOQueryMSSQL.FieldByName('ManufacturerName').value;
AdoQueryMySql.Parameters.ParamByName(':ManufacturerName').Value:=ADOQueryMSSQL.FieldByName('ManufacturerName').AsString;

[Adminisrator]

Сообщение от Serge_Bliznykov

AdoQueryMySql.Open;

Упустил из виду. Теперь удалил.

Сообщение от Serge_Bliznykov

Вы понимаете смысл этих всех Refresh, Open, Close, ExecSQL ?

понимаю

Сообщение от Serge_Bliznykov

для чего они нужны

понимаю

Сообщение от Serge_Bliznykov

как их использовать?

думаю, что понимаю


Теперь вылазит:

AdoQueryMySql: Parameter 'ArtikelID' not found.

Я так понимаю,

AdoQueryMySql.Parameters.ParamByName(':ArtikelID').Value

что тут в запрос MySQL для поля ArtikelID я передаю значение Value.

[Adminisrator]

Сообщение от Аватар

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

Я пробовал ранее работать с Variant, но у меня было очень много ошибок с которыми я тупо не справился убив много времени.

Тогда давайте посмотрим на оригинал:

AdoQueryMySql.Parameters.ParamByName(':ArtikelID').Value       :=ADOQueryMSSQL.FieldByName('ArtikelID').value;

Тут для AdoQueryMySql присваивается ADOQueryMSSQL.

[Adminisrator]

Поменял

AdoQueryMySql.Parameters.ParamByName(':ArtikelID').Value       :=ADOQueryMSSQL.FieldByName('ArtikelID').AsString;

Проблема осталась:

AdoQueryMySql: Parameter 'ArtikelID' not found.

[Serge_Bliznykov]

Сообщение от Adminisrator

Теперь вылазит:
AdoQueryMySql: Parameter 'ArtikelID' not found.

двоеточие надо убрать:

                       AdoQueryMySql.Parameters.ParamByName('ArtikelID').Value       :=
                       AdoQueryMySql.Parameters.ParamByName('ManufacturerName').Value:=
                       AdoQueryMySql.Parameters.ParamByName('ManufacturerPN').Value  :=
                       AdoQueryMySql.Parameters.ParamByName('Supplier').Value        :=
                       AdoQueryMySql.Parameters.ParamByName('SupplierPN').Value      :=
                       AdoQueryMySql.Parameters.ParamByName('Description').Value     :=
                       AdoQueryMySql.Parameters.ParamByName('PhotoURL').Value        :=
                       AdoQueryMySql.Parameters.ParamByName('Price').Value           :=
                       AdoQueryMySql.Parameters.ParamByName('Quantity').Value        :=
                       AdoQueryMySql.Parameters.ParamByName('Currency').Value        :=
                       AdoQueryMySql.Parameters.ParamByName('Lagerplatz').Value      :=

[Adminisrator]

Сообщение от Serge_Bliznykov

двоеточие надо убрать

Точно!
Протупил...

[Adminisrator]

Заработало!

Ребята ВЫ - СУПЕР!

Спасибо!