نسخ محتويات ملف text إلى جدول في القاعدة

[الدكتور خضر الرجبي]

السلام عليكم

إخواني الاعضاء ، بارك الله فيكم

أرجو مساعدتي في حل هذه المسألة وإليكم تفاصيلها ،

يوجد عندي ملف من نوع text وأود نسخ محتويات هذا الملف برمجيا ووضعها في حقل أو جدول في قاعدة البيانات.

أرجو ملاحظة ما يلي :

1. أنني احاول في المثال المرفق عمل ذلك بواسطة Docmd.TransferText ولكني لم أنجح حتى الان.

2. إذا اردتم تجريب المثال المرفق (تشغيله) يجب أن يكون الملف OfficenaTempText على جهاز التخزين الصلب \:C وفي الدليل الرئيسي.

3. يفضل بالنسبة لي نقل محتويات هذا الملف إلى الحقل Text في الجدول ImpTexts بحيث يكون نوع الحقل مذكرة (Memo) طبعا هذا الوضع القياسي الذي احتاجه وهو ليس شرطا.

وتفضلوا بقبول فائق الاحترام والتقدير

Copying.rar

[أبو هادي]

السلام عليكم

جرب هذا الكود :

Sub TransferData()
  Dim dbs As Database
  Dim rst As Recordset
  Dim FileName
  Dim MyString

  Set dbs = CurrentDb
  Set rst = dbs.OpenRecordset("ImpTexts", dbOpenDynaset)

  FileName = "C:\Documents and Settings\Windows\Desktop\OfficenaTempText.txt"
  Open FileName For Input As #1
  
  Do While Not EOF(1)
    Input #1, MyString
    If Trim(MyString) <> "" Then
      With rst
        .AddNew
          !Text = MyString
        .Update
      End With
    End If
  Loop
  
  Close #1
  rst.Close
  Set dbs = Nothing
End Sub

تحياتي .

[الدكتور خضر الرجبي]

السلام عليكم

أخي أبا هادي ، بارك الله فيك ،

لروعة الحل، يعجز لساني عن شكرك ، لم أغير حرفا في الكود ، واشتغل 100% في الوضع القياسي الذي أريده.

أخي أبا هادي ، ماذا حدث بمشروع اوقات الصلاة لماذا لا اراه في الاعلى ؟!

مع الاحترام

[أبو هادي]

السلام عليكم

لقد ألغيت التثبيت لتحفيزكم ببقائه دائما بالأعلى :( وإذا رجع النشاط كالسابق أعدنا تثبيته ، فقط شدوا الهمة

تحياتي .