из stringgrid'a в sql server

[kate158]

Подскажите,пожалуйста,как можно инфу из stringgrida добавить в таблицу sql server через ado?
есть код

procedure TForm1.BitBtn3Click(Sender: TObject);
var i:integer;
begin
if four.Active then four.Close;
 for i:=1 to StringGrid1.RowCount-2 do
  begin
  four.SQL.Clear; //очистка запроса
  four.SQL.Add('insert into Коэф values("'+StringGrid1.Cells[1,i]+'")');
  four.Post;
  four.Open;
  end;
end;

но,не работает..

[mihali4]

Посмотрите внимательнo на эту строку:
four.SQL.Add('insert into Коэф values("'+StringGrid1.Cells[1,i]+'")');
Вы указали:
1. вставить запись в таблицу "Коэф"
2. вставить текст из второго столбца i-ой строки StringGrid1
НО! Вы забыли указать, какому полю таблицы "Коэф" следует присвоить этот текст...
Посмотрите внимательнее формат команды INSERT ... VALUES

[kate158]

Спасибо,mihali4.Задача решена,но я пошла другим путем.Вместо ADOQuery - ADO Command.Далее данные из стринггрида записала в массив.Параметру ADO Command присвоила столбец данных из бд.далее инсертом добавила массив записей в столбец.и все! кому нужен код,пишите.

[kate158]

у меня дело было так: был стринг грид, состоящий из двух столбцов. первый это массив времени - 24 значения для каждого часа (00,01,02...24)

...
private
   dblHourPlan: array of double; //массив значений (второй столбец в стринг гриде)
   dbHours: array of string; //массив часов (первый столбец)
...
процедура обработки кнопки вставки в БД:
procedure TForm1.BitBtn3Click(Sender: TObject);
var
  i,j: integer;
  str1,str2: string;
begin
SetLength(dbHours,25);// у меня массив
   for i:=1 to StringGrid1.RowCount-2 do  //oeee io 1 ai eiioa a?eaa
   begin
    str1:= Trim(StringGrid1.Cells[1,i]);//trim-для удаления лишних пробелов
    if str1='' then
      str1:= '0';
      str2:='';
     for j:=1 to Length(str1) do
      begin
        if str1[j] = '.' then//если в строке есть точка
        str2:= str2 + ','//меняем ее на запятую
         else if (str1[j] <> ' ') and (str1[j] <> Chr(160)) then
        str2:= str2 + str1[j];
        end;
    dbHours[i]:= IntToStr(i);
    DataMod.Command.Parameters.ParamByName('Koef').Value:=dblHourPlan[i];
    DataMod.Command.Parameters.ParamByName('Hour').Value:=dbHours[i];
    DataMod.Command.Parameters.ParamByName('Profile_Code').Value:=ComboBox1.Text;
    DataMod.Command.Parameters.ParamByName('Year').Value:=FormatDateTime('yyyy',calDatePicker.Date);
    DataMod.Command.Parameters.ParamByName('Month').Value:=FormatDateTime('mm',calDatePicker.Date);
    DataMod.Command.Parameters.ParamByName('Day').Value:=FormatDateTime('dd',calDatePicker.Date);
    DataMod.Command.Execute;
  end;//конец цикла for
end;

далее: в модуль данных добавляем adocommand, в комманд текст пишем

  insert into prof_vert (Profile_Code, Year, Month, Day, Hour,Koef ) values (:Profile_Code,:Year,:Month,:Day,:Hour,:Koef)