cmobobox

- يجدر الانتباه إلى أن ترقيم العناصر في الـ ComboBox كما بقية القوائم في الفيجول بايزيك دوت نيت يبدأ من الصفر

- الـ ComboBox سواء كانت مرتبطة بقواعد بيانات أم لا تكون طريقة استرجاع البيانات منه واحدة

- بافتراض أنه لدية كومبو باسم ComboBox1 و صندوق نصوص باسم TextBox1 على النافذة ونريد وضع العنصر الرابع ترتيبه 4 في قائمة الكومبو في صندوق النصوص نستخدم بكل بساطة

Me.TextBox1.Text = Me.ComboBox1.Items.Item(3).ToString

- بينما إذا أردنا الحصول على العنصر المختار حاليا أيضا بكل بساطة

Me.TextBox1.Text = Me.ComboBox1.Text

أما إذا أردت الحصول على اسم الموظف الذي رقمه 111 في جدول قاعدة البيانات فيمكنك الاستعلام عنه من قاعدة البيانات مباشرة أو عند عملك على الـ 2005 يمكنك أيضا عمل فلترة على الـ BindingSource

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

جزاك الله كل خير

كيف اعمل استعلام من قاعدة البيانات مباشر

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

Dim conn As SqlClient.SqlConnection

conn = New SqlClient.SqlConnection

' gate1 is the name of DB

conn.ConnectionString = "initial catalog=Gate1;integrated security=SSPI;user id=sa"

conn.Open(

Dim cmd As SqlClient.SqlCommand

cmd = New SqlClient.SqlCommand

cmd.Connection = conn

cmd.CommandText ="select sec_name from table_name wher id= ' " & value & " ' "

Dim read As SqlClient.SqlDataReader

read = cmd.ExecuteReader

If Not read.Read Then

MsgBox("عفوا,المدخلات غير صحيحة", MsgBoxStyle.Exclamation, "ERROR :(")

read.close()

conn.close

else

cmb1.text=read.item("sec_name")

read.close()

conn.close()

علما ان هذا الكود عرض جميع محتويات ال Textbox ولم يعرض محتويات ال combobox

ياليت اعرف اش الخطاء ولكم جزيل الشكر

اختي ما تريدينه موجود في كتاب mastering vb.net 2003 المترجم للاخ محمد حمدي غانم

أعتقد أن المشكلة عندك في

cmb1.text=read.item("sec_name")

جرب استبدال هذا السطر بالكود

			cmb1.Items.Clear()
			While read.HasRows = True
				cmb1.Items.Add(read.Item("sec_name").ToString)
			End While

السلام عليكم

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

المثال معمول على قاعدة بيانات Access

لتشغيله على SQL كل ما عليكم هو تغيير طريقة الدخول على قاعدة البيانات

أتمنى انه هوه ده يكون المفيد والمطلوب

أرجو الدعاء لي ولجميع المسلمين بظهر الغيب

WindowsApplication3.rar

:wacko: :unsure:

للأسف ماظبط معي الكود مامشي الحال

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

ياليت تحطلي الرابط

وجزاكم الله كل خير

يرجى ارفاق مثال عن العمل الذي تقوم به حتى يمكننا المساعدة بشكل عملي

على كل حال ممكن يكون كودك كالتالي: - بافتراض أن الكونيكشن سترينغ و عبارة select لديك صحيحتان

		Dim conn As SqlClient.SqlConnection
		conn = New SqlClient.SqlConnection
		' gate1 is the name of DB
		conn.ConnectionString = "initial catalog=Gate1;integrated security=SSPI;user id=sa"
		conn.Open()
		Dim cmd As New SqlClient.SqlCommand
		cmd.Connection = conn
		'cmd.CommandText = "select sec_name from table_name where id= ' " & value & " ' "
		cmd.CommandText = "select sec_name from table_name"
		Dim read As SqlClient.SqlDataReader
		read = cmd.ExecuteReader
		cmb1.Items.Clear()
		read.Read()
		If read.HasRows = False Then
			MsgBox("عفوا,المدخلات غير صحيحة", MsgBoxStyle.Exclamation, "ERROR ")
		End If
		While read.HasRows = True
			cmb1.Items.Add(read.Item("sec_name").ToString)
			read.Read()
		End While
		read.Close()
		conn.Close()

وإذا ظهر لديك خطأ يرجى وضع رسالة الخطأ كما هي وفي أي مكان من الكود يشير الخطأ

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

جزاكم الله كل خير على مجهودكم الرائع وجعله الله في ميزان حسناتكم

جربت هادا الكود مايطلع خطا بالكود ويعمل رن للبرنامج

ولكن عندما ادخل رقم الموظف يظهر الكمبوبكس فاضي ( مايسحب الاسم من قاعدة البيانات )

وعندما جربت هادا الكود على textbox ظبط وطلع اسم الموظف

ولقيت حل مؤقت ( حل غير مرضي للاسف )

اني اسحب الاسم من قاعدة بيانات واخزنه بمتغير على انه string ثم اسند قيمة هذا المتغير للكمبوبكس وظهر مظبوط

الكود الي كتبته

Dim x as string

x=read.item("sec_name").tostring

cmb1.text=x

وانا مازلت في بحث عن الكود

واكرر شكري لكم واعتذاري لاني تعبتكم

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

اسفة لعدم ارسالي للبرنامج لانه مشروع تخرج وكبييييييييييييييييييييييييير جدا