اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود استيراد ملف اكسل من نوع CSV

عفرنس

بواسطه عفرنس
في قسم الأكسيس Access

 مشاركة
إذهب إلى الإجابة الإجابة بواسطة jjafferr,

الردود الموصى بها

kanory

kanory

قام بنشر
قام بنشر

ملف الاكسل متغير ليس الملف الذي عمل عليه الاستاذين جعفر وابو ابراهيم ...... انظر

 

1.png

هذا التنسيق الي اشتغلوا عليه ..... انظر 

 

1.png

  • Like 1
  • Thanks 2
عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر
  في 28‏/8‏/2020 at 16:43, kanory said:

ملف الاكسل متغير ليس الملف الذي عمل عليه الاستاذين جعفر وابو ابراهيم ...... انظر

 

1.png

Expand  

أريد هذا .. 

علما أن الملف الذي أرفقته لك هو نفس الملف الذي أرفقته للأخ جعفر .. 

د.كاف يار

د.كاف يار

قام بنشر
قام بنشر

السلام عليكم و رحمة الله و بركاته على الجميع

ابو عبدالرحمن

اتفضل هذي المشاركة من طرفي يمكن تفي بالغرض

برنامج_تصدير_الطلاب_للسجل_الالكتروني_حسب_المادة_معتمد.mdbFetching info...

  • Like 2
  • Thanks 1
عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر
  في 28‏/8‏/2020 at 19:35, أبو إبراهيم الغامدي said:

أهلا بكم..

أتسائل لماذا لم يجرب أحد أسلوبي 😟

Expand  

شكر الله لك .. لكن مثل ما ذكر أخوي @kanory تظهر هذه الرسالة 

 

  في 28‏/8‏/2020 at 19:45, kanory said:

 

1.png

Expand  

 

  في 29‏/8‏/2020 at 06:11, د.كاف يار said:

استيراد الملف الى ملف Mobile

Expand  

الحقول ظهرت فارغة @د.كاف يار 

image.png.e5e858478cda58d01e468e5e8a044fa2.png

عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر
  في 29‏/8‏/2020 at 09:58, ابو البشر said:

البرنامج شغال عندي

يمكن طريقة استخدامك خطأ

كل البرامج المرفقة في الموضوع تعمل وكل وحدة كود مختلف ... 

Expand  

طريقة الاستخدام / اختيار الملف ثم زر استيراد ملف template . 

kanory

kanory

قام بنشر
قام بنشر

استبدل الكود الموجود في زر الاستيراد بهذا الكود وجرب ..... 

    Dim TextLine
    Dim x() As String
    Dim TESTFILE As String
    Dim rst As DAO.Recordset
    
    Set rst = CurrentDb.OpenRecordset("Select * From Mobaile")
  
    'TESTFILE = Application.CurrentProject.Path & "\Template.csv"
     TESTFILE = Me.txtPath
    Open TESTFILE For Input As #1    ' Open file.
    Do While Not EOF(1)    ' Loop until end of file.
        Line Input #1, TextLine    ' Read line into variable.
        'Debug.Print TextLine    ' Print to the Immediate window.
  
        x = Split(TextLine, ",")
        
        If x(0) <> "IdentificationID" Then
        
            rst.AddNew
                rst!IdentificationID = x(0)
                rst!FullName = x(1)
                rst!MobileNumber = x(2)
                rst!ClassName = x(3)
            rst.Update

        End If
    
    Loop

    Close #1    ' Close file.
    
    rst.Close: Set rst = Nothing

 

  • Like 2
  • Thanks 1
أبو إبراهيم الغامدي

أبو إبراهيم الغامدي

قام بنشر
قام بنشر
  في 29‏/8‏/2020 at 09:12, فايز.. said:

شكر الله لك .. لكن مثل ما ذكر أخوي @kanory تظهر هذه الرسالة 

Expand  

لكي أتحقق من أن المرفق به مشكلة برمجية يتعين عليك التطبيق على قاعدة البيانات المثال والملف المرفق معها. هذا شرط أساسي بالنسبة لي! 

سبق وأن أشرت أن ملف CSV المرفق في مثالك ليس مطابق لمقاييس هذا النوع من الملفات! بل هو ملف نصي مفرز بفاصلة منقوطة ومن المفترض أن تكون لاحقة الملف (txt.) وليس (csv.).ولهذا قمت بإعادة تنسيق الملف TEMPLATE.CSV قبل التطبيق عليه، كما أن حقول جدول MOBAILE لا تتطابق مع ملف TEMPLATE.CSV..

 

عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر (معدل)

إخواني الفضلاء : @jjafferr @kanory @د.كاف يار @أبو إبراهيم الغامدي 

شكر الله لكم جهدكم معي وحرصكم على مساعدتي .. 

اخترت اجابة الأخ @jjafferrوبعد التدقيق في المشكلة وجدت أن البرنامج يطلب توسيع عمود اسم الطالب في ملف اكسل template . قبل استيراده . 

 

سامحوني على تعبكم معي .. فلست خبير برمجة .. 

تم تعديل بواسطه فايز..
kanory

kanory

قام بنشر
قام بنشر
  في 29‏/8‏/2020 at 12:00, فايز.. said:

إخواني الفضلاء : @jjafferr @kanory @د.كاف يار @أبو إبراهيم الغامدي 

شكر الله لكم جهدكم معي وحرصكم على مساعدتي .. 

اخترت اجابة الأخ @kanory وبعد التدقيق في المشكلة وجدت أن البرنامج يطلب توسيع عمود اسم الطالب في ملف اكسل template . قبل استيراده . 

 

سامحوني على تعبكم معي .. فلست خبير برمجة .. 

Expand  

فضلا غير افضل اجابة للاستاذ . @jjafferr 

لانه اول من طرح اجابة صحيحة .... بارك الله فيك

  • Like 3
  • Thanks 1
jjafferr

jjafferr

قام بنشر
قام بنشر

هولولولولولو وي (انا ازغرد :wavetowel: )

الحمدلله 🙂

 

بس طلب الآن ، بما انك عرفت المشكلة ، فرجاء تجرب بقية البرامج ، لأننا جميعا بذلنا الوقت والجهد ، ونستحق ان نعرف اذا برامجنا اشتغلت (اعتبرها ضريبة وعليك دفعها 🙂 )

 

  في 29‏/8‏/2020 at 12:00, فايز.. said:

البرنامج يطلب توسيع عمود اسم الطالب في ملف اكسل template . قبل استيراده .

Expand  

جميعنا جربنا برامجنا بالمرفقات اللي وضعتها انت ، واشتغلت ، فالظاهر انك تتكلم عن ملف آخر لم ترفقه !!

 

وشكرا اخوي kanory على إحسانك وتفضلك 🙂 

 

جعفر

  • Haha 2
عفرنس

عفرنس

قام بنشر
  • الكاتب
قام بنشر
  في 29‏/8‏/2020 at 15:42, jjafferr said:

هولولولولولو وي (انا ازغرد :wavetowel: )

الحمدلله 🙂

 

بس طلب الآن ، بما انك عرفت المشكلة ، فرجاء تجرب بقية البرامج ، لأننا جميعا بذلنا الوقت والجهد ، ونستحق ان نعرف اذا برامجنا اشتغلت (اعتبرها ضريبة وعليك دفعها 🙂 )

 

جميعنا جربنا برامجنا بالمرفقات اللي وضعتها انت ، واشتغلت ، فالظاهر انك تتكلم عن ملف آخر لم ترفقه !!

 

وشكرا اخوي kanory على إحسانك وتفضلك 🙂 

 

جعفر

Expand  

اسعدكم الله جميعا .. وشكر الله لكم .. 

بالنسبة لملف الاكسل كنت استورد نفس اللي ارفقته لكم ولم اكن مخطئ .. 

وانا والله اني في حرج منكم .. 

 

kanory

kanory

قام بنشر
قام بنشر (معدل)
  في 29‏/8‏/2020 at 15:42, jjafferr said:

وشكرا اخوي kanory على إحسانك وتفضلك 🙂 

جعفر

Expand  

بارك الله فيك اخي جعفر

ليس فضلا ولا احسان ... بل انت صاحب الفضل بعد الله عز وجل ..... فعلا البرامج مثل التي طرحها الاساتذة @jjafferr  و @أبو إبراهيم الغامدي

و @د.كاف يار

فعلا تستحق التجربة لانها امثلة كل واحدة منها تحمل فكرة جميلة وجديرة بدراستها والاستفادة منها ... بارك الله في جهود الجميع ....

تم تعديل بواسطه kanory
  • Like 2
  • Thanks 1
زائر
هذا الموضوع مغلق.
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept