Модераторы: Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Delphi] Реализация поиска через ADOQuery 
V
    Опции темы
RezchiK
Дата 28.1.2009, 22:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Нид хелп! Загвозка заключается в следующем: не могу "допетрить" организацию поиска...
Есть таблица, три едита и батонsmilesmilesmile В свойстве SQL  ADOQuery пишу след запрос "Select Znak, Marka from AvtoTable where Znak=:Par1"... с первого едита программа считывает текст, ищет его в  "Znak" и если находит искомое значение, то в едит1 и едит2 выдаёт значение полей Znak и Marka
Может кто мыслю подкинет или носом ткнёт куда...

Зарание большое благодарю!!!
PM MAIL ICQ   Вверх
Dmi3ev
Дата 28.1.2009, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 5
Всего: 41
Можно сделать еще проще, ADOQuery связать с DBEdit (тот же Edit только спец. для БД, связывается с полем запроса) и просто выполнять запрос. Даже делать ничего не надо...


--------------------
PM MAIL   Вверх
RezchiK
Дата 28.1.2009, 22:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Ок, сейчас пошаманю, а запрос в квере оставлять и правильно ли я его сформировал???
PM MAIL ICQ   Вверх
Dmi3ev
Дата 28.1.2009, 22:47 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 5
Всего: 41
Цитата

Ок, сейчас пошаманю, а запрос в квере оставлять и правильно ли я его сформировал??? 

что-то типо этого, если кодом делать...
Код

void __fastcall TForm1::Button17Click(TObject *Sender)
{
//связываем с запросом
DataSource2->DataSet=ADOQuery1;
//вот запросец твой (поймешь, думаю, лень было таблицу делать, как у тебя)
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("SELECT KO, AD FROM FLATS WHERE RN='"+Edit1->Text+"';");
ADOQuery1->Open();
//DataSource у Edit
DBEdit1->DataSource=DataSource2;
DBEdit2->DataSource=DataSource2;
//имена полей запроса, которые Edit-ы будут отображать
DBEdit1->DataField="KO";
DBEdit2->DataField="AD";
}
//---------------------------------------------------------------------------

Это при условии, что подключение к бд настроено...

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


--------------------
PM MAIL   Вверх
RezchiK
Дата 28.1.2009, 23:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Да всё уже настроено,  осталось только поиск сделать и отчёт по поиску...такие делаsmilesmilesmile
А можешь ещё запрос на дефях написать...а то я допереть не могу как его написать(только запрос, остальное понял)
FMain.QSelectAvto.SQL.Add(???моя не понимать???) smilesmilesmile

Ручками сорс и дбедит настроил на нужные поля и квериsmilesmilesmile


Это сообщение отредактировал(а) RezchiK - 28.1.2009, 23:09
PM MAIL ICQ   Вверх
Данкинг
Дата 28.1.2009, 23:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: нет
Всего: 130
Цитата(RezchiK @  28.1.2009,  23:03 Найти цитируемый пост)
А можешь ещё запрос на дефях написать..

Что там писать: вместо -> ставишь точки, а вместо = ставишь :=  smile 


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


Новичок



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

Репутация: нет
Всего: нет
2Данкинг, это то ежу понятноsmilesmilesmile у мну на select ругаетьс компилятор. Говорит мол Кубович":)smilesmile
PM MAIL ICQ   Вверх
Данкинг
Дата 28.1.2009, 23:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: нет
Всего: 130
Цитата(RezchiK @  28.1.2009,  23:14 Найти цитируемый пост)
Говорит мол Кубович

Что говорит? Кстати, СУБД какая?


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


Новичок



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

Репутация: нет
Всего: нет
Цитата
у мну на select ругаетьс компилятор. Говорит:"Я мол Кубович" (с)
 компиляторsmilesmilesmile MSSQL 2000

FMain.QSelectAvto.SQL.Add('Select Znak, Marka FROM AvtoTable WHERE а вот дальше то и ступор...

Это сообщение отредактировал(а) RezchiK - 28.1.2009, 23:40
PM MAIL ICQ   Вверх
RezchiK
Дата 29.1.2009, 00:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
В данном случае я не могу на делфи перевесит 
Цитата
RN='"+Edit1->Text+"';"
 Знаю лишь что будет Edit1.Text  smile  smile  smile 
PM MAIL ICQ   Вверх
Данкинг
Дата 29.1.2009, 00:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: нет
Всего: 130
RezchiK, какая ошибка-то, не пойму никак? Что именно не получается?


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


Новичок



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

Репутация: нет
Всего: нет
Данкинг, извени, не правильно выразился. разобрался с ошибкой, просто теперь не могу сделать запрос правильный 
Код

FMain.QSelectAvto.SQL.Add('Select Znak, Marka FROM AvtoTable WHERE а вот дальше то и ступор... 
PM MAIL ICQ   Вверх
Dmi3ev
Дата 29.1.2009, 00:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 5
Всего: 41
давай в дельфи свои изыски. и ошибки покажи какие.


--------------------
PM MAIL   Вверх
RezchiK
Дата 29.1.2009, 00:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
procedure TFMain.Button1Click(Sender: TObject);
begin
If (LEZnak.Text='')
then
begin
ShowMessage('Поле не заполнено!');
exit;
end;
FMain.DataSource1.DataSet:=QSelectAvto;
FMain.QSelectAvto.Close;
FMain.QSelectAvto.SQL.Clear;
FMain.QSelectAvto.SQL.Add('Select Znak, Marka FROM AvtoTable WHERE а вот тут то и ступор');
FMain.QSelectAvto.Open;
дальше алгоритм понятен
PM MAIL ICQ   Вверх
Dmi3ev
Дата 29.1.2009, 00:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 5
Всего: 41
вот так-то круче будет, понятнее)))
Код

procedure TFMain.Button1Click(Sender: TObject);
begin
If (LEZnak.Text='')
then
begin
ShowMessage('Поле не заполнено!');
exit;
end;
FMain.DataSource1.DataSet:=QSelectAvto;
FMain.QSelectAvto.Close;
FMain.QSelectAvto.SQL.Clear;
FMain.QSelectAvto.SQL.Add('Select Znak, Marka FROM AvtoTable;');//для начала вот так напиши
FMain.QSelectAvto.Open;

и так, давай действовать пошагово.
1) т.к. я не работал с mssql (так вот получилось) сделай запрос "SELECT Znak, Marka FROM AvtoTable"
для того чтобы убедится в том, что никаких имен бд, имен таблиц перед полями не надо ставить
2) если это работает, то тогда можно продолжать (если работает dbedit-ы будут заполнены)


--------------------
PM MAIL   Вверх
Страницы: (3) Все [1] 2 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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