1. с двумя myquery?
Код: Выделить всё
try
myquery1.close;
myquery1.SQL.Clear;
myquery1.SQL.Text:='INSERT INTO `users` (`name`, `surname` ) VALUES ( '''+edit1.Text+''', '''+edit2.Text+''')';
myquery1.execute;
except
on E: exception do
showmessage(E.Message);
end;
try
myquery2.close;
myquery2.SQL.Clear;
myquery2.SQL.Text:='INSERT INTO `workdays` (`monday`, `tuesday`) VALUES ( 0, 0)';
myquery2.execute;
except
on E: exception do
showmessage(E.Message);
end;
Код: Выделить всё
try
myquery1.close;
myquery1.SQL.Clear;
myquery1.SQL.Text:='INSERT INTO `users` (`name`, `surname` ) VALUES ( '''+edit1.Text+''', '''+edit2.Text+''')';
myquery1.execute;
myquery1.SQL.Clear;
myquery1.SQL.Add('INSERT INTO `workdays` (`monday`, `tuesday`) VALUES ( 0, 0)');
myquery1.ExecSQL;
except
on E: exception do
showmessage(E.Message);
end;