Модераторы: 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   Вверх
RezchiK
Дата 29.1.2009, 01:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Значение из LEZnak считываться должно...
PM MAIL ICQ   Вверх
Dmi3ev
Дата 29.1.2009, 01:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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

Значение из LEZnak считываться должно... 

я понимаю, попробуй сначала просто запрос статичный выполнить, просто мало ли что...
а потом мы осилим и лезнак твой... обещаю)))


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


Новичок



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

Репутация: нет
Всего: нет
Откомпилировал в дбедитах выдаёт первое значение из таблицы
PM MAIL ICQ   Вверх
Dmi3ev
Дата 29.1.2009, 01:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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

FMain.QSelectAvto.SQL.Add('Select Znak, Marka FROM AvtoTable WHERE YOUR_FIELD="'+Edit1.Text+'";');

пиши, когда сделаешь, что да как...


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


Новичок



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

Репутация: нет
Всего: нет
В дведитах указал татасорс и датафилд, дата сорс подкл к таблице
Если FMain.QSelectAvto.SQL.Add('Select Znak, Marka FROM AvtoTable where Znak="'+LEZnak.Text+'";');
user posted image

А еслиFMain.QSelectAvto.SQL.Add('Select Znak, Marka FROM AvtoTable where Znak:=LEZnak.Text');
user posted image

и в обоих случаях указывает на строку FMain.QSelectAvto.Close;

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


Эксперт
***


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

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

В дведитах указал татасорс и датафилд, дата сорс подкл к таблице

1) а какого ты датасорс подключил к таблице, если тебя интересует запрос?
2) какого ты в  дбэдитах указал датафилд? ты прикинь:
Код

FMain.QSelectAvto.Close;
FMain.QSelectAvto.SQL.Clear;

этот код стирает напрочь все из запроса, а у дбэдитов оттуда данные берутся, лажа, надо программно, как у меня, а еще лучше перед выполнением делать вот так (перед очищением запроса, те строки, которые выше)
Код

DBEdit1.DataField='';
DBEdit2.DataField='';

я не очень дельфи помню, так что извиняй, если что.
давай, не тупи, хотя ночь... ща быстренько зафигачим...

Добавлено через 3 минуты и 6 секунд
PS я, надеюсь,  ты запрос пишешь программно, а не в инспекторе объектов. Надо пробовать, ваще, то, что я написал должно работать, только надо немного подумать... Типы данных у этих полей тоже напиши на всякий...

Добавлено через 10 минут и 40 секунд
Цитата

А еслиFMain.QSelectAvto.SQL.Add('Select Znak, Marka FROM AvtoTable where Znak:=LEZnak.Text');

:= это прикол Delphi (Pascal), а не sql, не надо микс пытаться сделать..


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


Новичок



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

Репутация: нет
Всего: нет
У нас почти 7 утра, я ужо сутки не сплю,так что поттупливать это естественноsmilesmilesmile

Добавлено через 6 минут и 25 секунд
ошибку выдаёт: неправильно определён объект Parametr. Представлены несовместимые сведения...
PM MAIL ICQ   Вверх
Dmi3ev
Дата 29.1.2009, 02:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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

ошибку выдаёт: неправильно определён объект Parametr. Представлены несовместимые сведения... 

конкретно давай:
1) что ты понаписал там за процедуру
2) что он конкретно пишет, неужели прям так вот и пишет на русском???
сделаем, не ... (бойся)



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


Новичок



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

Репутация: нет
Всего: нет
В DataSource1 выставил
DataSet:QSelectAvto

В QSelectAvto(ADOQuery) выставил
Connection:DM.ADOConnection1

FMain.DataSource1.DataSet:=QSelectAvto;
FMain.QSelectAvto.Close;
FMain.QSelectAvto.SQL.Clear;
FMain.QSelectAvto.SQL.Add('Select Znak, Marka FROM AvtoTable where Znak:=LEZnak.Text');
FMain.QSelectAvto.Open;
FMain.DBEZnak.DataField:='Znak';
FMain.DBMarka.DataField:='Marka';

вот мои зладеянияsmilesmilesmile

А вот ошибка
user posted imageuser posted image

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


Эксперт
***


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

Репутация: 5
Всего: 41
слушай, еще идея! не знаю, как на дельфи, примерно так должно быть, даже скорее всего так
запрос пишешь такой
'Select Znak, Marka FROM AvtoTable where Znak=:MYP'
не программно, а прямо в свойствах, а потом программно только
Код

ADOQuery1.ParamByName('MYP')=Edit1.Text;
ADOQury.Open;

это лучше всего будет, не надо даже будет стирать запрос, еще чего-то... можно тогда руками и датафилды задать, и датасорс, и ...



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


Новичок



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

Репутация: нет
Всего: нет
Так мне  
Код

FMain.QSelectAvto.SQL.Add('Select Znak, Marka FROM AvtoTable where Znak="'+LEZnak.Text+'";');
 или 
Код

FMain.QSelectAvto.SQL.Add('Select Znak, Marka FROM AvtoTable where Znak:=LEZnak.Text');
 писать???
PM MAIL ICQ   Вверх
Dmi3ev
Дата 29.1.2009, 02:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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

FMain.QSelectAvto.SQL.Add('Select Znak, Marka FROM AvtoTable where Znak:=LEZnak.Text');

ты читаешь мои сообщения или нет вот это
Znak:=LEZnak.Text
никогда не заработает, я же написал, как надо
FMain.QSelectAvto.SQL.Add('Select Znak, Marka FROM AvtoTable where Znak="'+LEZnak.Text+'";');
вот так есть шансы

Добавлено через 3 минуты и 44 секунды
Цитата

Так мне  
Выделить всёкод Pascal/Delphi
1:
    
FMain.QSelectAvto.SQL.Add('Select Znak, Marka FROM AvtoTable where Znak="'+LEZnak.Text+'";');
 или 
Выделить всёкод Pascal/Delphi
1:
    
FMain.QSelectAvto.SQL.Add('Select Znak, Marka FROM AvtoTable where Znak:=LEZnak.Text');
 писать??? 

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

Добавлено через 7 минут и 35 секунд
еще типы данных у полей сообщи???


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


Новичок



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

Репутация: нет
Всего: нет
Select Znak, Marka FROM AvtoTable where Znak=:MYP в инспекторе записал

FMain.DataSource1.DataSet:=QSelectAvto;
FMain.QSelectAvto.Close;
FMarshAdd.QSelectNazn.Parameters.ParamByName('MYP').Value:=LEZnak.Text;
FMain.QSelectAvto.Open;
FMain.DBEZnak.DataField:='@Znak';
FMain.DBMarka.DataField:='@Marka';
FMain.QSelectAvto.Close;

выдаёт ошибку обращения к адресу...

Добавлено через 3 минуты и 42 секунды
FMain.DBEZnak.DataField:='@Znak';
FMain.DBMarka.DataField:='@Marka'; 
так тоже не канает, точнее с @перед полем
PM MAIL ICQ   Вверх
Dmi3ev
Дата 29.1.2009, 02:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 5
Всего: 41
вот так попробуй
Код

ADOQuery1.ParamByName('MYP').AsString=Edit1.Text;

а почему с собаками?
Цитата

FMain.DBEZnak.DataField:='@Znak';
FMain.DBMarka.DataField:='@Marka';

я просто не дельфист, интересуюсь... где такое нарыл???

Добавлено @ 02:26
так не катит?
Код

FMain.DBEZnak.DataField:='Znak';
FMain.DBMarka.DataField:='Marka';


Цитата

ADOQuery1.ParamByName('MYP').AsString=Edit1.Text;

это лажа, у тебя все верно, я просто на с++ перехожу))) случайно)))
Код

FMarshAdd.QSelectNazn.Parameters.ParamByName('MYP').Value:=LEZnak.Text;


давай быстрей пробуй, ща сделаем...

Это сообщение отредактировал(а) Dmi3ev - 29.1.2009, 02:29


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


Новичок



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

Репутация: нет
Всего: нет
@Znak это переменная, а Znak это поле...со AsString не канает
PM MAIL ICQ   Вверх
Dmi3ev
Дата 29.1.2009, 02:30 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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

так тоже не канает, точнее с @перед полем 

откуда ты взял, что надо это ставить??? перед названием поля??? не надо этого, скорее всего...

Добавлено через 8 минут и 37 секунд
и так все пошагово
Код

FMain.DataSource1.DataSet:=QSelectAvto;
FMain.QSelectAvto.Close;//закрыли
FMarshAdd.QSelectNazn.Parameters.ParamByName('MYP').Value:=LEZnak.Text;//задали параметр
FMain.QSelectAvto.Open;//выполнили
FMain.DBEZnak.DataField:='Znak';//здесь будет отображаться поле znak
FMain.DBMarka.DataField:='Marka';//здесь будет отображаться поле marka
FMain.QSelectAvto.Close;//это можно не писать

вроде все логично


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


Новичок



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

Репутация: нет
Всего: нет
Ты не дельфинист, а я вообще резчик, я резать люблюsmilesmilesmile
@ ставится, когда передаем значения для переменных, хранимой  какой-то процедурой... 
Блин, спасибо большое, выручил-заработало всё))) Буду по остальным табл поиск доделывать...

Добавлено через 2 минуты и 35 секунд
Огромнейшее спасибо за внимание!!!
PM MAIL ICQ   Вверх
Dmi3ev
Дата 29.1.2009, 02:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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

@ ставится, когда передаем значения для переменных, хранимой  какой-то процедурой... 

1) а ты зачем влепил, хранимые процедуры обычно - триггеры...  а у тебя поиск, они тут при чем?
2) какие тут переменные, если у тебя имена полей задаются?
Цитата

Блин, спасибо большое, выручил-заработало всё))) Буду по остальным табл поиск доделывать...

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


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


Новичок



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

Репутация: нет
Всего: нет
Просто от безисходности решил собак на них спуститьsmilesmilesmile
Посмотри внимательно на 3 строчку кода  в посте что повышеsmilesmilesmile Когда пробовали по другому решить проблему: 
Код

FMain.QSelectAvto.SQL.Add('Select Znak, Marka FROM AvtoTable where Znak="'+LEZnak.Text+'";');

форма была указана правильно, а потом по не знаю каким обстоятельствам он помнялась smile  smile  smile 
 Мораль такова: не нарушайте режим сна, а то простого не заметите!!!smilesmilesmile

Вот рабочий код:
Код

FMain.DataSource1.DataSet:=QSelectAvto;
FMain.QSelectAvto.Close;//закрыли
FMain.QSelectAvto.Parameters.ParamByName('MYP').Value:=LEZnak.Text;//задали параметр
FMain.QSelectAvto.Open;//выполнили
FMain.DBEZnak.DataField:='Znak';//здесь будет отображаться поле znak
FMain.DBMarka.DataField:='Marka';//здесь будет отображаться поле marka




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


Эксперт
***


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

Репутация: 5
Всего: 41
Тупо, а я даже это не смотрел, думал уже, что можно совсем заново садиться за дельфи, думал, даже это не знаю, как сделать, хотя на с++ такое автоматом пишу, хорошо, что не совсем я того... удачи, пока.. а я и правда спать)))


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


Бывалый
*


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

Репутация: нет
Всего: нет
Во-первых, если результат в едитах то:
Цитата

"Select Znak, Marka from AvtoTable where Znak=:Par1"

будет:
"Select Znak from AvtoTable where Znak=:Par". Зачем еще поле Marka?

Во-вторых, почему присваивание пишешь Znak=:Par1, а не Znak:=Par1

В-третьих, лучше в скобках:

Select Znak, Marka from AvtoTable where (Znak:=Par1)

причем Par1 должен быть в апострофах 

Select Znak, Marka from AvtoTable where (Znak:='Par1')

если значение берешь из едита, тогда так

Код

FMain.QSelectAvto.SQL.Add('SELECT znak FROM avtotable WHERE znak:=' + char(39) + edit1.text + char(39));


конечный результат:

Код

FMain.QSelectAvto.SQL.Add('SELECT * FROM avtotable WHERE znak like ' + char(39) + edit1.text + char(39));

 smile 

Ylken Sory! Не сразу заметил что топик на три страницы! Опоздал конкретно...

Это сообщение отредактировал(а) Sanek123 - 1.6.2009, 22:45
--------------------
Вас разыскивают бойцы 139-го порта...
PM MAIL   Вверх
Страницы: (3) [Все] 1 2 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

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


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

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

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

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


 




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


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

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