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

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

صورة
- - - - -

مساعد في عمل جدول


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

#1 salahocp

salahocp

    مشترك

  • الأعضــاء
  • 69 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 05 April 2006 - 11:00 AM

مرحبا شباب
كيف أستطيع نقل بيانات عمود من داخل ملف اكسل الى جدول داخل قاعدة البيانات ؟
وشكرا جزيلا ..
نرجو الافادة من أولي العلم منكم .

#2 mohammad_amro

mohammad_amro

    عضو

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

تاريخ المشاركة 08 April 2006 - 10:42 PM

السلام عليكم
ممكن انك تعمل برنامج وسيط ينقل الداتة من الاكسس الي الاركر

#3 Amgad

Amgad

    مشرف عام ومشرف قسم تحليل النظم

  • الفريق الإداري
  • 4,719 مشاركة
  • الاسم الأول:امجد
  • اسم العائلة:حلمي
  • البـلـد: Country Flag
  • المنصب الحالي:Business Systems Analyst at NATCOM Co. Riyadh KSA

تاريخ المشاركة 09 April 2006 - 12:51 AM

استخدم خاصية البحث لتجد أكثر مما تريد ..

اليك هذه المشاركة السابقه من احد الزملاء بالمنتدى
سوف أعرض لك مثال معمول ال forms كيفية نقل البيانات من ORACLE إلى Excel
 استعلام
DECLARE
     OUTFILE   TEXT_IO.FILE_TYPE;
BEGIN
     OUTFILE := TEXT_IO.FOPEN('C:\TEST.CSV','W');
FOR R IN (SELECT 
           EMP_NO,
                    EMP_A_NAME,
                    EMP_ID
                    FROM 
                    EMP "أنت تحدد الجدول الذي تريده"
                    
LOOP
TEXT_IO.PUT_LINE(OUTFILE,R.EMP_NO||';'||R.EMP_A_NAME||';'||R.EMP_ID);
END LOOP;     
TEXT_IO.FCLOSE(OUTFILE);
END;

 

طبعا يمكنك عمل العكس ولكن أولا عليك حفظ الملف بامتداد .csv (حيث يكون الفاصل بين حقل وآخر فاصلة منقوطه) ومن ثم تنفيذ الكود التالي :
 كود
DECLARE
LINEBUF            VARCHAR2(1000);
OUT_FILE             TEXT_IO.FILE_TYPE;
V_COLOUMN_1      NUMBER(9); --طبعا بحسب عدد الحقول في جدولك ونوعها
V_COLOUMN_2        NUMBER(3);
V_COLOUMN_3       NUMBER(3);
V_COLOUMN_4     VARCHAR2(3);
BEGIN 
     
begin
     OUT_file := TEXT_IO.FOpen('C:\TEST.CSV','R');
     Exception when Others then
          Message('Error in Reading from file C:\TEST.CSV');
          RETURN;
end;
                          
--********** 
LOOP

BEGIN     
TEXT_IO.GET_LINE(OUT_FILE,LINEBUF);
EXCEPTION WHEN NO_DATA_FOUND THEN
EXIT;       
END;     
LINEBUF := LTRIM(LINEBUF);
V_COLOUMN_1    := SUBSTR(LINEBUF,1,9);
V_COLOUMN_2    := SUBSTR(LINEBUF,INSTR(LINEBUF,';',1,1)+1,                                   INSTR(LINEBUF,';',1,2)-INSTR(LINEBUF,';',1,1)-1 );
V_COLOUMN_3    := SUBSTR(LINEBUF,INSTR(LINEBUF,';',1,2)+1,                                   INSTR(LINEBUF,';',1,3)-INSTR(LINEBUF,';',1,2)-1 );
V_COLOUMN_4    := SUBSTR(LINEBUF,INSTR(LINEBUF,';',1,3)+1);                               
--********************** 
INSERT INTO TEST(COLOUMN_1,COLOUMN_2,COLOUMN_3,COLOUMN_4)
VALUES(V_COLOUMN_1,V_COLOUMN_2,V_COLOUMN_3,V_COLOUMN_4);
--**********************                                                            
END LOOP; 
COMMIT;
TEXT_IO.FClose(out_file); 

SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'DEFAULT');
EXCEPTION WHEN OTHERS THEN
    MESSAGE(SQLERRM);
    SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'DEFAULT');
    TEXT_IO.FClose(out_file);
END;

لا إله إلا الله الحليم الكريم
لا اله إلا الله العلى العظيم
لا اله إلا الله رب السماوات السبع و رب العرش العظيم
‏اللهم ارزقني قبل الموت توبة وعند الموت شهادة وبعد الموت جنة
اللهم ارزقني حسن الخاتمة
اللهم هون علينا سكرات الموت ... ونور علينا قبورنا
اللهم ارزقني الموت وأنا ساجد لك يا ارحم الراحمين
اللهم ثبتني عند سؤال الملكين
اللهم اجعل قبري روضة من رياض الجنة ولا تجعله حفرة من حفر النار
اللهم اني اعوذ بك من فتن الدنيا
اللهم ارحم ابائنا وامهاتنا واغفر لهما وتجاوز عن سيئاتهما وادخلهم فسيح جناتك ... والحقنا بهما يا رب العالمين
اللهم ارحم موتانا وموتى المسلمين واشفي مرضانا ومرضى المسلمين
اللهم اغفر للمسلمين والمسلمات والمؤمنين والمؤمنات الأحياء منهم والأموات
وبارك اللهم على سيدنا محمد صلى الله عليه وسلم
اللهم آمين ... اللهم آمين ... اللهم آمين


....


#4 oracle_itself

oracle_itself

    عضو نشط

  • فريق الإشراف
  • 366 مشاركة
  • الاسم الأول:Wael
  • اسم العائلة:Abdeen
  • البـلـد: Country Flag
  • المنصب الحالي:Manager

تاريخ المشاركة 19 April 2006 - 12:09 AM

اخ امجد ... طريقة رائعة
تحفة بالفعل

WAEL ABDEEN: Assistant Manager / Data Mgmt. Analyst

profile: linkedin profile

blog: waelabdeen.blogspot.com

facebook: facebook profile

skype: oracle_itself

email: oracle_itself@hotmail.com