Код: Выделить всё
myquery1.SQL.Text:='UPDATE tickets SET status:=1 WHERE seat IN (array);
Код: Выделить всё
myquery1.SQL.Text:='UPDATE tickets SET status:=1 WHERE seat IN (array);
Код: Выделить всё
var
ArrayStr: string;
i: integer;
begin
MyQuery1.SQL.Text := MyQuery1.SQL.Text := 'UPDATE tickets SET status = 1 WHERE seat IN (&ARRAY)';
ArrayStr := '';
for i := 0 to Memo.Lines.Count - 1 do begin
if ArrayStr <> '' then
ArrayStr := ArrayStr + ',';
ArrayStr := ArrayStr + QuotedStr(Memo.Lines[i]);
end;
MyQuery1.MacroByName('ARRAY').Value := ArrayStr;
MyQuery1.Execute;
end;
Код: Выделить всё
MyQuery1.SQL.Text := MyQuery1.SQL.Text := 'UPDATE tickets SET status = 1 WHERE seat IN (&ARRAY)';
Код: Выделить всё
MyQuery1.SQL.Text := 'UPDATE tickets SET status = 1 WHERE seat IN (&ARRAY)';
Код: Выделить всё
try
MyQuery1.close;
MyQuery1.SQL.Clear;
MyQuery1.SQL.Text:='INSERT INTO tickets (`id`, `seat`, `sector`) VALUES (NULL, :seat, NULL)';
MyQuery1.Prepare;
if not MyConnection1.InTransaction then
MyConnection1.StartTransaction;
try
for i := 1 to 795 do begin
MyQuery1.ParamByName('seat').AsString := IntToStr(i);
MyQuery1.Execute;
end;
MyConnection1.Commit;
except
MyConnection1.Rollback;
raise;
end;
except
on E: exception do
showmessage(E.Message);
end;
Код: Выделить всё
try
myquery1.close;
myquery1.SQL.Clear;
myquery1.SQL.Text:='SELECT `id`, `date`, `time`, FROM tickets WHERE seat IN (&ARRAY)';
ArrayStr := '';
for i:= 0 to Memo1.Lines.Count - 1 do begin
if ArrayStr <> '' then
ArrayStr := ArrayStr + ',';
ArrayStr := ArrayStr + QuotedStr(Memo1.Lines[i]);
end;
MyQuery1.MacroByName('ARRAY').Value := ArrayStr;
myquery1.open;
frxreport1.PrepareReport;
FrxReport1.PrintOptions.ShowDialog:=false;
frxreport1.Print;
except
on E: exception do
showmessage(E.Message);
end;