Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Почему может не работать Locate?

Страницы: 1 2 >
Шаповалов Кирилл © (2003-06-02 10:54:00)
Возникла ситуация что Locate не желает работать. Причина мне не ясна, т.к. аналогичный код работает в соседней форме.
Поиск ведётся по первичному ключу. Параметр берётся из другого запроса. Причем, если вместо параметра установить конкретное значение - работает. Хотелось бы узнать
1) Где грабли могут быть
2) Есть ли альтернатива Locate. Т.е. необходимо найти запись по перв. ключю. и сделать её активной.

Большое спасибо.

Шаповалов Кирилл (2003-06-03 12:06:00) [1]
Zacho ©
Спасибо! Про GotoKey я запамятовал совсем.
Соловьев ©
Тоже отдельное спасибо.

Соловьев (2003-06-03 12:04:00) [2]

> возможно получится, ведь такой запрос установит курсор именно
> на запись. да.

тебе надо будет повесить на обработку клика по гриду показ формы, а данные о студенте с заданым ID, выдаст запрос Query2

Zacho (2003-06-03 12:04:00) [3]

> Шаповалов Кирилл (03.06.03 11:59)
> точно есть

Тогда Locate долженработать. Проверь еще раз, протрассируй, посмотри что в old_id и есть ли запись с таким ID tblStudent.
Кстати, если tblStudent - TTable а по ID есть индекс, то вместо Locate можно использовать GotoKey. В хелпе есть пример.

Шаповалов Кирилл (2003-06-03 11:59:00) [4]
Zacho ©
точно есть
Соловьев ©
попробую через запрос.
возможно получится, ведь такой запрос установит курсор именно на запись. да.

Соловьев (2003-06-03 11:54:00) [5]

> tblStudent

какя еще инфа выводится, которой нет в q_stud?
А зачем ты делаешь Locate? не проще ли выполнить еще один запрос?
select *
from student
where id=:id
а в проге на реакцию q_stud.AfterScroll:
with Query2 do begin Close; ParamByName("id").AsInteger := DataSet.FieldByName("id").AsInteger; Open end;

Zacho (2003-06-03 11:54:00) [6]

> Шаповалов Кирилл (03.06.03 11:48)

Что DataMod.tblStudent.Locate("ID",old_id,[]) не работает ? А в tblStudent точно есть запись с ID равным old_id ?

Шаповалов Кирилл (2003-06-03 11:48:00) [7]
Соловьев ©
q_Stud запрос с результатом из нескольких студентов, а не из одного

Sandman25 ©

ничего не пишет. Я же говорю когда в locate вместо old_id ставить константу - работает.

Zacho ©

scr_q_stud - да. можно всё, пробовал. не работает .

to ALL:
Я вот думаю, проблема, возможно,в том что q_stud - запрос по таблице студентов, т.е. курсор стоит на нескольких записях. И таблица какбы задействована, поэтому не фурычить locate по этой табличке. Такое возможно? Как считаете?

Zacho (2003-06-03 11:32:00) [8]

> Шаповалов Кирилл (03.06.03 11:20)

src_q_stud - это DataSource, к которому подключен q_Stud ?
А зачем так сложно DataMod.src_q_stud.DataSet.FieldByName("ID").asiNTEGER ? Можно просто DataMod.q_stud.FieldByName("ID").asiNTEGER
Да и втовем случае вообще достаточно Locate("ID",old_id,[]);

Sandman25 (2003-06-03 11:30:00) [9]
>Разобрался что в "это время" навигация не осуществляется. Даже методами next prev и т.п.

А что пишет? Dataset not active?

Соловьев (2003-06-03 11:29:00) [10]

> q_stud запрос по таблице tblStudent, ищет студентов по фамилии
> и т.п. , тыкаешь в dbgrid, открывается окно с информацией
> по конкретному студенту. для это ищу d tblStudent такой
> же id как у записи из q_stud на которую кликнули

зачем Locate? у тебя уже автоматически стоит курсор на нужной записи. выведи форму просто с DBText-ми

Шаповалов Кирилл (2003-06-03 11:20:00) [11]
Zacho ©
q_stud запрос по таблице tblStudent, ищет студентов по фамилии и т.п. , тыкаешь в dbgrid, открывается окно с информацией по конкретному студенту. для это ищу d tblStudent такой же id как у записи из q_stud на которую кликнули

Соловьев (2003-06-03 11:20:00) [12]

> ORDER BY Student.Familiya, Student.Imya, Student.Otchestvo

а зачем?

Zacho (2003-06-03 11:16:00) [13]

> Шаповалов Кирилл (03.06.03 11:13)

Странно как-то. Запрос ты делаешь в q_Stud, а Locate - в tblStudent. Похоже в этом и грабли

Шаповалов Кирилл (2003-06-03 11:13:00) [14]
Имеется запрос:

SELECT Student.ID,Student.Familiya, Student.Imya, Student.Otchestvo, Gruppa.GroupName
FROM "Student.DB" Student
INNER JOIN "Gruppa.DB" Gruppa
ON (Student.GroupID = Gruppa.ID)
WHERE (Student.Familiya LIKE :prmFam)
AND (Student.Imya LIKE :prmIm)
AND (Student.Otchestvo LIKE :prmOtch)
ORDER BY Student.Familiya, Student.Imya, Student.Otchestvo

вызывается он сл. кодом

with DataMod do
begin
q_Stud.close;
q_Stud.ParamByName("prmFam").asString:=RusUpCase(Edit1.text)+"%";
q_Stud.ParamByName("prmIm").asString:=RusUpCase(Edit2.text)+"%";
q_Stud.ParamByName("prmOtch").asString:=RusUpCase(Edit3.text)+"%";
q_stud.Open;
Label5.Caption:=inttostr(q_stud.REcordCount);
if q_stud.REcordCount<>0 then DBgrid1.Enabled:=true;
end;
end;

Результат выводится в DBGrid. после чего обрабатывается клик на строку DBGrid таким образом

IF DataMod.src_q_stud.DataSet.FieldByName("ID").asiNTEGER=old_id then
begin
Form8:=TForm8.Create(Application);
// ЭТО ВРЕМЯ!
DataMod.tblStudent.Locate("ID",DataMod.src_q_stud.DataSet.FieldByName("ID").asiNTEGER,[]);
end
else old_id:=DataMod.src_q_stud.DataSet.FieldByName("ID").asiNTEGER;

где Form8 - форма выводящая инфу по студенту.

Проблема в том что не работает. :] Разобрался что в "это время" навигация не осуществляется. Даже методами next prev и т.п.

Соловьев (2003-06-03 11:10:00) [15]
я забыл твой код тот что ты утром приводил, повтори.

Шаповалов Кирилл (2003-06-03 11:02:00) [16]
Соловьев ©
1) TblStudent"а чего ж ещё. не фурычит кароче.

DataMod.tblStudent.Locate("ID",DataMod.q_stud.FieldByName("ID").asiNTEGER,[]);
И чего? он установит курсор на запись в запросе. а форме8 там всё из tblStudent берётся.

Sandman25 (2003-06-02 11:50:00) [17]
Соловьев © (02.06.03 11:35)

Я ошибся. У Вас было очень необычно написано, и я запутался.
Я обычно проверяю на сравнение.
while not Eof do
begin
if Table1Field.Value = aValue then
Break;
Next;
end;

Соловьев (2003-06-02 11:35:00) [18]

> Нет. Иначе после первого же элемента произойдет Abort.

если бы было =, то да.

Соловьев (2003-06-02 11:32:00) [19]

> Zacho © (02.06.03 11:29

может :) не проверял... писал с головы...:)

Sandman25 (2003-06-02 11:32:00) [20]
VAleksey © (02.06.03 11:17)

Согласен, что для Table нужно задействовать Index. Кстати, можно попробовать двигаться бинарным делением и MoveBy.
Ну а если у нас Query и не упорядочен по искомому полю, то можно только моим "кофейным" способом :)

Соловьев © (02.06.03 11:21)

Нет. Иначе после первого же элемента произойдет Abort.

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »