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

جلب البيانات من القاعدة بشرط يتضمن قيم قي Listbox

مغلق
بدأه الكتكوووته في 22 نوفمبر 2007 · 2 رد · 788 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

select Employee_ID from Employees where   Employee_ID   in ( 1,3,5.......etc)

فإن ارد ان احدد القيم...بقيم موجودة داخل

ListBox

كتبت الكود التالي ولم يعطيني نتائج صحيحة

select Employee_ID from Employees where   Employee_ID   in (" & Me.ListBox1.Items(me.ListBox1.Items.Count-1) &")"

الله يجزيكم بالخير احتاج الطريقة الصحيحة

وشكرا

تم تعديل هذه المشاركة بواسطة الكتكوووته في 22 نوفمبر 2007 في 10:52

#2

السلام عليكم

زي ما فهمت منك انتي بدك يكون عندك list تختاري منها الرقم المطلوب و من ثم ارجعي داتا حسب الرقم اللي انتي اخترتيه من ال list

اذا هيك قصدك فالصح انك تستخدمي :

Me.ListBox1.SelectedItems.Value

هيك بيجيب قيمة ال item اللي اخترتيه بس يمكن تحتاجي تحولي هاي القيمة الى string

إن شاء الله اكون ساعدنك جربي و خبريني

#3

السلام عليكم

هناك طريقة قديمة كنت استعملها في vb6 وقمت بتعديها وتجربتها في vb2005 ونجت

اذا كنت تستخدمين checkedlistbox

انظري لهذا الكود وخذي منه ما تستفيدين منه بخصوص تحميل المختار من القائمة .. واسف لانني اقتطعت هذا الكود من إحدى البرامج التي قمت بعملها .

Private Sub LoadSelectedRecordset()
		Dim i As Integer = 0
		Dim indxRows1 As String = String.Empty
		'
		Me.gridRecordset.DataSource = Nothing

		Try


			For i = 0 To Me.lstChkRecords.Items.Count - 1
				'
				If Me.lstChkRecords.GetItemChecked(i) = True Then
					Me.lstChkRecords.SetSelected(i, True)
					indxRows1 &= Me.lstChkRecords.SelectedValue & ","
				End If
			Next
			dvRecordsetCount = New DataView(Me.bsRecordset.DataSource)

			Me.dvRecordsetCount.RowFilter = "AutoNo IN (" & indxRows1 & ")"
			'
			Me.gridRecordset.DataSource = Me.dvRecordsetCount

			Me.gridRecordset.Columns(0).HeaderText = "المنشأة"
			Me.gridRecordset.Columns(0).DataPropertyName = "Company"
			Me.gridRecordset.Columns(1).HeaderText = "العميل"
			Me.gridRecordset.Columns(1).DataPropertyName = "Customer"
			Me.gridRecordset.Columns(2).HeaderText = "صندوق"
			Me.gridRecordset.Columns(2).DataPropertyName = "BOX"
			Me.gridRecordset.Columns(3).HeaderText = "المدينة"
			Me.gridRecordset.Columns(3).DataPropertyName = "City"
			Me.gridRecordset.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
			'
			Me.gridRecordset.Columns(0).Width = 150
			Me.gridRecordset.Columns(1).Width = 150
			Me.gridRecordset.Columns(2).Width = 80
			Me.gridRecordset.Columns(3).Width = 100
			Me.gridRecordset.Columns(4).Visible = False
			Me.gridRecordset.Columns(5).Visible = False
			Me.gridRecordset.Columns(6).Visible = False
			Me.gridRecordset.Columns(7).Visible = False
			Me.gridRecordset.Columns(8).Visible = False
			Me.gridRecordset.Columns(9).Visible = False
			Me.gridRecordset.Refresh()
			'

			Me.lblLst2_2.Text = Me.dvRecordsetCount.Count
			If Me.dvRecordsetCount.Count > 0 Then
				Me.LockButtens3(True)
			End If
		Catch ex As Exception
			MsgBox(ex.Message)

		End Try

	End Sub

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

Friend dvBandCount As DataView
	Friend dvRecordsetCount As DataView
	Friend bsRecordset As BindingSource

تم تعديل هذه المشاركة بواسطة aswany في 25 نوفمبر 2007 في 13:09

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

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…