Одновременная запись в базу данных MySQL

[Aleksandr]

Имеется база данных MySQL в которую записываются данные с весовых терминалов. Данные считываются в потоках через сокеты. При одовременном взвешивании выскакивает ошибка.
Код записи привожу

try
sleep(500);
MainForm.zQuery1.SQL.Clear;
MainForm.zQuery1.SQL.Add ('INSERT INTO base (Date_posting, Time_posting, num, Massa, Name, Image, Com, BaudRate, Organization, Location, IP, Note, Model, Equopment, Linkey, Stable_weight, Image_kamera)' );

MainForm.zQuery1.SQL.Add(' Values (:date1, :date2, 1, :massa, :name,''image'', :port, :BaudRate, :Organization, :Location, :Ip, :Note, :Model, :Equopment, :Linkey, 0, :adress)');
d3:=Trunc(Date);
d2:=frac(time);
MainForm.zQuery1.ParamByName('date1').Value:=d3;
MainForm.zQuery1.ParamByName('date2').Value:=d2;
MainForm.zQuery1.ParamByName('massa').Value:=MainForm.Edit1.Text;
MainForm.zQuery1.ParamByName('name').Value:=MainForm.labelModel1.Caption+' '+MainForm.LabelEquopment1.Caption;
MainForm.zQuery1.ParamByName('port').Value:=MainForm.labelPort1.Caption;
MainForm.zQuery1.ParamByName('BaudRate').Value:=MainForm.LabelBaudRate1.Caption;
MainForm.zQuery1.ParamByName('Organization').Value:=MainForm.LabelOrganization1.Caption;
MainForm.zQuery1.ParamByName('Location').Value:=MainForm.LabelLocation1.Caption;
MainForm.zQuery1.ParamByName('Ip').Value:=MainForm.LabelIp1.Caption;
MainForm.zQuery1.ParamByName('Note').Value:=MainForm.labelNote1.Caption;
MainForm.zQuery1.ParamByName('Model').Value:=MainForm.labelModel1.Caption;
MainForm.zQuery1.ParamByName('Equopment').Value:=MainForm.labelEquopment1.Caption;
MainForm.zQuery1.ParamByName('Linkey').Value:=MainForm.labelLinkey1.Caption;
MainForm.zQuery1.ParamByName('adress').Value:=OptionForm.DirectoryEdit1.Text+'\NO.jpg';

MainForm.zQuery1.ExecSQL;
 Application.ProcessMessages;  
Except
end;

[Serge_Bliznykov]

1) какая ошибка?
2) надеюсь, в структуре таблицы base имеется автоинкрементное ключевое поле?
3)

Except
end;

думаете, что "душить" исключение - это хороший стиль программирования?! Уж, хотя бы для отладки там должна быть выдача сообщения об ошибке!

[Aleksandr]

Ошибку уже не помню. Потому что не так часто бывает одновременное взвешивание. Если в течении дня будет, то я скину ошибку.
По поводу базы ключевое поле есть key1

[Serge_Bliznykov]

а что за поле Linkey ?
Может в нём и проблема?

p.s. без скрина ошибки можно только гадать.
скрин нужен по любому!
Хотя, не поручусь на 100%, что и наличие скрина позволит гарантировать нахождение проблемы

[Аватар]

Данные считываются в потоках

И приведенный код тоже в потоке? Если да, то ошибка заложена изначально - одновременное обращение к zQuery1 из разных потоков. Да и к визуальным объектам есть обращение

[eval]

Application.ProcessMessages;

и это в потоке? тогда тут ваще все сплошная ошибка

[Aleksandr]

У каждого потока у меня свои zQuery, Edit, labelModel, LabelEquopment, LabelIP,
LabelPort и тд.
Через Linkey таблица base связана с таблицей organization.
А где лучше расположить Application.ProcessMessages;

[Аватар]

Это как? zQuery нужно динамически в потоке создавать. Для VCL не важно, что для каждого свои, все равно синхронизировать нужно. ProcessMessages из потока на анекдот похоже

[Aleksandr]

Если я буду создавать zQuery, то мне создавать DataSource для каждого динамически созданного zQuery?

[Аватар]

А зачем DataSource? Он обычно нужен для привязки датасетов к визуальным объектам, гридам например

ADD

Насчет вашего датасета не в курсе, возможно его особенности и требуют наличия DataSource, хотя сомневаюсь в такой реализации