*أكواد* القراءة من ملف نصي

ما اعرفه انه يمكنك فتح ملف نصي عن طريق SHELL

اي عن طريق استخدام هذا الكود ....

Dim RetVal
RetVal = Shell("هنا يكتب مسار الملف النصي", 1)

اعتقد يمكن استيراد المستند النص في جدول واضافه حقل BookMark الى الجدول .

( اي ان الجدول سوف يتكون من حقلين الحقل الاول : يوجد فيه بيانات المستند والحقل الثاني : BookMark يضع علامه عندما يتم عرضه حسب التايمر )

جوابي عن هذا السؤال جاء عرضاً لأنني كنت ابحث عن شيء آخر فوجدت هذا السؤال فلفت انتباهي

يمكن للأكسس القراءة من الملفات النصية على سبيل المثال فإن الأمر التالي يقوم بقراءة السطر الأول من الملف

    Dim iFileNum As Integer

    Dim firstline As String

    

    iFileNum = FreeFile

    Open "filename.txt" For Input As iFileNum

    lFileLength = LOF(iFileNum)

    firstline = Input(lFileLength, #iFileNum)

    Close iFileNum

لكننا عادة لا نستخدم الملفات النصية في عالم قواعد البيانات لأن القراءة منها والكتابة لها عملية شاقة وبطيئة والطريقة التي ذكرها oracleboy هي الصحيحة والسريعة لكن مع بعض التعديل عليها حيث إن من الأفضل وضع حقل واحد فقط وفي جدول آخر يتم تخزين رقم آخر سجل تم عرضه بحيث يتم البدء من السجل التالي

شكراً لكم جميعا

الاخ ابو هاجر

السبب في اختيار الملف النصي هو انه من السهل تعديله والاضافة عليه او استبدال محتوياته بدون فتح قاعدة البيانات

وان كان بالامكان وضع محتوياته في جدول مؤقت لكنني لا اعرف طريقة عمل ذلك

بقي من سؤالي السابق مسألة واحدة مهمة وهي كيفية الانتقال الي السطر التالي في الملف

بارك الله فيكم

الأخت عربية

مرفق ملف يتكون من قاعدة بيانات مرتبطة بملف نصي لعل هذا هو ما تريدين

في الملف المرفق سيتم عرض سطر من الملف النصي في نموذج أكسس كل ثانيتين

عند إضافة سطر جديد في الملف النصي سيتم اعتماده مباشرة لكن لا يمكن إضافة أي سجل عن طريق الأكسس مباشرة

بالطبع قد تحتاجين إلى إعادة الارتباط بالملف النصي بسبب اختلاف المسار

adkar.zip

تغيير المسار

الأخ أبو وليد

لتعديل المسار اتبع الخطوات التالية

قائمة أدوات >> أدوات مساعدة لقاعدة البيانات >> إدارة الجداول المرتبطة

عند فتح نافذة إدارة الجداول المرتبطة حدد الجدول adkar ثم انقر زر موافق

بعد ذلك حدد المسار الصحيح للملف النصي وسوف تظهر رسالة تفيد بنجاح العملية

تحياتي

صراحة احرجتنا بكرمك

رزقك من علمه وخيره وجعلك من اهل الجنة

وجودك يا أستاذ أبو هاجر في المنتدى يعتبر كنز كنا محتاجين له والحمد لله قد وجدناه أتمنى من الله العلي القدير أن يمتعك بالصحة والعافية

الأخ أبو وليد هذا الدعاء يكفيني قال عليه الصلام والسلام : من قال لأخيه جزاك الله خيراً فقد أجزل له في المثوبة

أسأل الله تعالى أن يرزقنا زكاة ما أعطانا إياه من علم وأن نكون لبنة في بناء هذه الأمة وعزتها التي أثق تماماً بأن التقنية سبيل من أعظم سبلها فعلينا أن نتعاون جميعاً في نشرها فهي من إعداد القوة التي أمرنا بها ربنا تعالى

الأخ فهد نزلت كلماتك علي نزول الغيث على الأرض المجدبة فقد أحسست بأنه ليس في قلبك على شيء وأنك قبلت اعتذاري

اللهم سدد لساني واهد قلبي واسلل سخيمة صدري

أخوي أبو هاجر

قلبي أبيض بشكل لا تتصوره ولا يمكن أزعل على أحد غلط علي فكيف أزعل عليك وأنت لم تغلط علي بل قلت أنا أحس ولم أتأكد وعلى العموم أتمنى من الله دوام هذه الأخوة بيننا وأن لا يعكر صفوها أي شيئ وجعلنا الله من المتحابين فيه اللهم آمين

بارك الله فيك على عطاءك السخي

فعلاً هذا المثال مفيد جداً جدأ بالنسبة لي

أسأل الله لي و لك ولجميع المسلمين الدرجات العالية الرفيعة في جنة الفردوس

أخوي أبو هاجر وفقك الله لك ما يحب ويرضى

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

فقد حاولت كثيرا ولكن تخرج لي هذه الرسالة (( قام البرنامج بعملية غير شرعية .. ألخ)) .

فما الحل ؟ وما الطريقة الصحيحة للربط ؟

مع جزيل الشكر والتقدير

أخي الكريم فهد

معذرة لتأخري في الرد فلم أنتبه لسؤالك إلا الآن في زحمة المشاركات والتساؤلات في هذا المنتدى

الفكرة هي ربط البرنامج بالملف النصي مباشرة وليس بجدول ولتطبيق ذلك عملياً قم بالتالي

أنشئ ملفاً نصياً واكتب فيه بعض الأسماء بحث يكون كل اسم في سطر

افتح قاعدة بيانات ومن قائمة ملف >> إحضار بيانات خارجية >> ربط جداول

في شاشة تحديد الملف ومن قائمة أنواع الملفات حدد الملفات النصية ثم حدد الملف الذي قمت بإنشائة

عند ذلك سوف يعمل معالج استيراد البيانات النصية

بما أن عرض البيانات في الملف النصي الذي أنشأت ليس ثابتاً في الشاشة الأولى للمعالج اختر الخيار الأول وهو عرض محدد ثم انقر التالي

في الشاشة الثانية لا تغير شيئاً

في الشاشة الثالثة اكتب اسم الحقل الذي تريد إنشاءه في الجدول ثم انقر التالي واكتب اسم الجدول

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

آمل أن يكون هذا ما تريد وبالتوفيق