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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Delphi] Реализация поиска через ADOQuery 
V
    Опции темы
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   Вверх
Страницы: (3) Все 1 [2] 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

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


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

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

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

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


 




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


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

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