Показать сообщение отдельно
  #6  
Старый 23.03.2009, 10:25
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Цитата:
Сообщение от joomler
Посмотрел почитал, и все работает только почему то не могу понять он выдает одну строку , а нужно то все, вот опять надо почитать значит
Точнее он выдает запись на которой находится метка или курсор как правильно не знаю
А вам в поле мемо надо содержимое всех записей что-ли выводить?
Тогда надо организовать обход таблицы с накоплением текста в мемо где-то так:
Код:
 var Q: TAdoQuery;
begin
 Q := TAdoQuery.Create(nil);
 Q.Connection := MyAdoConnection;
 Q.SQL.Text := 'select MyMemoField from MyTable';
 Q.Open;
 MyFormMemoField.Clear;
 while not Q.Eof
 do begin
     MyFormMemoField.Text := MyFormMemoField.Text + Q.FieldByValues['MyMemoField'];
     Q.Next;
     end;
 Q.Free;
end;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием