مساعدة في هذا الكود

[ابونواف620]

السلام عليكم
لدي فورم للبحث ويوجد بها هذا الكود
declare
cursor curs is
select cam_code
from station_data
where upper(cam_code)like '%' || upper(:view.search) || '%';
n varchar(30);
i number:=0;
begin
open curs;
clear_list ('listview');
loop
fetch curs into n;
exit when curs%notfound;
i:=i+1;
add_list_element('listview',i,n,n);

end loop;

end;
المطلوب أضهار رسالة في حالة عدم وجود رقم المحطة المراد البحث عنها
امل التعديل على الكود اذا فيه خطأ

[BoMazen]

السلام عليكم
الأخ أبو نواف

هل من الممكن أن تعطي شرح أكثر عن عمل الكود

مثال:
1- الجدول station_data ما هي أستخدامته وما هو هيكل الجدول(Columns of the table)
2- في الكود المكتوب بعد فتح الـ CURSOR تقوم بتنظيف حقل listview من القيم هل هذا الحقل non database item؟
3- هل تريد من الكود أن يعرض محطة واحدة او عدة محطات؟

في إنتظار الإجابة

تحياتي
بو مازن

تم تعديل 27 يناير 2006 بواسطة BoMazen

[m_dba]

جرب هذا الكود وانا اسف عشان حاليا ما في عندي sql على كل حال جربه
فورم للبحث ويوجد بها هذا الكود
declare
cursor curs is
select cam_code
from station_data
where upper(cam_code)like '%' || upper(:view.search) || '%';
if sql%notfound then
message('رقم المحطة غير موجود');
end if;
n varchar(30);
i number:=0;
begin
open curs;
clear_list ('listview');
loop
fetch curs into n;
exit when curs%notfound;
i:=i+1;
add_list_element('listview',i,n,n);

end loop;

end;

[ابونواف620]

السلام عليكم
المطلوب هو البحث عن الرقم المدخل في حقل اسمه SEARCH
اذا كان هذا السجل موجود يظهر البيانات في حقل listview وهذا تم بنجاح معاي
بس أريد في حالة عدم وجود الرقم المدخل في الحقل SEARCH طبعا في الجدول
يظهر رسالة بعدم وجود السجل
وشكرا

[أسامة موسى]

الاخ الكريم
اليك الكود بعد التعديل

declare
cursor c is 
select nvl(count(*),0) n
from station_data 
where upper(cam_code)like '%' || upper(:view.search) || '%'

cursor curs is 
select cam_code
from station_data 
where upper(cam_code)like '%' || upper(:view.search) || '%'
n varchar(30);
i number:=0;
num number:=0;
begin
open c;
fetch c into num;
if num >0 then
   open curs;
   clear_list ('listview');
 loop
  fetch curs into n;
  exit when curs%notfound;
   i:=i+1;
     add_list_element('listview',i,n,n);
  end loop;
else
 message('the code not found !!');
 message('the code not found !!');
end if;
end;

[ابونواف620]

تحياتي أخي admin05
جعلها الله في ميزان حسناتك
شكرا المعلومة

[shelmasry]

اخى العزيز اريدك ان تضيف

exception

WHEN NO_DATA_FOUND THEN

message('');