تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عمليّة التّرحيل من الفورم إلى قاعدة البيانات
#1
السّلام عليكم و رحمة الله و بركاته
أتمنى من الله أنْ تكونوا إخواني الأعزّاء بتمام الصحّة و العافية
مرّة أخرى .. أرجو من الله ثم من سيادتكم المحترمة مساعدتي إذا كان بالإمكان بهذه المسألة
بالفورم 1 لديّ مجموعة من التاكسات بها بيانات
ما أريده هو عند الضغط على زر الأمر 1 يتم ترحيل هذه البيانات المدخلة إلى قاعدة البيانات مثلما هو موضّح بشيت الإكسل
علمًا أنّ هذه البيانات التي سيتم ترحيلها ستتكرّر و لذلك عند الترحيل ستكون تحت بعضها ..
لكم مني مقدّمًا فائق الاحترام و التّقدير
تحياتي


الملفات المرفقة
.rar   الترحيل.rar (الحجم : 8.14 ك ب / التحميلات : 33)
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

كيف حالك اخي عبدالعزيز

أتمنى أكون قد وفقت في تلبية طلبك

بالتوفيق


الملفات المرفقة
.rar   الترحيل.rar (الحجم : 8.8 ك ب / التحميلات : 51)
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}}
#3
السّلام عليكم و رحمة الله و بركاته
أدعو الله تعالى أن تكون أخي الغالي " أحمد عبد العليم " بتمام الصحّة و العافية و جميع أفراد أسرتك الفاضلة .. و أن يمنَّ عليك و يحقّق لك ما تتمنّاه
لم أجد ما أقوله لك سوى :
بارك الله فيك و لك .. و في صحتّك و أوقاتك و جميع أمورك الدينيّة و الدنيوية
يسّر الله أمورك مثلما تكرّمت سيّدي القدير و يسّرتَ لي أموري
هذا أخي الغالي و أستاذي العزيز ما أردت فعله بالضبط
تمام التّمام .. هذا هو المطلوب طولاً و عرضًا و الحمد لله
جزاك الله خير الجزاء يا أحمد يا عبد العليم و أحسن إليك مثلما دومًا تحسن إلينا نحن المبتدئين
فائق إحتراماتي لشخصك الكريم

الرد }}}}
تم الشكر بواسطة: ahmedabdelaliem , Ahmed_Mansoor
#4
لقد اثلجت صدري

شكرا لحضرتك على كلماتك المحملة بمشاعر الاخوة والطيبة

بارك الله فيك وفي اولادك وعملك اخي الحبيب
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}}
تم الشكر بواسطة: عبد العزيز البسكري , Ahmed_Mansoor
#5
السّلام عليكم و رحمة الله و بركاته
أدعو الله أنّك أخي الغالي و أستاذي القدير " أحمد عبد العليم " بتمام الصحّة و العافية
آسف .. و الله جد آسف أخي الغالي على الازعاج ..
لأني لم أعرف كيف أتصرّف بالأمر ..
أضفت بعض التاكسات إلى الفورم و أضفت ما يجب إضافته بالكود ..
لكن المشكلة سيّدي الكريم عند التّرحيم .. يتم التّرحيل إلى أسفل الجدول و ليس إبتداءً من الرقم 1 إلى 10
ثم من الرقم التسلسلي 11 إلى 20 ...إلخ
ألف شكر مقدّمًا على النّظر في الموضوع
جزاك الله خيرا و زادها بميزان حسناتك
فائق إحتراماتي لشخصك الكريم


الملفات المرفقة
.rar   الترحيل.rar (الحجم : 9.83 ك ب / التحميلات : 36)
الرد }}}}
تم الشكر بواسطة:
#6
هل المطلوب حذف السجلات السابقة واضافة سجلات جديدة ام ماذا ؟

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

فهل هذا هو المطلوب
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}}
تم الشكر بواسطة: عبد العزيز البسكري
#7
أخي الغالي " أحمد عبد العليم "
المطلوب ليس حذف السجلاّت السابقة و إنّما إضافة سجلات جديدة تحت السجلات الموجودة سابقا
إذا كانت السجلات الموجودة على ورقة الاكسل قدرها 200 سجل مثلاً .. عند ترحيل 10 سجلات جديدة .. ستبدأ من 201 إلى غاية 210 و هكذا ..
إحتراماتي
الرد }}}}
تم الشكر بواسطة:
#8
هذا هو ما يحدث اخي عبدالعزيز عند الترحيل يضيف سجلات جديدة وارقام  تسلسلية جديدة

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

لو المطلوب الاضافة فهي تعمل تمام مع التسلسل لانك غيرت اسماء الحقول الرئيسية لذلك التسلسل لا يعمل وانا الان قمت بضبطه مرة اخرى ارجو
توضيح الطلوب

شاكر لك

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

هل هو المطلوب

PHP كود :
If RS.State adStateOpen Then RS.Close

RS
.Open "Select * From [Feuil1$]"CnadOpenKeysetadLockPessimistic
Dim I 
As Integer
For 0 To 5
RS
.AddNew
If 0 Then
RS
.Fields(0).Value GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value Text1.Text
RS
.Fields(2).Value Text2.Text
RS
.Fields(3).Value Text3.Text
RS
.Fields(4).Value Text4.Text
RS
.Fields(5).Value Text5.Text
RS
.Fields(6).Value Text6.Text
RS
.Update
1
End 
If
RS.MoveNext

If 1 Then
RS
.AddNew
RS
.Fields(0).Value GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value Text7.Text
RS
.Fields(2).Value Text8.Text
RS
.Fields(3).Value Text9.Text
RS
.Fields(4).Value Text10.Text
RS
.Fields(5).Value Text11.Text
RS
.Fields(6).Value Text12.Text
RS
.Update
1
End 
If
RS.MoveNext
       
If 2 Then
RS
.AddNew
RS
.Fields(0).Value GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value Text13.Text
RS
.Fields(2).Value Text14.Text
RS
.Fields(3).Value Text15.Text
RS
.Fields(4).Value Text16.Text
RS
.Fields(5).Value Text17.Text
RS
.Fields(6).Value Text18.Text
RS
.Update
1
End 
If
RS.MoveNext
       
If 3 Then
RS
.AddNew
RS
.Fields(0).Value GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value Text19.Text
RS
.Fields(2).Value Text20.Text
RS
.Fields(3).Value Text21.Text
RS
.Fields(4).Value Text22.Text
RS
.Fields(5).Value Text23.Text
RS
.Fields(6).Value Text24.Text
RS
.Update
1
End 
If
RS.MoveNext
       
If 4 Then
RS
.AddNew
RS
.Fields(0).Value GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value Text25.Text
RS
.Fields(2).Value Text26.Text
RS
.Fields(3).Value Text27.Text
RS
.Fields(4).Value Text28.Text
RS
.Fields(5).Value Text29.Text
RS
.Fields(6).Value Text30.Text
RS
.Update
1
End 
If
RS.MoveNext
       


If 5 Then
RS
.AddNew
RS
.Fields(0).Value GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value Text31.Text
RS
.Fields(2).Value Text32.Text
RS
.Fields(3).Value Text33.Text
RS
.Fields(4).Value Text34.Text
RS
.Fields(5).Value Text35.Text
RS
.Fields(6).Value Text36.Text
RS
.Update
1
End 
If
RS.MoveNext

If 6 Then
RS
.AddNew
RS
.Fields(0).Value GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value Text37.Text
RS
.Fields(2).Value Text38.Text
RS
.Fields(3).Value Text39.Text
RS
.Fields(4).Value Text40.Text
RS
.Fields(5).Value Text41.Text
RS
.Fields(6).Value Text42.Text
RS
.Update
1
End 
If
RS.MoveNext

If 7 Then
RS
.AddNew
RS
.Fields(0).Value GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value Text43.Text
RS
.Fields(2).Value Text44.Text
RS
.Fields(3).Value Text45.Text
RS
.Fields(4).Value Text46.Text
RS
.Fields(5).Value Text47.Text
RS
.Fields(6).Value Text48.Text
RS
.Update
1
End 
If
RS.MoveNext

If 8 Then
RS
.AddNew
RS
.Fields(0).Value GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value Text49.Text
RS
.Fields(2).Value Text50.Text
RS
.Fields(3).Value Text51.Text
RS
.Fields(4).Value Text52.Text
RS
.Fields(5).Value Text53.Text
RS
.Fields(6).Value Text54.Text
RS
.Update
1
End 
If
RS.MoveNext

If 9 Then
RS
.AddNew
RS
.Fields(0).Value GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value Text55.Text
RS
.Fields(2).Value Text56.Text
RS
.Fields(3).Value Text57.Text
RS
.Fields(4).Value Text58.Text
RS
.Fields(5).Value Text59.Text
RS
.Fields(6).Value Text60.Text
RS
.Update
1
End 
If
RS.MoveNext


Next
MsgBox 
"ÊãÊ ÚãáíÉ ÊÑÍíá ÇáÈíÇäÇÊ"vbInformation"ÃÎíß ÃÍãÏ ÚÈÏ ÇáÚáíã"
Exit Sub 


الملفات المرفقة
.rar   الترحيل.rar (الحجم : 10.31 ك ب / التحميلات : 46)
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}}
تم الشكر بواسطة: عبد العزيز البسكري
#9
السّلام عليكم و رحمة الله و بركاته
آسف .. آسف مرة أخرى على الإزعاج أخي الفاضبل " أحمد عبد العليم "
معذرة لم أتمنك من الرّد في وقتها .. كان الوقت جد متأخر عن موعد العمل
لاحظ أخي الفاضل هذه الصورة لقاعدة البيانات و هي فارغة تمامًا ..
لكن عندما أقوم بعملية التّرحيل أجد البيانات قم تم ترحيلها لأسفل الصفحة و ليس في أعلى قاعدة البيانات بداية من الرقم الرقم التسلسلي 1

أرجو أني وفقت في شرح المشكلة
بارك الله مسبّقًا سيدي الكريم
إحتراماتي
الرد }}}}
تم الشكر بواسطة:
#10
نعم اخي فهمت قصدك

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

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

ارجو ان أكون قد وفقت في الشرح

بالتوفيق
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}}
تم الشكر بواسطة: عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo حفظ البيانات فى قاعدة البيانات كل تكس فى سجل المبرمج العتيق 1 69 16-10-17, 11:38 AM
آخر رد: Mohamad Anan
  [مثال] مثال متكامل للتعامل مع قاعدة بيانات من نوع mysql على الانترنت ahmedabdelaliem 13 1,473 13-10-17, 06:18 PM
آخر رد: ahmed.m
  [ تمّ الحل ] : إعادة عرض البيانات داخل الفليكس جريد عبد العزيز البسكري 3 128 05-10-17, 04:31 PM
آخر رد: عبد العزيز البسكري
  [سؤال] كود فتح و اغلاق قاعدة بيانات gharib 9 203 29-09-17, 11:30 PM
آخر رد: gharib
  التّعامل مع قواعد البيانات SQlite عبد العزيز البسكري 2 80 28-09-17, 12:50 PM
آخر رد: عبد العزيز البسكري
  سؤال فى قواعد البيانات مبرمج مصرى 2 48 28-09-17, 11:24 AM
آخر رد: مبرمج مصرى
  [vb6.0] كيف يتم حل مشكلة طول الفورم و عرضه عند تثبيت البرنامج في جهاز اخر larbihamri 10 356 27-09-17, 04:52 PM
آخر رد: Mohamad Anan
Question [vb6.0] كيف اغلاق ملف قاعدة بيانات اكسس مفتوحة من خلال برنامجي ؟؟ Microformt 3 66 21-09-17, 04:20 PM
آخر رد: Amir_alzubidy
  من لديه طريقه او باتش خاص بضغط ملف ال بي دي اف قبل تخزينه بقاعده البيانات يلغه فجوال scsi7000 4 92 18-09-17, 09:33 PM
آخر رد: scsi7000
  من لديه طريقه اذا امتلئت قاعده البيانات اكسس يقوم البرنامج بتصنيع قاعده بيانات من نفس scsi7000 7 189 18-09-17, 01:41 PM
آخر رد: عبد العزيز البسكري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم