Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как вытянуть TStringList из поля? ADO 
V
    Опции темы
ilyuha
Дата 13.10.2007, 13:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 111
Регистрация: 10.7.2007

Репутация: нет
Всего: нет



итак, есть структура:
Код

type
  TMount=record
    MountName,RegionMount,Country: ShortString;
    MountHeight: word;
    HeighestMount: boolean;
  end;
  TAscention=packed record
    LabelAscention: ShortString;
    Climbers: TStringList;
    Mount: TMount;
    BeginingDateTime: TDateTime;
    FinishingDateTime: TDateTime;
    LongestTime: boolean;
  end;

type
  TDbTableRecord=TAscention;

как вытянуть из ячейке Climbers?
вот как я пытался, пока не наткнулся на эту траблу:
Код


function TiDataModule.GetAccesDBLine(LineNum: integer): TDbTableRecord;
var
  Rec: TDbTableRecord;
begin
  aDBTable.RecNo:=LineNum;//aDBTable: TADOTable;
  Rec.LabelAscention:=aDBTable.FieldValues['LabelAscention'];
  Rec.Climbers:=???????????????????????
.....................

gпомогите плиз :(
PM MAIL   Вверх
Rodman
Дата 13.10.2007, 14:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



Код

var
  Rec: TDbTableRecord;
begin
  aDBTable.RecNo:=LineNum;//aDBTable: TADOTable;
  Rec.LabelAscention:=aDBTable.FieldValues['LabelAscention'];
  Rec.Climbers:=aDBTable.FieldValues['Climbers'];

если у тебя поле МЕМО в базе, то должно нормально работать как я предложил...

если не получиться - пиши ошибку!

ЗЫ: какой тип поля которого ты хочешь кинуть в это поле?
PM MAIL WWW Skype GTalk YIM MSN   Вверх
ilyuha
Дата 13.10.2007, 14:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 111
Регистрация: 10.7.2007

Репутация: нет
Всего: нет



выдало
 [Error] DBDataModule.pas(36): Incompatible types: 'TStringList' and 'Variant'
:'(

Это сообщение отредактировал(а) ilyuha - 14.10.2007, 11:10
PM MAIL   Вверх
ilyuha
Дата 13.10.2007, 14:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 111
Регистрация: 10.7.2007

Репутация: нет
Всего: нет



может есть какой-нить другой способ? smile  smile  smile 
PM MAIL   Вверх
ilyuha
Дата 14.10.2007, 11:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 111
Регистрация: 10.7.2007

Репутация: нет
Всего: нет



может через сиквел запрос можно?
поиогите плиз smile  smile 
PM MAIL   Вверх
Rodman
Дата 15.10.2007, 08:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



каков тип поля в базе?
PM MAIL WWW Skype GTalk YIM MSN   Вверх
ilyuha
Дата 15.10.2007, 17:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 111
Регистрация: 10.7.2007

Репутация: нет
Всего: нет



Rodman, базы еще даже нет. оогна создается в процессе выполнения или же открываеца ранее созданая.

Rodman, помоги плизззз...
PM MAIL   Вверх
Rodman
Дата 16.10.2007, 08:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



Цитата(ilyuha @  15.10.2007,  17:54 Найти цитируемый пост)
оогна создается в процессе выполнения или же открываеца ранее созданая.

е мае... ну ты же таблицы создаешь?!
PM MAIL WWW Skype GTalk YIM MSN   Вверх
SergeBS
Дата 16.10.2007, 10:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1111
Регистрация: 10.6.2005
Где: Владимир

Репутация: 11
Всего: 22



ilyuha, 
А может обойдешься без изобретения велосипеда? Возьми классическую СУБД и не парься. Поскольку один черт ни нормальной структуры, ни нормальных алгоритмов поиска, вставки, редактирования и т.п. не сделаешь. 
PM MAIL   Вверх
ilyuha
Дата 16.10.2007, 13:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 111
Регистрация: 10.7.2007

Репутация: нет
Всего: нет



Rodman, ну дык, в процессе создания проги она же не будет еще подключена smile т.е копилятор же не будет "знать  тип поля и будет выдавать ошибку.... или нет? обьясните пожалуйста smile 

SergeBS, действительно, нах что-то писать? уже все написано до нас мелкомягкими. так кинем же это дурное дело, правда? smile 
просто, это задание по курсачу. к тому же, я первый  раз работаю с ADO и просто хочу разобраться.

Цитата(SergeBS @  16.10.2007,  10:27 Найти цитируемый пост)
Поскольку один черт ни нормальной структуры, ни нормальных алгоритмов поиска, вставки, редактирования и т.п. не сделаешь.  

это понимать как оскорбление? smile  зачем так строго судить? просто, первый опыт работы с БД оказался, для меня, весьма непростым, и, поэтому, я попросил у вас помощи в разъяснении некоторых вопросов smile  
PM MAIL   Вверх
Rodman
Дата 16.10.2007, 13:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



Цитата(ilyuha @  16.10.2007,  13:08 Найти цитируемый пост)
ну дык, в процессе создания проги она же не будет еще подключена

смари...

тебе нужно сделать такие этапы:
1. создать базу
2. создать в ней таблицы
3. заполнить таблицы
4. и работать с данными

а я увидел только 4 пункт... и как первые 3 себя ведут не представляю...

надо полный проект глянуть!
PM MAIL WWW Skype GTalk YIM MSN   Вверх
pseud
Дата 16.10.2007, 13:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 16
Всего: 40



Rodman, немножко не так
надо бы Climbers.Text:
Код

var
  Rec: TDbTableRecord;
begin
  aDBTable.RecNo := LineNum;
  Rec.LabelAscention := aDBTable.FieldValues['LabelAscention'];
  Rec.Climbers.Text:= aDBTable.FieldValues['Climbers'];


Добавлено через 2 минуты и 18 секунд
--
а точнее так:

Код

var
  Rec: TDbTableRecord;
begin
  aDBTable.RecNo := LineNum;
  Rec.LabelAscention := aDBTable.FieldValues['LabelAscention'];
  Rec.Climbers := TStringList.Create;
  Rec.Climbers.Text:= aDBTable.FieldValues['Climbers'];



--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
ilyuha
Дата 16.10.2007, 14:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 111
Регистрация: 10.7.2007

Репутация: нет
Всего: нет



pseud, все работает, ошибка исчезла smile 

ВСЕ, дело сдвинулось с мертвой точки smile 

спасибо всем ОГРОМНОЕ и мой большой респект smile 
вы мну спасли smile 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »


 




[ Время генерации скрипта: 0.0530 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.