Поиск:

Ответ в темуСоздание новой темы Создание опроса
> вопрос по SQL, выборка данных по запросу 
:(
    Опции темы
tatianacherepananova
Дата 14.3.2009, 23:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



При щелчке по кнопке выскакивает форма, на ней в Edit пользователем вводятся данные. 
Затем формируется запрос выскакивает отчет с данными из запроса. Пишу:

Код

Formdanie->Tag=0; // форма для ввода данных
Formdanie->ShowModal();
if (Formdanie->Tag)
{ 
  DataModule1->QOKR->SQL->Text+ Formdanie->Edit1->Text+"017%";
  if (CheckBox1-> Checked)
    ShowMessage (DataModule1->QOKR->SQL->Text);
  DataModule1->QOKR->Open();
  if (DataModule1->QOKR->RecordCount !=0)
    DataModule1->DataSource6->DataSet= DataModule1->QOKR;
  else
  { 
    ShowMessage (" Нет в базе: "+Formdanie->Edit1->Text);
    DataModule1->DataSource6->DataSet=DataModule1-> QOKR;
  }
}
FormOKRot->QuickRep1->Preview();


Текст запроса QOKR :

Код

SELECT 
  Okr.NDog, Okr.NazvOKR, Okr.SKB, Okr.Planovik, Okr.Nzakaza, Okr.TrudObchaj, 
  Itap.NItap, Itap.TrudPlanzaItap, Itap.DataNach, Itap.DataOconPlan, Itap.DataZakrFakt, Itap.NaktaZakr, Itap.Mecaz, 
  Tru.TrudPlan, Tru.TrudFakt
FROM "okr.DB" Okr
INNER JOIN "Itap.DB" Itap
ON (Okr.NDog = Itap.Ndog) 
INNER JOIN "TRU.DB" Tru
ON (Itap.Ndog = Tru.NomDog) 
AND (Itap.NItap = Tru.NItap) 
WHERE Okr.SKB LIKE '017%'


Помогите, не работает так, как надо- при нажатии кнопки выскакивает отчет- там все данные из таблицы QOKR, а должны быть только те данные, которые пользователь запросил в окне Edit


M
dumb
Татьяна, будьте так добры, используйте кнопку "Код" для оформления исходных текстов


Это сообщение отредактировал(а) dumb - 17.3.2009, 22:08
PM MAIL   Вверх
Данкинг
Дата 14.3.2009, 23:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

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



Что-то я вот этого не понял:
Код

DataModule1->QOKR->SQL->Text+ Formdanie->Edit1->Text+"017%"


Это сообщение отредактировал(а) Данкинг - 14.3.2009, 23:29


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


Новичок



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

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



DataModule1->QOKR->SQL->Text+ Formdanie->Edit1->Text+"017%"- мне надо чтобы когда я в Edit1 ввожу какое-то число и кликаю на окей у меня автоматом выскакивал отчет, а в нем данные сгруппированные по моему запросу в Edit1
PM MAIL   Вверх
Anikmar
Дата 15.3.2009, 21:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

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



Цитата(tatianacherepananova @  15.3.2009,  21:52 Найти цитируемый пост)
DataModule1->QOKR->SQL->Text+ Formdanie->Edit1->Text+"017%"- мне надо чтобы когда я в Edit1 ввожу какое-то число и кликаю на окей у меня автоматом выскакивал отчет, а в нем данные сгруппированные по моему запросу в Edit1 

tatianacherepananova, Данкинг не об этом.
Посмотрите внимательно на строчку:

DataModule1->QOKR->SQL->Text+ Formdanie->Edit1->Text+"017%"
                                                    ^^^^

В строке нет оператора присваивания

PM MAIL ICQ   Вверх
tatianacherepananova
Дата 17.3.2009, 19:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



не знаю надо ли туда оператор присваивания лепить, но вот так работает:
void __fastcall TFormOKR::Button1Click(TObject *Sender)
{
Formdanie->Tag=0;
Formdanie->ShowModal();
       if   (Formdanie->Tag)
   {  DataModule1->QOKR->SQL->Text=
   "SELECT Okr.NDog, Okr.NazvOKR, Okr.SKB, Okr.Planovik, Okr.Nzakaza, Okr.TrudObchaj, Itap.NItap, Itap.TrudPlanzaItap, Itap.DataNach, Itap.DataOconPlan, Itap.DataZakrFakt, Itap.NaktaZakr, Itap.Mecaz, Tru.TrudPlan, Tru.TrudFakt FROM okr.DB Okr  INNER JOIN Itap.DB Itap   ON  (Okr.NDog = Itap.Ndog)   INNER JOIN TRU.DB Tru      ON  (Itap.Ndog = Tru.NomDog)     AND  (Itap.NItap = Tru.NItap)   WHERE  Okr.SKB LIKE \042%"+ Formdanie->Edit1->Text + "%\042";
                       if (CheckBox1-> Checked)
    ShowMessage (DataModule1->QOKR->SQL->Text);
          DataModule1->QOKR->Open();
         if (DataModule1->QOKR->RecordCount !=0)
    DataModule1->DataSource6->DataSet= DataModule1->QOKR;
          
         else
    { ShowMessage (" Íåò â áàçå: "+Formdanie->Edit1->Text);
      DataModule1->DataSource6->DataSet=DataModule1-> QOKR;
      }
      }
      FormOKRot->QuickRep1->Preview();
 }
но!!!!
при вводе новых данных в таблицу -  запрос их не видит.Почему?
PM MAIL   Вверх
Anikmar
Дата 17.3.2009, 20:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

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



Цитата(tatianacherepananova @  17.3.2009,  19:52 Найти цитируемый пост)
не знаю надо ли туда оператор присваивания лепить, но вот так работает:

А сами взяли и влепили.

Было:
Цитата(tatianacherepananova @  15.3.2009,  21:52 Найти цитируемый пост)

...>SQL->Text+ Formdanie->...

Стало:
Цитата(tatianacherepananova @  17.3.2009,  19:52 Найти цитируемый пост)

...SQL->Text=
  "SELECT O
...

Не чувствуете разницу?

Пользуйтесь тегом Код, читать тяжело.
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

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

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

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

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


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

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


 




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


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

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