How to Fill ComboBox From Access

السلام عليكم

راجع هذا الموضوع

/index.php?showtopic=95457

بالتوفيق

كفاح كتب:

السلام عليكم

راجع هذا الموضوع

/index.php?showtopic=95457

بالتوفيق

السلام عليكم

أخى جربت هذا الكود ولم ينفع معى

لماذا لا أعلم

عموما شكرا على اهتمامك سأحاول مجددا

تحياتى........

السلام عليكم

الاخ كفاح

انا أريد أن أملا ال combo عن طريق الكود لا عن طريق الداتا جريد

تحياتى ...

اخي العزيز

ارجو ان ينفعك هذا الحل ..

اولا ضع هذا الكود في module ..

Function FillComboBox(ByVal field As String, ByVal table As String)
		Dim rd As OleDbDataReader
		Try
			If CON.State = ConnectionState.Closed Then
				CON.Open()
			End If

			With CMD
				.CommandType = CommandType.Text
				.CommandText = "SELECT " + field + " FROM " + table
				.Connection = CON
			End With

			rd = CMD.ExecuteReader

			Return rd

		Catch
			'Display error message, if any
			UnhandledExceptionHandler()
		End Try

	End Function

ثم في حدث تحميل الفورم ضع الكود التالي :

Dim rd As OleDbDataReader

rd = FillComboBox("FieldName", "TableName")
			While rd.Read
				ComboBox1.Items.Add(rd.Item("FieldName"))

			End While
			rd.Close()

وغير مايلزم

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

السلام عليكم

أخى فى الله ابوخالد العيدروس

لك وافر الشكر والاحترام على الافادة

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

تحياتى.........

للأسف لا أعرف لهذه البرمجة

لكني - إن شاء الله - أعرف عن طريق استخدام برمجة أخرى

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

تمهيدي كتب:

للأسف لا أعرف لهذه البرمجة

لكني - إن شاء الله - أعرف عن طريق استخدام برمجة أخرى

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

السلام عليكم

أخى فى الله تمهيدى

لك تحياتى

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

تحياتى ............ ;)