السلام عليكم
لدي فورم للبحث ويوجد بها هذا الكود
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;
المطلوب أضهار رسالة في حالة عدم وجود رقم المحطة المراد البحث عنها
امل التعديل على الكود اذا فيه خطأ

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

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

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

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

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

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

جرب هذا الكود وانا اسف عشان حاليا ما في عندي 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;

السلام عليكم
المطلوب هو البحث عن الرقم المدخل في حقل اسمه 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;

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

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

exception

WHEN NO_DATA_FOUND THEN

message('');