MySQL Delphi MyDAC вызов хранимой процедур

[xxbesoxx]

Здравствуйте ребята. Пришлось работать MySQL через MyDAC проблема в том что не магу вызов процедур и передать его параметр ! Вот смотрите

1. Создаю таблица

create table tab222
(
 id int not null auto_increment,
 dat date, 
 naimenovan nvarchar(50),
primary key(id)
);

2. процедур на INSERT

DELIMITER $$
create procedure Tab22Inserted
(
 in pdat date, 
 in pnaimenovan nvarchar(50)
)
begin
  insert into tab222(dat, naimenovan)
  values (pdat, pnaimenovan);
commit;
end
$$

3. вызов процедур делаю через MyStoredProc1

procedure TForm1.Button1Click(Sender: TObject);
begin
 with  MyStoredProc1 do
   begin
    Params.Clear;
    StoredProcName := 'Tab22Inserted';
    PrepareSQL;
    ParamByName('pdat').Value := DateTimePicker1.Date;
    ParamByName('pnaimenovan').Value := Edit1.Text;
    ExecSQL;
    MyQuery1.Close;
    MyQuery1.SQL.Text := 'select * from tab222';
    MyQuery1.Open;
   end;
end;

Выводить ошибка ! Пожалуйста ребята скажите что я делаю неправильно ?

[xxbesoxx]

Так тоже не работает . Что ему не нравится ?

    MyStoredProc1.Params.Clear;
    MyStoredProc1.StoredProcName := 'Tab22Inserted';
    MyStoredProc1.Prepare;
    MyStoredProc1.ParamByName('pdat').AsDateTime := DateTimePicker1.Date;
    MyStoredProc1.ParamByName('pnaimenovan').AsString := Edit1.Text;
    MyStoredProc1.ExecSQL;
    MyQuery1.Close;
    MyQuery1.SQL.Text := 'select * from tab222';
    MyQuery1.Open;

[Stilet]

Кодировка ему не нравится. То что в Edit1 вписано. Перекодировать видимо придется с помошью TEncoding. Выясни только какая кодировка в базе установлена.

[xxbesoxx]

Stilet спасибо что уделили мне время . Если я правильно помня кодировка надо посмотреть в БД и потом такой кодировка установить на MyConnection1 вот смотрите что не так ?

из MySQL Workbench вызываю и передаю параметр так. Все работает и Русский отображает нормально кодировка utf-8 но я думаю что из Delphi я допускаю ошибка

call Tab22Inserted(sysdate(), 'Чай')

[Serge_Bliznykov]

угу. согласен с тем, что проблема с кодировкой!

боюсь попасть пальцем в небо, но рискну предположить, что
nvarchar ожидает на входе Unicode строку, а приходит Edit1.Text - ansistring (у Вас же Delphii версии менее 2009)...

1) что происходит, если в Edit1 записать ИСКЛЮЧИТЕЛЬНО латиницу? Есть ли ошибка и если есть, какая?

2) попробуйте заменить параметер функции на varchar:

DELIMITER $$
create procedure Tab22Inserted
(
 in pdat date, 
 in pnaimenovan varchar(50)
)
...

p.s. я с этим не сталкивался, пишу свои предположения, поэтому могу и фигню предлагать. учитывайте это, пожалуйста!

[xxbesoxx]

Stilet и Serge_Bliznykov Огромное спасибо. Да это било кодировка MyConnection1 установил кодировка cp1251 и уже из Edit записывает Русский . Но осталось вопрос Пускай будет БД на utf-8 и из Delphi cp1251 или как вы посоветовали ?

in pnaimenovan varchar(50)

У меня DelphiXE3 и MyDAC 7.6.11

[xxbesoxx]

У меня Delphi XE3 и MyDAC 7.6.11

[Stilet]

Пускай будет БД на utf-8 и из Delphi cp1251 или как вы посоветовали ?

Оно сейчас работает? Данные заносятся правильно? Считываются правильно - значит оставь как есть.

[xxbesoxx]

Да работает это просто удивительно

[Serge_Bliznykov]

всё. Отлично. Раз работает, значит, так и оставляйте!