| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

добавление массива чисел в бд [D6, XP]

kate158 ©   (2008-09-23 11:27:00) 

Здавствуйте,мастера!Как можно добавить массив чисел с 1 до 23 в таблицу бд SQL Server через ADO?Этот массив отображается у меня на стринггриде.
Вот код


private
  dbHours: array of double;

procedure TForm1.Set24HourGrids;
var
k: integer;
str3: string;
begin
with StringGrid1 do
 begin
   RowCount:= 26;
   Cells[0,0] := 'Часы;
   Cells[1,0] := 'План';
   for k:=1 to 24 do
     Cells[0,k] := IntToStr(k);
     str3:=Cells[0,k];
     dbHours[k]:= StrToFloat(str3);
  end;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
var
 i,j: integer;
 str1,str2: string;
begin
   DataMod.Command.Parameters.ParamByName('Hour').Value:=dbHours[i];
   DataMod.Command.Execute;
   four.Close;
   four.Open;
end;
 end;


в чем здесь ошибка?

---

kate158   (2008-09-23 12:16:00) [1]

> Поросенок Винни-Пух ©   (23.09.08 11:43) [4]

должна

procedure TForm1.BitBtn3Click(Sender: TObject);
var
i,j: integer;
str1,str2: string;
begin

SetLength(dbHours,25);
for i:=1 to StringGrid1.RowCount-2 do  
begin
  dbHours[i]:= IntToStr(i);
  DataMod.Command.Parameters.ParamByName('Hour').Value:=dbHours[i];
  DataMod.Command.Execute;
  four.Close;
  four.Open;
end;
end;

иха!спасибо)

---

kate158   (2008-09-23 12:04:00) [2]

вставка данных из exel в стринггрид,вычисления с данными,добавление в бд..

---

Правильный$Вася   (2008-09-23 11:53:00) [3]

вот интересно, зачем stringgrid, если работа с даннымииз БД?

---

Поросенок Винни-Пух   (2008-09-23 11:43:00) [4]

все равно прога не компилится

а должна?

---

clickmaker   (2008-09-23 11:41:00) [5]

а где SetLength(dbHours, 24) ?
и почему не сразу array[1..24] of double?

---

kate158   (2008-09-23 11:41:00) [6]

procedure TForm1.BitBtn3Click(Sender: TObject);
var
i,j: integer;
str1,str2: string;
begin
for i:=1 to StringGrid1.RowCount-2 do
  begin
 DataMod.Command.Parameters.ParamByName('Hour').Value:=dbHours[i];
DataMod.Command.Execute;
four.Close;
four.Open;
end;
end;
правильно понимаю?все равно прога не компилится

---

Поросенок Винни-Пух   (2008-09-23 11:35:00) [7]

в том что индекс не инициализирован перед его использованием

---

Наверх