массив в БД / БД в массив

[Danilka]

Здравствуйте!
Пишу программу на Delphi 7, которая должна уметь загружать БД в массив, без вывода в таблицу и наоборот: записывать массив в БД.
облазил, наверное, все что можно, но ничего толкового не нашел =( как это реализовать я даже не представляю, но догадываюсь что нужно работать с компонентом DataSource.

такиеже таблицы с такимже типом переменных находятся и в бд

type
  Element = record
    ID:string[5];
    Description:string[100];
    Operator:string[10];
    Height,Width:short;
    x,x1,y,y1:short;
    t:short;
end;
....
var
  Elements:array[1..100] of Element;

ЗЫ я начинающий прогописатель-самоучка, поэтому прошу описать все поподробней

[Stilet]

Ты в принципе умеешь читать из базы и передвигаться по набору данных из нее?
Заглядывал в примеры поставляемые с Делфи стандартно?

[Grag]

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

Здравствуйте!
Пишу программу на Delphi 7, которая должна уметь загружать БД в массив, без вывода в таблицу и наоборот: записывать массив в БД.
догадываюсь что нужно работать с компонентом DataSource.

База данных как раз и состоит из таблиц... Но, видимо ты под таблицами подразумевал средство отображения данных, а не таблицы БД. DataSource устанавливает связь между набором данных (DataSet) и экранной таблицей (DbGrid). Поэтому тебе оно никак не поможет. Нужно работать с либо с DataSet, либо непосредственно с компонентом TTable или через TQuery...

[Danilka]

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

Ты в принципе умеешь читать из базы и передвигаться по набору данных из нее?
Заглядывал в примеры поставляемые с Делфи стандартно?

умею только подключться к бд и выводить содержимое в компонент Table, но это мне не нужно
щас вот читаю литератубу по бд, а нащет примеров...а в какой они папке располагаются?

[Stilet]

в какой они папке располагаются?

Ну у меня в Д6 это папка DEMOS. А вообще могу в разных.

Скажем так читать при условии что поля у тебя совпадают с твоей записью можно так:

 table.open;
 while (not table.eof)and(Table.RecNo<length(Elements)) do begin
  with Elements[Table.RecNo] do begin
    ID:=FieldByName('ID').AsString;
    Description:=FieldByName('Description').AsString;
    Operator:=FieldByName('Operator').AsString;
    Height:=FieldByName('Heigth').AsInteger;
    Width:=FieldByName('Width').AsInteger;
    ... Ну и так далее
  end;
  table.next; 
 end;

Понял мысль?

[Danilka]

спасибо, теперь немного понятнее стало. а запись в бд по такомуже принципу происходит?

[Stilet]

Да. Только в FieldByName('Operator').AsString присваивать.

[Grag]

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

а запись в бд по такомуже принципу происходит?

Только не забудь перевести таблицу в режим редактирования Table.Edit, а после присваивания значений полям сохранить все изменения Table.Post

[Danilka]

спасибо огромное, теперь буду колдовать =)

чтото у меня не получается=(((

  Table1.Edit;
  For j:=1 to j1 do  {по координате j1 находится последняя запись в массиве}
    begin
      Table1.FieldByName('ID').AsString:=Elements[j].ID;
      Table1.Next;
    end;

копилятор указывает на ошибку в команде Table1.Next сообщает, что Tabel1.Dataset не находится ни в режиме Edit, ни в Insert

[Stilet]

 
  For j:=1 to j1 do  {по координате j1 находится последняя запись в массиве}
    begin Table1.Edit;
      Table1.FieldByName('ID').AsString:=Elements[j].ID;
      Table1.Next;
    end;