12.08.2013, 22:44
|
|
Начинающий
|
|
Регистрация: 14.01.2011
Сообщения: 171
Версия Delphi: 7
Репутация: 10
|
|
Код:
SQL.Text : = 'update OFFICE_CONTACTS set OC_CNTT_ID = :q where OC_O_ID = :w'
Parameters.ParamByName('q').Value := vartostr(DBLookupComboBox1.KeyValue);
Parameters.ParamByName('w').Value := DataModule1.OFFICE_CONTACTS.FieldByName('OC_O_ID').AsString;
попробуй как то так. |