• alik
  • Member
  • Offline
  • Registered: 2014-10-07
  • Posts: 21

Topic: Работа с Grid через скрипты и SQL запросы

Доброго времени суток!
Подскажите пожалуйста по некоторым вопросам, а именно:
1. Возможно ли через скрипт задавать имена столбцов в таблице, так как хотелось бы заполнять таблицу именно скриптом;

2. При добавлении в таблицу SQL скриптом выдает ошибку если в Едите запись в кавычках, вот пример:
procedure Form2111_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
SQLExecute('INSERT INTO Contractors (record_count, LongName, ShortName) VALUES ("'+Form2111.EditCounter1.Text+'","'+Form2111.Edit1.Text+'","'+Form2111.Edit2.Text+'")');
Form211.TableGrid1.dbUpdate;
Form2111.Close;
end;
Если в ЕДИТЫ вбить текст в кавычках ("ТЕКСТ"), выдается ошибка near "ТЕКСТ": syntax error, возможно ли обойти эту ошибку;

3. Хотелось бы в форму добавить текущее время, которое меняется с интервалом в 1 секунду, например в Label.Caption;

Заранее спасибо!

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Работа с Grid через скрипты и SQL запросы

1. Можно, добавил такую возможно в бета версию 1.45, скачайте ее
https://www.dropbox.com/s/88lx13h9cw5ro … 5.zip?dl=0


задать имя столбца можно так

Form1.TableGrid1.Columns[0].Header.Caption := 'Первая колонка';


2. Необходимо вручную экранировать кавычки, попробуйте так

procedure Form2111_Button1_OnClick (Sender: string; var Cancel: boolean);
var
   s1, s2: string;
begin
    s1 := ReplaceStr(Form2111.Edit1.Text, '"', '""');
    s2 := ReplaceStr(Form2111.Edit2.Text, '"', '""');

   SQLExecute('INSERT INTO Contractors (record_count, LongName, ShortName) VALUES ("'+Form2111.EditCounter1.Text+'","'+s1+'","'+s2+'")');
   Form211.TableGrid1.dbUpdate;
   Form2111.Close;
end;

3. Скачайте проект с примером по ссылке ниже

Post's attachments

Attachment icon Clock.zip 1.63 kb, 1210 downloads since 2014-10-07 

Dmitry.
  • alik
  • Member
  • Offline
  • Registered: 2014-10-07
  • Posts: 21

Re: Работа с Grid через скрипты и SQL запросы

Спасибо, работает!