السلام عليكم ورحمة الله وبركاته
إخوتي الاعزاء بحثت كثيرا ولم اجد ظالتي
وهي كود يقوم بستراد بيانات من ملف نصي
حيث انني احدد اسم الملف والمسار الموجود عليه في الكود
واحدد فيه ايضا كيفية تقسيمة للخانات
مثلا ( الحقل الاول 9 خانات ثم الحقل الثاني 17 خانة وهكذا )
ثم احدد له اسم الجدول الذي يظع فيه البيانات
تحياتي لكم جميعا
اقترح عليك اقتراحين
1-
DoCmd.TransferText acExportDelim, "kjmSpecs", "product_table_import", "c:\mytable.txt", True
2-
DoCmd.TransferText acExportDelim, "Standard Output", _
"External Report", "C:\Txtfiles\April.doc"
اتمنى ان تجد ضالتك هنا اخي الكريم
يا عيالي كلكم .... افطنوا في حالكم
التنازع ذلكم .... والتصافي منفعه
المحتاج امشوا بحقه .... لو بدت منه المشقه
وانكثر بالقلب دقه .... طوبيتك واشعله
السلام عليكم اخي الكريم
مرفق ملف نص يحتوي علي بيانات كما بشرحك
قم بفتح الوحدة النمطية فى وضع التصميم
ثم اضغط Run ثم Run sub/userForm
سيتم استيراد البيانات من الملف النصي
ولا تنسي الدعاء لاخينا Accessena الحاضر باعماله الغائب بمشاركاته
اخوك فى الله
Microsoft Certified DataBase Administrator MCDBA
اشكركم جميعا
اخي الكريم .. أحمد
يعطيك الف عايفه يالغالي
اخي الحبيب حسب ما فهمت انه الكود هذا يستورد بناء على التاب او شيء من هذا القبيل المهم
انا اريد التالي
لنفترض ان ملف التكست يحتوي على
rw123asdf098765zxcv1230987
وانا اريد ان يقوم بستيراده في جدول ولكن يقسمه حسب التالي
اول 8 خانات في الحقل الأول ( rw123asd )
ثم العشرة خانت الذي بعدها في الحقل الثاني ( f098765zxc )
ثم الثمنية الاخيرة في الحقل الثالث ( v1230987 )
اتمنى يكون الفكرة واضحة
السلام عليكم اخي الكريم
الكود يعمل بالطريقة التي طلبتها وليس له علاقة بال Tab او اي Delimited
ارفق مثالك وتري تطبيق الكود الذي يقرأ أطوال الحقول وعددها
أخوك فى الله
Microsoft Certified DataBase Administrator MCDBA
بدون ما ترفق ملف ان طبقت علي مثالك ولكن باستبدال رقم 7 الاخير مرة بـ X ومرة Y ومرة Z
ولاحظ مرفق نصي متصل وغير مفصول
اخوك فى الله
Microsoft Certified DataBase Administrator MCDBA
بارك الله فيك
نعم انت استخدمت عدد الحقول ولكن في سطر واحد بالتتالي
واكيد في المثال الذي ارفقة اتضحت لك الصورة اكثر
تحياتي لك
انا في انتظارك يا عسل
السلام عليكم اخي الكريم
الملف النصي فى طلبك هذا نوعان
الاول : متصل ولا توجد فواصل حتي بين السجلات
وهذا لن يدخل الاكسس الي عن طريق الكود بالوحدة النمطية او استخدام SQL DTS
الثاني : كل سطر بالملف النصي عبارة عن سجل ونريد تقسيمه
وهذا نقوم اولا باستيراد او ربط الملف النصي بقاعدة البيانات ثم نقطعه زي ما احنا عايزين
قم بفتح الملف المرفق ولاحظ ان :
الجدول 886 تتم تعبئته بواسطة الوحدة النمطية من ملف نصي
الجدول 8861 بعد استيراده الي قاعدة البيانات يتم تقسيمه بواسطة الاستعلام1
بواسطة الدالة Left - right - mid
اخوك فى الله
Microsoft Certified DataBase Administrator MCDBA
كلام جميل اخي الحبيب
بالطريقة العادية للإستيراد نجد انها ممكنه وتحدد انت موقع الفاصل حسب رغبتك
ولذا اتوقع انها من الممكن ان تتم بالكود
على العموم انت اعطيتني حل بدل وهو الإستيراد كحقل واحد لكل سطر ثم تقسيمها في الإستعلام
بس ما اعطيتني الكود الخاص بستدعاء كل سطر في سجل
تعبتك معي يالغالي
وتقبل مني فائق الود والإحترام
اخي و معلمي راجع المثال المرفق وعدل على المسار للملف و عدل الملف حسب
حاجتك
يا عيالي كلكم .... افطنوا في حالكم
التنازع ذلكم .... والتصافي منفعه
المحتاج امشوا بحقه .... لو بدت منه المشقه
وانكثر بالقلب دقه .... طوبيتك واشعله
السلام عليكم اخي الكريم
اولا انت اللي عسل :lol:
ثانيا موضوع نقل ملف نص الي قاعدة بيانات يعتمد علي الماكرو TransferText او الامر بالفيجوال TransferText
وهو امر بسط جدا ولكن سنقف عند ال schema file ...... ؟
ايه يا عم الكلام الكبير ده
ولا كلام كبير ولا حاجة .... لو عايز اعمل استيراد للبيانات النصية بشكل صحيح لا زم يكون عندي شكل البيانات schema file من حيث النوع وعدد الحقول وايضا اسمها
يعني مثلا اثناء المحاولة الاولي لاستيراد البيانات من ملف تم الاستيراد كرقم كبيير جدا ومهما حاولت كان الناتج خطا
فرجعت لمساعد الاكسس وعرفت موضوع schema file ده وهو عبارة عن الشكل اللي انت عايزه للبيانات ويتم انشاء ال schema file من معالج استيراد البيانات كما بالصورة
فى مثالنا اعطيته اسم AhmedSpInfo وهو ما ستجده فى الكود وكما تري بالصورة ان تم تحديد اسم الحقل وطول البيانات ونوع البيانات text
وبذلك عملنا schema file للملف النصي Text وكذلك تم الاستيراد بشكل صحيح
خد بالك ان الملف موقعة بالقرص C مباشرة
اخوك فى الله
Microsoft Certified DataBase Administrator MCDBA
اشكركم من كل قلبي والعسل عارف نفسه :D
اخي الحبيب يوجد مشكله اخرى وهي عندما يكون هنالك فراغات
ولكي يتضح الامر بشكل دقيق
ارفقت لك الان في المثال ملف تكست اسمه 8861
بهي نسخه من البيانات
والذي احتاج لستيرادها للاكسس
اتمنى تشوفها ورايح تعرف المشكله التي اعاني منها
بس ها لا تقولي :S
تم تعديل هذه المشاركة بواسطة أبو يـــ KNDR ــارا في 15 يوليو 2008 في 16:28
اشكركم جميعا على مساعدتى فبفضلكم استطعت ان اتوصل للفكرة المناسبه
انا عالجت الموضوع بكل سهوله عبر عمل جدول ارتباط مع الملف النصي
وبعد كذا اعمل كل ماريده بحريه
تحياتي لكم جميعا واكرر شكري لكم