[T-dayne]

Никогда не работал с БД, имею только общее представление о них. Значит есть БД, в ней 1 таблица, подключаюсь через ADO.

Мне нужно по нажатию кнопки, в цикле пройтись по всем полям таблицы, и вытянуть из каждого поля значение, например, 3 столбца, и добавить его содержимое в новую строку TStringList. Вот.

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

[windaws]

Сообщение от T-dayne

Никогда не работал с БД, имею только общее представление о них. Значит есть БД, в ней 1 таблица, подключаюсь через ADO.

Мне нужно по нажатию кнопки, в цикле пройтись по всем полям таблицы, и вытянуть из каждого поля значение, например, 3 столбца, и добавить его содержимое в новую строку TStringList. Вот.

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

Код:

for i:=1 to adotable1.recordcount do
begin
(незнаю как добавлять в стринг грид напишу на лейбл)
label1.caption:=adotable1.fields.fields[0].asString - первое поле;
label2.caption:=adotable1.fields.fields[1].asString - соответственно второе
label3.caption:=adotable1.fields.fields[2].asString - и третье
// после записи переходим на следующую строку в таблице
adotable1.next;
end;

Попробуй думаю разберешься

[lmikle]

мда...

Код:

ADOTable1.Active := True;
ADOTable1.First;
StringGrid1.ColCount := ADOTable1.Fields.Count;
StringGrid1.RowCount := 0;
While Not ADOTable1.EOF Do
  Begin
    StringGrid1.RowCount := StringGrid1.RowCount+1;
    For I := 0 To ADoTable1.Fields.Count-1 Do
       StringGrid1.Cells[I,StringGrid1.RowCount-1] := ADoTable1.Fields[i].AsString;
    ADOTable1.Next;
  End;
ADOTable1.Active := False;

как-то так.
Только нафига? для отображения данных существует такой компонент, как TDBGrid.

[T-dayne]

мне не надо отображать, мне надо работать с данными из таблицы.

[lmikle]

Сообщение от T-dayne

мне не надо отображать, мне надо работать с данными из таблицы.

Хммм... а может тогда лучше почитать про SQL, все сделать запросом и взять готовый результат?

[T-dayne]

windaws
хм, способ выглядит простым, но у меня не работает, делаю:

Код:

edit1.Text:=adotable1.Fields.Fields[0].AsString;

выдает фатальную ошибку...
добавлено через 5 минут

Доперло как нужно, ошибся в названиях столбцов