إنتقال للمحتوى

  • تسجيل الدخول عبر الفيس بوك تسجيل الدخول عبر تويتر Log In with LinkedIn Log In with Google      تسجيل دخول    
  • إنشاء حساب

صورة
- - - - -

Ascii Code


4 رد (ردود) على هذا الموضوع

#1 admin0

admin0

    مشترك

  • الأعضــاء
  • 85 مشاركة

تاريخ المشاركة 19 September 2006 - 04:04 PM

مين حاب يعمل خير...
عندي مشكله حلوه .....

بدي جملة update تعدل بيانات جدول إتغير أول
أول حرف من كل اسم إذا بادي بألف عليها همزة
لألف بدون همزه ( أ ـــــ> ا)

عن طريق الأسكي كود انغير أول حرف من الكلمات ..

#2 MMA

MMA

    مشرف سابق وعضو مميز

  • المجموعة الماسية
  • 1,019 مشاركة
  • الاسم الأول:Mostapha
  • اسم العائلة:Abd El-Salam
  • البـلـد: Country Flag
  • المنصب الحالي:المؤسسة المصرية لتبسيط العلوم - عضو مؤسس - مستشار تقني

تاريخ المشاركة 19 September 2006 - 09:00 PM

رجاء أن يكون هذا الكود مناسب لك أخي adminO :
------------------------------------------------------


--جدول الموظف--
Create Table Emp
(
Enumber VarChar2(10),
Ename VarChar2(50)
)
/

--إدراج السجلات المناسبة--
Insert Into Emp Values('1','أحمد')
/
Insert Into Emp Values('2','مريم')
/
Insert Into Emp Values('3','أمير')
/

--التعديل داخل الجدول--
Create Or Replace Procedure Update_EMP
As
X VarChar2(1);
Begin
Update Emp
Set Ename = Replace(Ename,'أ','ا')
Where SubStr(Ename,1,1)='أ';
End;
/

--إستدعاء البرنامج--
Execute Update_Emp
/

مهندس/ مصطفي محمود عبد السلام   
العضو المؤسس بالمؤسسة المصرية لتبسيط العلوم
والمستشار التقني

(برمجيات - نظم معلومات - شبكات)

.

 

( 01098570165 )

.

.

.

( MMA_Programmer@Yahoo.com )

 


#3 MMA

MMA

    مشرف سابق وعضو مميز

  • المجموعة الماسية
  • 1,019 مشاركة
  • الاسم الأول:Mostapha
  • اسم العائلة:Abd El-Salam
  • البـلـد: Country Flag
  • المنصب الحالي:المؤسسة المصرية لتبسيط العلوم - عضو مؤسس - مستشار تقني

تاريخ المشاركة 24 September 2006 - 11:51 PM

<H1>بسم الله الرحمن الرحيم</H1>


إخواني أعضاء المنتدي الكرام ،

كل عام وأنتم بخير



فـي الحقيقة أنــا أرفقـت مـع رسالتي هـذه كتابين يختصان بلغة SQL و PL/SQL ،
هذين الكتابين ليس هــي كتب تعليمية بل إنها كتب مختصرة عن جميع أوامر أوراكل
سواء للغة SQL أو PL/SQL .


كمـا إنها تعتبــر الكتب الشخصية الخاصة بي ، وهــي ناتج ما قمت بتجميعة طوال
الفترة السابقة من هذا المنتدي ومنتديات أخري مثـل ( الفريق العربي للبرمجيات
- منتدي الإبداع الإسلامي - محيط - .... الي آخرة).


أما بانسبة لل Application فأنا لا أصمـم واجهات التعامل ســواء التقاريــر أو
التعريفات إلا مـن خال VB .


أتمني أن تنال إعجابكم

-------------------------------------------------------------------

وكل عام وأنتم بخير

-------------------------------------------------------------------

مهندس/ مصطفي محمود عبد السلام   
العضو المؤسس بالمؤسسة المصرية لتبسيط العلوم
والمستشار التقني

(برمجيات - نظم معلومات - شبكات)

.

 

( 01098570165 )

.

.

.

( MMA_Programmer@Yahoo.com )

 


#4 MMA

MMA

    مشرف سابق وعضو مميز

  • المجموعة الماسية
  • 1,019 مشاركة
  • الاسم الأول:Mostapha
  • اسم العائلة:Abd El-Salam
  • البـلـد: Country Flag
  • المنصب الحالي:المؤسسة المصرية لتبسيط العلوم - عضو مؤسس - مستشار تقني

تاريخ المشاركة 24 September 2006 - 11:53 PM

آسف الموضوع ليس في مانة الصحيح

مهندس/ مصطفي محمود عبد السلام   
العضو المؤسس بالمؤسسة المصرية لتبسيط العلوم
والمستشار التقني

(برمجيات - نظم معلومات - شبكات)

.

 

( 01098570165 )

.

.

.

( MMA_Programmer@Yahoo.com )

 


#5 hobaa

hobaa

    مشرف سابق وعضو مميز

  • المجموعة الماسية
  • 980 مشاركة

تاريخ المشاركة 28 September 2006 - 05:29 PM


ممكن تعمل cursor و تظبط الكود التالى 

declare

  nem varchar2(100);

  x varchar2(100);

  d varchar2(100);

begin

  if :txt_table is not null then

    FOR I IN 1..LENGTH(:txt_table) LOOP

      nem:=SUBSTR(:txt_table,I,1);

        for j in 1..i loop

          if nem ='C'then

            nem:=Replace(nem,'C','a');

          end if;

          if nem ='E'then

            nem:=Replace(nem,'E','b');

          end if;

          if nem ='E'then

            nem:=Replace(nem,'E','c');

          end if;

          x:=nem;

        end loop;

         d:=d||x;

    END LOOP;

    :txt:=d;

  end if;

end;

و انشاء الله تشتغل

و انا تحت امرك



ايهاب وجدى



Oracle Developer

Oracle DBA
Oracle Instructor

Egypto-Soft