Сравнение striggrid c dbgrid

[grafgrial]

как написать:

Если 1ячейка stringgrid2 (тут текст) = какой нибудь из первой ячейки в dbgrid(в нем много строк, а сравнивающаяся ячейка в 1 столбце -тут тоже текст)
то
2 ячейка stringgrid2 записывается во вторую ячейку найденной выше строки 
 в stringgrid может быть много строк(т.е. сначала первая строка проводит выше написаную операцию потом вторая и т.д.)

[_SERGEYX_]

Три раза прочитал и ничего не понял...

[evg_m]

Я понял так

Если 1ячейка stringgrid2 (тут текст) = какой нибудь из первой ячейки в dbgrid(в нем много строк,

where field1 =:prm

2 ячейка stringgrid2 записывается во вторую ячейку найденной выше строки

set field2=:txt

все вместе =SQL

update table1 set field2=:txt where field1 =:prm

[grafgrial]

Ну попробую в рисуночке обьяснить
Безымянный.jpg

[Sparkman]

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

Ну попробую в рисуночке обьяснить
Вложение 30713

Кажется я вас понял - вы хотите изменить значение в DBGrid с помощью StringGrid:
используйте цикл, в теле которого прописана команда на обновление полей базы данных (в данном случае поля "Кол-во").
Количество шагов цикла равно количеству строк в String Grid.

[grafgrial]

Кажется я вас понял - вы хотите изменить значение в DBGrid с помощью StringGrid

именно! но в том то и проблема что я не смог написать, остановился на этом варианте, но он не работает. Писал в 3 часа ночи, сам не понимая что написал

for ik:=0 to Form1.StringGrid2.RowCount-1 do
  for i:=0 to DModule.ADOTable1.Fields.Count-1 do
  if Form1.StringGrid2.Cells[0,ik]=DModule.ADOTable1.Fields[i].Value then
DModule.ADOTable1.Fields.Fields[i].AsString:=Form1.StringGrid2.cells[1,ik];

[Sparkman]

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

именно! но в том то и проблема что я не смог написать, остановился на этом варианте, но он не работает. Писал в 3 часа ночи, сам не понимая что написал

for ik:=0 to Form1.StringGrid2.RowCount-1 do
  for i:=0 to DModule.ADOTable1.Fields.Count-1 do
  if Form1.StringGrid2.Cells[0,ik]=DModule.ADOTable1.Fields[i].Value then
DModule.ADOTable1.Fields.Fields[i].AsString:=Form1.StringGrid2.cells[1,ik];

И скорей всего компилятор выдает ошибки?
Нужно что-то типа этого: DModule.ADOTable1.Fields.Fields[i].Value := Form1.StringGrid2.cells[1,ik].

[grafgrial]

да выдает ошибку и не изменяет данные, но не при компиляции. А при работе
Безымянный.bmp

[_SERGEYX_]

Ясно.
Поехали циклом по Stringgrid-у:

var i: integer; String1, String2: String;

  for i := 0 to StringGrid1.RowCount - 1 do
  begin
    String1 := StringGrid1.Cells[0, i];
    String2 := StringGrid1.Cells[1, i];

      Query.close;
      Query.SQL.Clear;
      Query.SQL.Add('Update TABLENAME Set ' +
        'kolichestvo=' + QuotedStr(String2)+ 
        'Where (name=' + QuotedStr(string1) + ')');
      Query.ExecSQL;
  end;

Но этот метод плохой. Для материалов должен быть какой-то числовой идентификатор, например, КОД материала. А делать поиск по названию несерьёзно.
В названиях могут быть кавычки, недопустимые символы, кладовщик может переименовать материал и т.п. Один лишний пробел в названии - и программа начнет работать некорректно.

[grafgrial]

Куда мне это все прописывать? Я еще ни разу не работал с SQL