Установлен локальный сервер MySQL, соединила через ZEOS с проектом, читает данные отменно!
При редактировании в проекте ничего необычного не происходит, но в базе после этого нет никаких изменений.
При удалении тоже самое, а при сохранении новых данных пишет вызван класс исключений "external sigsegv" и тоже, конечно, в базу ничего не пишет .
С базой соединяюсь так
- Код: Выделить всё
ZConnection1.Connected:=False;
ZConnection1.Database:= 'upak'; {replace this with the name of your database}
ZConnection1.User:='root';
ZConnection1.Password:='Igbkmrf';
ZConnection1.HostName:='localhost';
ZConnection1.Port:=3306;
try
ZConnection1.Connected:=True;
except
ShowMessage(' Не могу подключиться к базе данных');
end;
try
ZQuery1.Connection:= ZConnection1;
ZQuery1.Active:=false;
ZQuery1.SQL.Clear;
ZQuery1.sql.add('SET character_set_client='+#39+'cp1251'+#39+',character_set_connection='+#39+'cp1251'+#39+',character_set_results='+#39+'utf8'+#39+';');
ZQuery1.ExecSQL;
ZQuery1.SQL.Clear;
ZQuery1.SQL.Text := 'select * from Upakovka order by Nazvanie;';
ZQuery1.UpdateObject:=ZUpdateSQL1;
ZUpdateSQL1.DeleteSQL.Text:='delete from Upakovka where ID=:ID';
ZUpdateSQL1.ModifySQL.Text:='update Upakovka set Nazvanie=:Nazvanie, Material=:Material,stroenie_materiala=:stroenie_materiala, Procnost=:Procnost, Srok_razlog=:Srok_razlog, Cratnost_ispolzovania=:Cratnost_ispolzovania,';
ZUpdateSQL1.ModifySQL.Text:= ZUpdateSQL1.ModifySQL.Text+ 'chislo_edinic=:Chislo_edinic,Nalichie_crishki=:Nalichie_crishki, Naznachenie=:Naznachenie, Funkcion_naznach=:Funkcion_naznach,FOTO=:FOTO,Opisanie=:Opisanie where ID=:ID';
ZUpdateSQL1.InsertSQL.Text:='insert into Upakovka (Nazvanie, Material, stroenie_materiala, Procnost, Srok_razlog, Cratnost_ispolzovania, Chislo_edinic, Nalichie_crishki, Naznachenie, Funkcion_naznach, FOTO, Opisanie)';
ZUpdateSQL1.InsertSQL.Text:= ZUpdateSQL1.InsertSQL.Text+ ' VALUES (:Nazvanie, :Material,:stroenie_materiala, :Procnost, :Srok_razlog, :Cratnost_ispolzovania,:Chislo_edinic,:Nalichie_crishki, :Naznachenie, :Funkcion_naznach,:FOTO,:Opisanie)';
ZQuery1.Open;
except
ShowMessage(' Ошибка при выполнении SQL запроса.');
end;
Сохряняю изменения так.
- Код: Выделить всё
SQLQuery1.Post;
SQLQuery1.ApplyUpdates;
В чем тут дело?
