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

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

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

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

السلام عليكم

يا اخي العزيز , لو أعدت صيغت السؤال بشكل جيد, لما طال الانتظار!!!

اقتباس

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

ثم أن القارئ لو نزل المرفق ما عرف مكان الـ Data List و أي الحقول التي ستحفظ فيه ..

أكتب السؤال من جديد و ضع مرفق مختصر حتى يسهل على الناس مساعدتك

بمعنى اخر , ساعدهم في توصيل السؤال , حتى يكون بالمقابل مساعدتهم لك في إجاد الجواب و الحل.

السلام عليكم.

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

اشكرك اخي الشهاب لايضاح نقطة عدم وضوح السؤال

تم التعديل على البرنامج وتحديد عمل البرنامج وتوضيح المشكلة بشكل اوسع وتم ارفاق ملف word بداخل الملف المرفق للبرنامج

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

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

My_Proplem.rar

السلام عليكم

انظر في المرفق,, رغم أن هذا الاسلوب في البرمجة ,, أنصحك إن لا تتابع فيه و أن تقرأ في كتب التصميم

وتحليل البيانات ,,, والله الموفق.

my_project.rar

السلام عليكم

اخي الشهاب اشكرك على ايجاد الحل لمشكلتي

ولكن لدي نقطة اريد ان توضح لي

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

اقتباس

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

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

على كل هنالك أكثر من طريقة لجلب البيانات و استرجاعها الى العنصر list box هذه إحدى تلك الحيل.

Dim strVal As String = _
		"Salem Ali Rashid Saif Omar Fahed Rashed Khalifa"

		Dim arrstr() As String

		arrstr = Split(strVal, " ")

		Dim SpariteVal As String = String.Empty


		For i As Integer = 0 To arrstr.Length - 1

			If i Mod 2 = 0 Then

				SpariteVal &= arrstr(i) & " "

			Else

				SpariteVal &= arrstr(i) & vbCrLf

				Me.ListBox1.Items.Add(SpariteVal)

				SpariteVal = ""

			End If

		Next

		arrstr = Nothing
		strVal = Nothing
		SpariteVal = Nothing

بالتوفيق إن شاء الله.

SpliteConcept.rar

السلام عليكم

اعتذر اخي الشهاب عن التاخر بالرد لقد جربت الطريقة اللتي كتبتها اشكرك على المساعدة

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

يعني

الاسم الاول : Mohammed Ahmad Ali

والاسم الثاني : Salim Ali مثلا فسوف تسبب لي المشاكل الا اذا وضعت اساس الفصل مثلا بفاصلة بدل الفراغ يعني بين كل اسم والاسم الثاني فاصلة

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

اقتباس

الا اذا وضعت اساس الفصل مثلا بفاصلة بدل الفراغ

بإدخال فاصلة بالخطأ فتقع المشكلة, لذلك نوهنا من قبل أن التحليل السليم هو اسلم و أفضل الطرق..