كيف استطيع تجميع قيم ثلاث حقول في حقل واحد ومن ثم التعامل مع هذا الحقل

Up

مرحبا اخي Super Pro

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

تجعل حقل الاسم الأول يحفظ الموجود داخل تكست1

تجعل حقل اسم الأب يحفظ الموجود داخل تكست2

تجعل حقل الاسم الاخير يحفظ الموجود داخل تكست3

..................................................................

المهم / تجعل تكست4 تحمل الموجود داخل التكستات1 و 2 و 3 بالترتيب الصحيح

.................................................................

تجعل حقل الاسم كامل يحفظ الموجود داخل تكست4

.................................................................

في خانة الاسم كاملاً يعرض الموجود في حقل الاسم كاملاً.

Test.zip

اخي اشكرك على المشاركة لكن

اقتباس

خطرفي بالي فكرة لكن اظنها ستودي الى تأخير عند التعامل مع جدول كبيرة

وهي

كود

rs.open "select No,First_name,Father_name,Last_Name from [student]"

dim Fullname as string

fullname = rs("first_name") & " " & rs("father_name") & " " & rs("Last_name")

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

لا ادري ما رأيكم

ان اعلم هذه الطريقة لكن سؤالي عن جملة Sql تقوم بهذا العمل لانها اسرع

لانني كم تلاحظ قد خزنت الاقسام في حقول متفرقة

ولكن اريد عرضها كأنها حقل واحد

مع العلم ان برنامجي هو برنامج قطع سيارات ولكني وضعت هذا المثال لسهولة

واني قد قمت بربط ثلاث جداول مع بعضها (طبعا عارفين ما هي فائدة الربط التوفير في الموارد و عدم التكرارو امور اخرى)

الاخ الفاضل ارجو ان يكون هذا مفيد لك:

DB.zip

	rs.Open "Select No, First_name+' '+Father_name+' '+Last_Name As Fullname From [Student]"

Eng. Usama El-Mokadem

اخي شكر كبير بكبر هذا المنتدى

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

و شكري ايضا لكل من حاول مساعدتي

;) ;) ;)

اخي هل تعرف باقي جملة الـ SQl التي تمكنني من

اهمال الحقول التي تكون " " سبيس فارغ

اخي الحقول و ليس السجلات مثال

الاسم الاول: عبدالرحمن

الاسم الثاني : " "

الاسم الثالث : نورالله

لا اريد النتيجة هكذا

عبدالرحمن " " نورالله

لاحظ الفراغ بين المقطعين الاول و الاخير

هل تعلم جملة Sql تقوم بذلك ؟؟

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

اخي قد تغلبت على المشكلة السابقة

لكن الان لدي سؤال

وهو هل يعقل اني لن استطيع البحث بواسطة هذا السجل الجديد( Fullname )

الذي اريد يتلخص بتالي

اقتباس

rs.Open "Select No, First_name+' '+Father_name+' '+Last_Name As Fullname From [student] where Fullname = 'Ali Ahmed said'", conn

4 up

الأخ الفاضل ...

معذرة على التخير فى الرد

جرب هذه الجملة

rs.Open "Select * From (Select ID, First_name+' '+Father_name+' '+Last_Name As Fullname From [Student]) where Fullname = 'Ali Ahmed said'", conn

(h) حقا ابدعت (h)

مشكورة مرة اخرى اخي الكريم

و الى الامام ان شاء الله معنا في المنتدى

اخي اثقلت عليك ولكن ارجو ان تتحملني وانا ارى انك على خبرة عظيمة في جمل الـ SQl التي استطيع ان اسميها مركبة

هل استطيع ان اتحكم بشكل العرض مع امكانيه البحث بشكل مختلف يعني كتالي :

rs.Open "Select * From (Select ID, First_name+''+Father_name+''+Last_Name As Fullname From [Student]) where Fullname = 'AliAhmedsaid'", conn

اخي لاحظ اني قمت بعملية البحث دون وجود فراغات بين الحقول

First_name+''+Father_name+

لاحظ المسافة بين الحلقين

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

كتالي

First_name+'   '+Father_name+

لاحظ المسافة بين الحلقين

بنفس جمل الـ SQl

up :lol:

الأخ الفاضل ...

أنت دائماً على الرحب والسعة ، ، ،

أما بالنسبه لسؤالك فيمكن أتمام ذلك بعدة طرق مختلفة ولكن أبسطها هو أستخدام جملتين SQL مختلفتين

بحث تكون واحدة:

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

First_name+'   '+Father_name+

اخي اذا كنت تعرف طرق اخرى ارجةو امدادي بها

لاني اريد ان اعرف هذا الطرق

لاني الصراحة كنت متوقع جواب سؤالي هو ""لا يوجد جملة Sql تقوم بهذا العمل """

و الصراحة فاجئتني باجابتك

فانا اعرف الـ SQl البسيط اضافة تعديل استعلام بسيط يعني على قدي :lol:

و رايت انها توفر على الكثير الكثير فقررت ان اتوسع بها

اخواني وجدت الحل و الكود التالي(او الخبيصة التالية :P ) هو كود يقوم بعرض بتعامل مع ثلاث جداول

بحيث يقوم بعرض النتيجة مع دمج قيم 5 حقول معا من جداول مختلفة حسب شرط للعرض

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

 Qp1 = "Select [Goods].Serial  ,[car].NameCar+' '+[part].NamePart+' '+[Part].Vside+' '+[Part].Hside+' '+[part].HeadSide+' '+[Part].InOut as rr ,[Goods].FromModel,[Goods].ToModel from "
 Qp2 = "(Select * From [Goods],[car],[Part] where [Goods].NoCar in (Select [Car].NoCar From [Goods]) And  [part].noPart = [goods].NoPart ) "
 Qp3 = "where [Goods].serial in "
 Qp4 = "(Select [Goods].serial From (Select [Goods].Serial  ,[car].NameCar+''+[part].NamePart+''+[Part].Vside+''+[Part].Hside+''+[part].HeadSide+''+[Part].InOut as nn From [Goods],[car],[Part] where [Goods].NoCar in (Select [Car].NoCar From [Goods]) And  [part].noPart = [goods].NoPart ) where nn = 'سفكطمبونامامي')"

  RS.Open Qp1 & Qp2 & Qp3 & Qp4, DB, adOpenDynamic, adLockReadOnly

يعني فائدة الكود تعلم كيف يمكن عرض الكود بشكل يختلف عن كود البحث

مع طريقة ربط ثلاث جداول معا ً

و الكود هو نتاج جهد 1.5 ساعة طبعا بعد التوكل على الله