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

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

بدأه aiasalem في 21 نوفمبر 2009 · 3 رد · 678 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

الرجاء المساعدة في عمل هذا الاستعلام

حيث انني عامل اداة ckecklistbox

وبها العناصر الاتية

يناير

فبراير

مارس

حتي شهر ديسمبر

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

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

Dim i As Integer

For i = 0 To lst1.Items.Count - 1

lst1.SelectedItem = i

If lst1.GetItemChecked(i) = True Then

Dim conn As New OleDb.OleDbConnection

Dim ds1 As New DataSet

Dim sql As String = "SELECT * from table3 WHERE monthly= '" & lst1.SelectedItem(i) & "'"

conn.ConnectionString = "provider = Microsoft.jet.oledb.4.0;" & "Data Source=" & Application.StartupPath & "\MyData.mdb;User ID=Admin;Jet OLEDB:Database Password=ado "

Dim da As New OleDb.OleDbDataAdapter(sql, conn)

#2

ان الامر الذي يجب ان تستعمله هو IN

Dim myList As String = ""
		For Each mycheck in Me.CheckedListBox1.CheckedItems
			mylist += "'" & mycheck.ToString & "'" + ","
		Next
		myList = Microsoft.VisualBasic.Left(myList,Len(myList)-1)
		MsgBox (myList)
Dim Sql As String = "SELECT * FROM TABLE3 WHERE monthly IN (" & myList & ")"

SQL IN

تم تعديل هذه المشاركة بواسطة سمير ابراهيم في 21 نوفمبر 2009 في 15:33

#3

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

وكل عام وانتم بخير

#4
aiasalem كتب:
اشكرك علي الاهتمام بالموضوع وبالفعل تم نجاح الاستعلام شاكرين اعضاء هذا المنتدي الجميل

وكل عام وانتم بخير

تكرم. شرفت وما كلفت :)

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

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

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

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

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