[T-dayne]

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

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

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

[windaws]

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

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

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

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

Код:

1 2 3 4 5 6 7 8 9

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]

мда...

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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
хм, способ выглядит простым, но у меня не работает, делаю:

Код:

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

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

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

[Black Raider]

как уже сказали тут намного проще использовать SQL-запрос для этих целей.
тот же ADOQuery c запросом Select Field3 from TableName
Дальше по циклу проходишь по нему и пихаешь данные куда тебе надо, при этом сразу можешь ограничить получаемые данные включив в SQL where

[T-dayne]

Еще один вопрос по теме, как получать файлы знаю, скажите теперь как удалить целую строку из таблицы, также посредством ADOTable. Это возможно?

[lmikle]

У ADOTable есть метод - Delete.
Надо "встать" на нужную строку и вызвать этот метод.