[Yasha]

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

Код:

1 2 3 4 5 6 7 8 9 10

for Row := StringGrid1.RowCount - 1 downto StringGrid1.FixedRows  do for Col := StringGrid1.FixedCols to StringGrid1.ColCount - 1                 do begin   S:=StringGrid1.Cells[Col,1];  //Это от безысходности DataModule3.ADOQuery1.Active:=false; DataModule3.ADOQuery1.SQL.Text:='INSERT INTO org (num, okpo, inn, org, main, fio, index, okato, adress) VALUES ('+S+')'; DataModule3.ADOQuery1.Active:=true; end; end;

Админ: Пользуемся тегами для оформления кода!

Посоветуйте, как правильней сделать.

[lmikle]

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10

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 первым идет колонка.

[Yasha]

Уже решила с помощью ADODataSet) Но все равно спасибо)

[Mrak]

на insert/update нужен ExecSQL, а не open (active)
жми F1