Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [подскажите новичку] Вывод данных с БД 
:(
    Опции темы
defender
Дата 24.6.2008, 00:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Делаю семестр. работу.
Необходимо, чтобы при выборе категорий товаров слева, отображались товары в категории справа, но что-то никак не получается.

user posted image

Решил сделать так :
Код

void __fastcall TForm1::Table1AfterScroll(TDataSet *DataSet)
{
   if(Table1->RecNo != 0) {
        int Nomer=Table1->RecNo;
        Edit1->Text = IntToStr(Nomer);
        Query1->SQL->Text = "SELECT * FROM shop_tov WHERE Cat_ID LIKE \"" + IntToStr(Table1->RecNo)+"\" ";
        ShowMessage (Query1->SQL->Text);
        Query1->Open();

        }
}


я так полагаю дело в запросе?
Ошибка Type mismatch in expression.
подскажите пожалуйста, как реализовать задумку?


Это сообщение отредактировал(а) defender - 24.6.2008, 00:41
PM MAIL   Вверх
Данкинг
Дата 24.6.2008, 00:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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



Не понял, а зачем в запросе слэши ? И попробуй лучше с параметрами, как-нибудь так:

Код

Query1->SQL->Text = "SELECT * FROM shop_tov WHERE Cat_ID =:par1";
Query1->Parameters->ParamByName("par1").Value=IntToStr(Table1->RecNo);





--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
defender
Дата 24.6.2008, 00:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



а можно подробнее, я си 2 дня знаю, просто задание дал преподаватель, и сказал, чтобы только на билдере писали  smile 
PM MAIL   Вверх
Данкинг
Дата 24.6.2008, 02:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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



А что подробнее-то, вот мой пример попробуй.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
orthrus
Дата 24.6.2008, 04:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 400
Регистрация: 30.10.2007
Где: г. Усть-Илимск(Ир кутская обл.)

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



Можно и без использования SQL, через свойства DataSet-а MasterFields и LinkedFields


--------------------
У того, кто ничего не делает, всегда много помощников.© Л.Н. Толстой
user posted image
PM MAIL ICQ   Вверх
defender
Дата 24.6.2008, 07:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Цитата(Данкинг @  24.6.2008,  02:15 Найти цитируемый пост)
А что подробнее-то, вот мой пример попробуй.

[C++ Error] Unit1.cpp(38): E2316 'Parameters' is not a member of 'TQuery'
вот, что выдает


PM MAIL   Вверх
vikaz
Дата 24.6.2008, 07:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



попробуй так:
Query1->SQL->Text = "SELECT * FROM shop_tov WHERE Cat_ID='" + IntToStr(Table1->RecNo)+"'";

Это сообщение отредактировал(а) vikaz - 24.6.2008, 07:45


--------------------
user posted image

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/ 
PM MAIL ICQ Skype   Вверх
defender
Дата 24.6.2008, 08:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



vikaz, спаситель  smile  smile и действительно, че я уперся в этот LIKE
спасибо, сейчас пока программу допишу по-любому еще будут вопросы smile

Это сообщение отредактировал(а) defender - 24.6.2008, 08:42
PM MAIL   Вверх
defender
Дата 24.6.2008, 09:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



вот еще один вопрос созрел, вот я считываю в Query1 запрос

Query1->SQL->Text = "SELECT * FROM shop_tov WHERE Cat_ID='" + IntToStr(Table1->RecNo)+"'";

А есть ли возможность например вывести значение какого-либо найденного поля?
Что-то вроде 
Edit1->Text = IntToStr(Query1.Price);
PM MAIL   Вверх
vikaz
Дата 24.6.2008, 09:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



да! После того как ты записал строку SELECT,,,,, и отработалась команда Query1->Open(); доступ к данным можно получить сл. образом.
1. способ: Query1->FieldByName ("допустим Cat_ID")->AsString;
Второй могу написать, но точность команд не могу соблюсти, у меня на работе нет builder'a

2.
чтобы пройтись по всему списку:

Query1->First();
for (int i=0; i<Query1->RecordCount ; i++)
{
Memo1->Lines->Add (Query1->Fields->Fields[0]->AsString);
Query1->Next();
}
Query1->Close();


--------------------
user posted image

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/ 
PM MAIL ICQ Skype   Вверх
petlyura
Дата 24.6.2008, 13:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 162
Регистрация: 30.1.2008
Где: Харьков

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



Цитата(vikaz @ 24.6.2008,  09:47)
да! После того как ты записал строку SELECT,,,,, и отработалась команда Query1->Open(); доступ к данным можно получить сл. образом.
1. способ: Query1->FieldByName ("допустим Cat_ID")->AsString;
Второй могу написать, но точность команд не могу соблюсти, у меня на работе нет builder'a

2.
чтобы пройтись по всему списку:

Query1->First();
for (int i=0; i<Query1->RecordCount ; i++)
{
Memo1->Lines->Add (Query1->Fields->Fields[0]->AsString);
Query1->Next();
}
Query1->Close();

По всему списку можно так:
Код

Query1->Open();
Query1->First();
while (!Query1->Eof)
{
Memo1->Lines->Add (Query1->Fields->Fields[0]->AsString);
Query1->Next();
}
Query1->Close();

PM MAIL   Вверх
defender
Дата 26.6.2008, 05:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



есть два LListView
Подскажите как реализовать, чтобы при нажатии на первом (Категории), высвечивались Товары в другом ListView.

Код

void __fastcall TForm1::ListView1SelectItem(TObject *Sender,
      TListItem *Item, bool Selected)
{


        Query1->SQL->Text =
        "SELECT Cat_ID FROM shop WHERE Cat_Name = \'"+ Item->Caption +"\'";
        Query1->Open();

        Query2->SQL->Text = "SELECT * FROM shop_tov WHERE Catid = \""+Query1->Fields->FieldByName("CAT_ID")) +"\"";
        Query2->Open();

        Query2->First();
        ListView2->Items->Clear();

        while (!Query2->Eof)
        {

                ListView2->Items->Add();
                ListView2->Items->Item[ListView2->Items->Count-1]->Caption = Query1->Fields->Fields[1]->AsString;
                Query2->Next();

        }

        Query1->Close();
        Query2->Close();



}


PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

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

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

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


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

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


 




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


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

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