[lmikle]

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

Доброе время суток.
Никак не могу понять, как написать SQL команду на добавление данных в бд из String Grid.
...
Посоветуйте, как правильней сделать.

Для одной строки:

Код:

function GetQuery(N : Integer)  : String;
var
  S : String;
  I : Integer;
begin
  S := StringGrid1.cells[0,N];
  For I := 1 To StringGrid1.ColCount-1 Do
    S := S + ',' + '''' + StringGrid1.cells[I,N] + '''';
  Result := 'INSERT  INTO org (num, okpo, inn, org, main, fio, index, okato, adress) VALUES ('+S+')';
end;

ЗЫ. Проверь только, что у Cells первым идет колонка.