Текущий архив: 2008.11.02;
Скачать: CL | DM;

Вниз

добавление массива чисел в бд   Найти похожие ветки 

← →
kate158   (2008-09-23 11:27) [0]

Здавствуйте,мастера!Как можно добавить массив чисел с 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;


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

---

← →
Поросенок Винни-Пух ©   (2008-09-23 11:35) [1]

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

---

← →
clickmaker ©   (2008-09-23 11:41) [2]

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

---

← →
kate158   (2008-09-23 11:41) [3]

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:43) [4]

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

а должна?

---

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

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

---

← →
kate158   (2008-09-23 12:04) [6]

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

---

← →
kate158   (2008-09-23 12:16) [7]

> Поросенок Винни-Пух ©   (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;

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

---

Страницы: 1 вся ветка

Текущий архив: 2008.11.02;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.015 c