Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > C++ Builder > [подскажите новичку] Вывод данных с БД

Автор: defender 24.6.2008, 00:15

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

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.
подскажите пожалуйста, как реализовать задумку?

Автор: Данкинг 24.6.2008, 00:54

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

Код


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

Автор: defender 24.6.2008, 00:59

а можно подробнее, я си 2 дня знаю, просто задание дал преподаватель, и сказал, чтобы только на билдере писали smile

Автор: Данкинг 24.6.2008, 02:15

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

Автор: orthrus 24.6.2008, 04:39

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

Автор: defender 24.6.2008, 07:07

Цитата(Данкинг @ 24.6.2008, 02:15

)

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

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

Автор: vikaz 24.6.2008, 07:42

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

Автор: defender 24.6.2008, 08:42

vikaz, спаситель smile

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

Автор: defender 24.6.2008, 09:06

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

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

А есть ли возможность например вывести значение какого-либо найденного поля?
Что-то вроде
Edit1->Text = IntToStr(Query1.Price);

Автор: 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();

Автор: petlyura 24.6.2008, 13:19

Цитата(vikaz @ 24.6.2008, 09:47)

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

Код


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

Автор: defender 26.6.2008, 05:31

есть два 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();



}