INSERT DataTimePicker MSSQL

[Dandy777]

Просьба сильно не пинать за столь простой вопрос, Delphi изучаю только месяц.
Помогите пожалуйста исправить синтаксис и если есть ошибки. Никак не получается вставить в таблицу даты. Желательно сделать с помощью параметров.

procedure TForm2.Button2Click(Sender: TObject);

  var

  date1,date2 : TDate;

if DataModule1.TableOperationsKEY.AsString = '2' then    // Перевод пользователя

  begin

    DataModule1.Command.Parameters.ParamByName('date1').Value:= DateTimePicker2.Date;

    DataModule1.Command.Parameters.ParamByName('date2').Value:= DateTimePicker2.Date;

    DataModule1.Command.CommandText :=

      'INSERT INTO Result([User],Branch1,Branch2,DateFrom,DateTo,Operation) values('

      + DataModule1.UserSearchKEY.AsString + ',' +

      DataModule1.Branch1KEY.AsString + ',' + DataModule1.Branch2KEY.AsString +

      ',' + :date1 + ',' + :date2 + ',' + DataModule1.TableOperationsKEY.AsString + ')';

      ShowMessage(DataModule1.Command.CommandText);

  end;

[eval]

DataModule1.Command.CommandText := 'INSERT INTO Result([User],Branch1,Branch2,DateFrom,DateTo,Operation) values(:user, :branch1, :branch2, :date1, :date2, :operation)';
DataModule1.Command.Parameters.ParamByName('user').AsString := DataModule1.UserSearchKEY.AsString;
DataModule1.Command.Parameters.ParamByName('branch1').AsString := DataModule1.Branch1KEY.AsString;
DataModule1.Command.Parameters.ParamByName('branch2').AsString := DataModule1.Branch2KEY.AsString;
DataModule1.Command.Parameters.ParamByName('date1').AsDateTime := DateTimePicker1.Date;
DataModule1.Command.Parameters.ParamByName('date2').AsDateTime := DateTimePicker2.Date;
DataModule1.Command.Parameters.ParamByName('operation').AsString := DataModule1.TableOperationsKEY.AsString;
...

типа того...

[Dandy777]

Можно тогда еще 1 вопрос, надо ли создавать все эти параметры в Properties ->Parameters?

Попробовал я Ваш вариант.
Выдает ошибку :
[DCC Error] OperationsF.pas(74): E2003 Undeclared identifier: 'AsString'

НО если сделать так:

DataModule1.Command.CommandText := 'INSERT INTO Result([User],Branch1,Branch2,DateFrom,DateTo,Operation) values(:user, :branch1, :branch2, :date1, :date2, :operation)';
DataModule1.Command.Parameters.ParamByName('user').Value := DataModule1.UserSearchKEY.AsString;
DataModule1.Command.Parameters.ParamByName('branch1').Value := DataModule1.Branch1KEY.AsString;
DataModule1.Command.Parameters.ParamByName('branch2').Value := DataModule1.Branch2KEY.AsString;
DataModule1.Command.Parameters.ParamByName('date1').Value := DateTimePicker1.Date;
DataModule1.Command.Parameters.ParamByName('date2').Value := DateTimePicker2.Date;
DataModule1.Command.Parameters.ParamByName('operation').Value := DataModule1.TableOperationsKEY.AsString;

То всё вставляется красиво!!! спасибо.

Это так же правильный вариант?

[eval]

Я писал прям тут, поэтому не факт что все правильно , главное обший подход.

[maloun]

Сообщение от Dandy777

Delphi изучаю только месяц.

Ну рас так, то наверняка еще не видели оператор with, а если видели то извиняйте.
Думаю здесь уместно.

with DataModule1.Command do
begin
  CommandText := 'INSERT INTO Result([User],Branch1,Branch2,DateFrom,DateTo,Operation) values(:user, :branch1, :branch2, :date1, :date2, :operation)';
  ParamByName('user').Value := DataModule1.UserSearchKEY.AsString;
  ParamByName('branch1').Value := DataModule1.Branch1KEY.AsString;
  ParamByName('branch2').Value := DataModule1.Branch2KEY.AsString;
  ParamByName('date1').Value := DateTimePicker1.Date;
  ParamByName('date2').Value := DateTimePicker2.Date;
  ParamByName('operation').Value := DataModule1.TableOperationsKEY.AsString;
end;

[Dandy777]

Сообщение от maloun

Ну рас так, то наверняка еще не видели оператор with, а если видели то извиняйте.
Думаю здесь уместно.

with DataModule1.Command do
begin
  CommandText := 'INSERT INTO Result([User],Branch1,Branch2,DateFrom,DateTo,Operation) values(:user, :branch1, :branch2, :date1, :date2, :operation)';
  ParamByName('user').Value := DataModule1.UserSearchKEY.AsString;
  ParamByName('branch1').Value := DataModule1.Branch1KEY.AsString;
  ParamByName('branch2').Value := DataModule1.Branch2KEY.AsString;
  ParamByName('date1').Value := DateTimePicker1.Date;
  ParamByName('date2').Value := DateTimePicker2.Date;
  ParamByName('operation').Value := DataModule1.TableOperationsKEY.AsString;
end;

Не видел, но обязательно увижу. Если есть желание можете объяснить что он значит и почему Вы здесь его использовали. Объясню свою конструкцию и почему именно

if

у меня команда Insert меняется в зависимости от выбранного в DBLookupComboBox. Посему я свой код реализовал именно так. А показал только участок кода, дабы не плодить стену текста. По одному этому коду я преобразую все остальное.

[maloun]

Сообщение от Dandy777

if

if можно спокойно ставить и перед и после with, если вы об этом
поставил with, чтоб строки укоротить, только и всего)
он позволяет обращаться к методам без указания экземпляра.

with DataModule1.Command do
if DataModule1.TableOperationsKEY.AsString = '2' then
begin
  CommandText := 'INSERT INTO Result([User],Branch1,Branch2,DateFrom,DateTo,Operation) values(:user, :branch1, :branch2, :date1, :date2, :operation)';
  ParamByName('user').Value := DataModule1.UserSearchKEY.AsString;
  ParamByName('branch1').Value := DataModule1.Branch1KEY.AsString;
  ParamByName('branch2').Value := DataModule1.Branch2KEY.AsString;
  ParamByName('date1').Value := DateTimePicker1.Date;
  ParamByName('date2').Value := DateTimePicker2.Date;
  ParamByName('operation').Value := DataModule1.TableOperationsKEY.AsString;
end;

[eval]

Но лучше так не делать. Читаемость в общем случае только страдает, а еще можно и глюки поиметь.

[Dandy777]

Хм, весьма интересно, но пожалуй для наглядности пока оставлю. Не думаю что это сильно повлияет на производительность

[eval]

На производительность не влияет, на компиляцию.