ADOQuery1
.
SQL
.
Clear;
ADOQuery1
.
Parameters
.
ParamByName(
'id_i'
).Value:=ADODataSet_parametr
.
FieldByName(
'index'
).Value;
ADOQuery1
.
Parameters
.
ParamByName(
'id_p'
).Value:=ADODataSet_parametr
.
FieldByName(
'param'
).Value;
ADOQuery1
.
Parameters
.
ParamByName(
'id_t'
).Value:=ADODataSet_parametr
.
FieldByName(
'text'
).Value;
ADOQuery1
.
Parameters
.
ParamByName(
'id_k'
).Value:=ADODataSet_parametr
.
FieldByName(
'kod_type_pribor'
).Value;
ADOQuery1
.
Parameters
.
ParamByName(
'id_ty'
).Value:=ADODataSet_parametr
.
FieldByName(
'type_spiska'
).Value;
ADOQuery1
.
SQL
.
Add(
'INSERT INTO Temp_Параметры ([index],param,[text],kod_type_pribor,type_spiska) VALUES(:id_i, :id_p, :id_t, :id_k, :id_ty);'
);
ADOQuery1
.
ExecSQL;