الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اضافة اداة لاستيراد الملفات النصيه

مغلق
بدأه ابو ياسر في 25 يونيو 2006 · 16 رد · 1,243 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

المطلوب اخواني عمل التالي الله يجزاكم الف خير

اضافة اداه لاستيراد المفات النصيه وهي كما الملف المرفق

ووضع البيانات في جدول قاعدة البيانات

مع مراعاة الترتيب ووضع كل بيانات في محلها

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

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

حيث ان كل يوم له بيانات مختلفه ولا اريدها ان تجتمع مع بعض

الله يوفقكم جميعاً

td3333.zip

#2

السلام عليكم

الكود موجود في الوحدة النمطية

td3333.rar

سبحانك اللهم وبحمدك أشهد ان لا اله الا أنت

أستغفرك وأتوب اليك

الهم صلي وسلم وبارك على سيدنا وحبيبنا محمد

#3

الف شكر اخي الله يسعدك

ولكن ياليت تعديل مايلي

1- ملف التكست اريد ان يكون الخيار لي بتحديده لان اسمه ومكانه ليس ثابت واريد ان تفتح نافذه لتحديده

2- المطلوب تخزين مختويات ملف التكست في الجدول ( تفاصيل الصفقات ) الموجود في قاعدة البيانات

3- عمل امر يفرغ الجدول ( تفاصيل الصفقات ) ويحذف محتوياته

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

تم تعديل هذه المشاركة بواسطة ابو ياسر في 26 يونيو 2006 في 20:48

#4

السلام عليكم

td3333.rar

سبحانك اللهم وبحمدك أشهد ان لا اله الا أنت

أستغفرك وأتوب اليك

الهم صلي وسلم وبارك على سيدنا وحبيبنا محمد

#5
alslam 3alaykom
fe hada elmethal fe moshkele
  elfunction ra7 ydeef sejel 7ata law ma kan sejel sa7e7
	because GetInsertIntoValues() function ra7 y3'ayer el values
	bass hada 3'alat(not right) because ra7 ydeef sejelat khate2a(wrong)
	fayareet t7awel t3'ayer el barnamej ino ma ydeef elsejelat elle mesh motabeka latansek elsejel



w fe tareka thanye to import textfile ashal kteer
  ana 7abeet a3teek tareka barmajeye gabel momken tsa3dak

   CurrentDb.Execute "Delete From [تفاصيل الصفقات]"
   DoCmd.TransferText , "", "تفاصيل الصفقات", FileName, True

bass hay eltareka ma betkhalek tmot 3al sejelat one by one and check them

سبحانك اللهم وبحمدك أشهد ان لا اله الا أنت

أستغفرك وأتوب اليك

الهم صلي وسلم وبارك على سيدنا وحبيبنا محمد

#6

الف شكر اخي على مساعدتك

عند تشغيل البرنامج تظهر هذه الرسالة

ماهو الحل

86-1151426880.jpg

#7

السلام عليكم

افتح Visual Basic Editor الذي في الاكسس

Tools--> Macros-->Visual Basic Editor

بالعربي ممكن

ادوات --> ماكرو--> محرر فجوال بيسك

بعدين

Tools ---> Refrences

شيل علامة الصح من

Microsoft Common Dialog Control 6.0

اضغط Ok

سبحانك اللهم وبحمدك أشهد ان لا اله الا أنت

أستغفرك وأتوب اليك

الهم صلي وسلم وبارك على سيدنا وحبيبنا محمد

#8

اخي الله يوفقك والف شكر لك ولسعة صدرك

واتمنى ان يتسع صدرك لكثرة اسئلتي وهذا من كرمك

لم تحل المشكله

86-1151494576.jpg

#9

للرفع

#10

اخي الفاضل ابو ياسر

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

نشكر الاستاذ محب الرسول على مشاركته وسعة صدره .

كما تعلم ان الاستاذ محب الرسول قام بكتابة الكود الخاص بالوحدة النمطية لتسهيل الامر عليك في اختيار الملف النصي مباشرة بواسطة نافذة فتح الملفات لهذا انت تحتاج في هذه الحالة الى مصدر هذا الكائن وهو احد عناصر OCX ويسمى COMDLG32.OCX لهذا فقد وضعته لك فم بتحمله وفك الضغط عنه ووضعه في مجلد النظام C:\WINDOWS\system32 الان انتقل الى برنامج الاكسيس وافتح مكتبة المراجع او Refrences وذلك بالضغط على المفتاحين في لوحة المفاتيح ALT+F11 وسيفتح لك محرر الفيجول بيسك الان انتقل الى ادوات TOOLS ثم Refrences وضع علامة الصح امام الكائن كما في الصوره ثم موافق وقم بفتح النموذج وسيعمل معك ان شاء الله تعالى بدون اي مشاكل

30_06_06_08_47_27_1151682447Z.gif

هذا الملف ضعه في مجلد النظام C:\WINDOWS\system32

COMDLG32.rar

اختكم

زهره

#11

الف شكر اختي زهره

طبقت كل اللي كتبتي بدون اي فائده

ومازالت تظهر هذه المشكله لدي

86-1151494576.jpg

#12

السلام عليكم

اسف اخي ابو ياسر ما انتبهت على سؤالك , كنت مشغول شوي

و شكرا اختي زهره وبارك الله في جهودك الطيبه

بعد ما سويت اللي الاخت زهرة حكتلك اياه

غير الجملة

Set Com1 = CreateObject("MSComDlg.CommonDialog.1")

وضع مكانها

Set Com1 = New CommonDialog

واذا ما زبط معاك استخدم التالي و ان شاء الله راح تزبط

انا وضعت الكود في ملف لانه ما راضي يضيفه ما بعرف ليش

aboyaser.txt

تم تعديل هذه المشاركة بواسطة Mo7eb_Alrasool في 2 يوليو 2006 في 01:43

سبحانك اللهم وبحمدك أشهد ان لا اله الا أنت

أستغفرك وأتوب اليك

الهم صلي وسلم وبارك على سيدنا وحبيبنا محمد

#13

الف شكر

وبارك الله فيك وجزاك الله عنا الف خير

بقي سؤال صغير فقط

لو حبيت اضيف كم عمود على الجدول المنشاء بواسطة الكود

كيف يتم ذلك

مثال

حبيت اضيف في اخر الجدول عمودين ( ملاحظة1) و (ملاحظة2)

الف شكر

#14

alslam 3alaykom

'you can use
Dim fld As New Field
fld.Name = "Note1"
fld.Type = dbText
fld.Size = 50
CurrentDb.TableDefs("tablename").Fields.Append fld
'or
CurrentDb.TableDefs("tablename").Fields.Append _
		  CurrentDb.TableDefs("tablename").CreateField("Note1", dbText, 50)

'or 3an taree2 el sql
CurrentDb.Execute "alter table tablename add column Note1 Text(50), Note2 Text(50) "

سبحانك اللهم وبحمدك أشهد ان لا اله الا أنت

أستغفرك وأتوب اليك

الهم صلي وسلم وبارك على سيدنا وحبيبنا محمد

#15

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

المرفقة

بحيث يضيف عمودين ملاحظة1 وملاحظة2

والف شكر مقدما

moooooooo.zip

#16

اخي محب الرسول

الف شكر وتقديرلك على مساعدتك

تم الانتهاء من الملف

تحياتي لك

-waf -waf -waf

#17

السلام عليكم

moooooooo.zip

تم تعديل هذه المشاركة بواسطة Mo7eb_Alrasool في 2 يوليو 2006 في 17:42

سبحانك اللهم وبحمدك أشهد ان لا اله الا أنت

أستغفرك وأتوب اليك

الهم صلي وسلم وبارك على سيدنا وحبيبنا محمد

هذا الموضوع مغلق.

مواضيع مشابهة