Из Memo в BLOB

[Evgeniy26]

Ты мне скажи, значения в Edit'ы у тебя для редактирования, как заносяться (ты кликаешь по записи в Grid'е и они заносятся в Edit'ы?). Или они пустые, а ты просто вбиваешь значения и патаешься их наити и отредактировать. Я запутался. "+" - автоинкримент? Или добавляй еще Edit и занаси в него значение уникального поля, запись которую необходимо редактировать.

[начинающий1]

ФИО я выбираю из dblookupcombobox-a. Если бы этого человека не было в БД, то его бы не было в списке. Так ведь?

На твоем примере я вижу только Edit-ы, и из этих эдитов(условие) ты берешь инфу для обновления записи в таблице.

А как вот это самое обновление по ID сделать?

имя_id := DBLookupCombobox1.KeyValue;
'WHERE Otchest= ' + QuotedStr(Form12.Edit3.Text)' and id = "'+ имя_id +'";

[Evgeniy26]

Сообщение от начинающий1

А с id вот так:

'WHERE Otchest= ' + QuotedStr(Form12.Edit3.Text)' and id = 5';

Id оно на то и Id:

'WHERE id = 5';

[начинающий1]

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

Id оно на то и Id:

'WHERE id = 5';

допустим, что в таблице несколько человек с одинаковым Отчеством, тогда

'WHERE Otchest= ' + QuotedStr(Form12.Edit3.Text)' and id = 5';

будет кстати.

[artemavd]

Ты мне скажи, значения в Edit'ы у тебя для редактирования, как заносяться

.
Объясняю. Есть совершенно другая форма. Form13. На ней есть три DBLookupComboBoxEh-a, каждый из которых соответственно настроен на фамилию, имя, отчество. Когда в списках выбраны эти данные, то нажимается кнопка и открывается другаю форма. Form12. На ней, в Edit1 заносится значение из первого DBLookupComboBoxEh1, в Edit2 из DBLookupComboBoxEh2, в Edit3 из DBLookupComboBoxEh3. Вот. Дальше я хотел редактировать данные...

Я запутался. "+" - автоинкримент?

Совершенно верно)

'WHERE id = 5';

Дык пользователь то не знает какой ID у этого человека в БД..

[начинающий1]

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

.
Дык пользователь то не знает какой ID у этого человека в БД..

А это для кого, для Пушкина?

имя_id := DBLookupCombobox1.KeyValue;
'WHERE Otchest= ' + QuotedStr(Form12.Edit3.Text)' and id = "'+ имя_id +'";

[Evgeniy26]

В Access работает, под себя подстрой:

var
  st: TMemoryStream;
begin
  St := TMemoryStream.Create;
  try
    Memo1.Lines.SaveToStream(St);
    st.Position := 0;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('Update one Set BLOB = :b1 Where id = :i1;');
    ADOQuery1.Parameters.ParamByName('b1').LoadFromStream(St, ftBlob);
    ADOQuery1.Parameters.ParamByName('i1').Value := 1;//DBLookupCombobox1.KeyValue;
    ADOQuery1.ExecSQL;
    St.Position := 0;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('Update one Set BLOB = :b2 Where id = :i2;');
    ADOQuery1.Parameters.ParamByName('b2').LoadFromStream(St, ftBlob);
    ADOQuery1.Parameters.ParamByName('i2').Value := 2;//DBLookupCombobox1.KeyValue;
    ADOQuery1.ExecSQL;
  finally
    St.Free;
  end;

начинающий1, можете переделать с DML запросом. Как в примере.

[начинающий1]

Evgeniy26
а чего там переделывать?
1) присваиваем строковой переменной имя_id id поля отчество, которое пользователь выбрал в DBLookupComboboxEh1.

имя_id := DBLookupComboboxEh1.KeyValue;

2) 2-я часть запроса (какую запись обновлять)

'WHERE id = "'+ имя_id +'";

чего тут не ясного еще? Готовый код.

[Evgeniy26]

начинающий1 посмотрите 17, 27 и мой последний пост. Blob поле редактируется через DML запрос.

[начинающий1]

Пожалуйcта:

procedure TForm12.BitBtn3Click(Sender: TObject);
var
spisok_id: string;
begin
spisok_id := Form12.DBLookupComboboxEh1.KeyValue;
with Form12.Query_update do
   begin
     Form12.Query_update.SQL.Clear;
     Form12.Query_update.SQL.Add('Select MestoRogd from spisok where MestoRogd_id = '+spisok_id+'');
     Form12.Query_update.Open;
      if RecordCount > 0 then
  begin
    Edit;
    TBlobField(Form12.Query_update.FieldByName('MestoRogd')).AsString := Form12.Memo1.Lines.Text;
    if Modified then
      Post
  end;
     Form12.Query_update.Close;
   end;
end;