Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 2 361

/ вопрос открыт /

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

Зарание большое благодарю!!!

RezchiK Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: RezchiK (статус: Посетитель)
Вопрос отправлен: 28 января 2009, 22:34
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 3; последнее сообщение — 29 января 2009, 14:56; участников в обсуждении: 2.
RezchiK

RezchiK (статус: Посетитель), 28 января 2009, 23:09 [#1]:

Добавил DataSource и DBEdit 2 штуки, всё связал, только вот sql запрос не могу сформировать правильно

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(тут и стопорнулся)
Вадим К

Вадим К (статус: Академик), 29 января 2009, 12:19 [#2]:

ну судя по всему
FMain.QSelectAvto.SQL.Add('Select Znak, Marka from AvtoTable where Znak="'+edit1.text+'"');
правда вместо edit1.text лучше как минимум написать ReplaceString(Edit1.text, '"', '""'); (это называется экранированием кавычек. без этого может быть очень прохо базе.)
Галочка "подтверждения прочтения" - вселенское зло.
RezchiK

RezchiK (статус: Посетитель), 29 января 2009, 14:56 [#3]:

Спасибо, что откликнулись, я сделал так:
FMain.DataSource1.DataSet:=QSelectAvto;
FMain.QSelectAvto.Close;
FMain.QSelectAvto.Parameters.ParamByName('MYP').Value:=LEZnak.Text;
FMain.QSelectAvto.Open;
FMain.DBEZnak.DataField:='Znak';

и в инспекторе: Select Znak, Marka FROM AvtoTable where Znak=:MYP

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:47
Выполнено за 0.02 сек.