VPF::Вывод данных из таблицы в ListBox,работа с записям

Tror

Дата 17.4.2006, 11:15 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 193
Регистрация: 29.4.2005
Где: Кишинёв

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

Доброго дня всем smile

Berliner,
приведи пожалуйста полный код процедуры в которой выполняется запрос

--------------------

Не говори всегда что знаешь, но знай всегда что говоришь. /Клавдий/============================================Кто может -- тот делает. Кто не может... тот получает сертификат MCSE ;)

Berliner

Дата 17.4.2006, 12:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Спасибо вот код

Код


procedure TForm2.ListBox1Click(Sender: TObject);
//on click takes all information about toppings
begin

       k:=ListBox1.ItemIndex;
        s:=ListBox1.Items.Strings[k];


            Form1.Query1.Close;
            Form1.Query1.SQl.Clear;
            Form1.Query1.SQL.Add('select topping from package where code=:toppingParam');

            Form1.Query1.Params.ParseSQL(Form1.Query1.SQL.Text, True);
            Form1.Query1.ParamByName('toppingParam').AsString:=s;
            Form1.Query1.Open;

        code:=Form1.Query1.Fields[0].AsString + '  ';
Пошогово переменной code -значение правильное.
        topping:=Form1.Query1.Fields[1].AsString + '  ';
        base:=Form1.Query1.Fields[2].AsString+' ';
        size:=Form1.Query1.Fields[3].AsString;
        price:=Form1.Query1.Fields[4].AsString;
        AddResult:=code+topping+price;


end;

end.

Tror

Дата 17.4.2006, 13:29 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 193
Регистрация: 29.4.2005
Где: Кишинёв

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

ну ты и приколист smile

Цитата(Berliner @ 17.4.2006, 12:13

)

Код


'select topping from package where code=:toppingParam'

ничего странного в твоей ошибке нет.
ведь ты выбираешь всего один столбец topping, а где все остальные?

Код


'select topping, base, size, price и т.д. from package where code=:toppingParam'

--------------------

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