02-10-13, 05:40 PM
(آخر تعديل لهذه المشاركة : 27-03-17, 05:42 PM {2} بواسطة @@أبورائد@@.)
السلام عليكم ورحمة الله وبركاته
عندي طريقة أستخدمتها قديماً، بحيث يتم البحث على أساس مربعات النص التي ليست فارغة فقط،
ويمكن إضافة خيارات CheckBox و RadioButton أيضاً.
لاحظوا: توجد مسافة موجود في نهاية كل جملة نصية.
السلام عليكم ورحمة الله وبركاته
عندي طريقة أستخدمتها قديماً، بحيث يتم البحث على أساس مربعات النص التي ليست فارغة فقط،
ويمكن إضافة خيارات CheckBox و RadioButton أيضاً.
لاحظوا: توجد مسافة موجود في نهاية كل جملة نصية.
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sql As String = "SELECT * FROM [table1] "
Dim where As String = ""
If Me.txtName1.Text.Trim <> "" Then where &= "AND [name1] = @name1 "
If Me.txtName2.Text.Trim <> "" Then where &= "AND [name2] = @name2 "
If Me.txtName3.Text.Trim <> "" Then where &= "AND [name3] = @name3 "
If where <> "" Then sql &= "WHERE " & where.Substring(4)
Dim comm As New OleDb.OleDbCommand(sql, conn)
If Me.txtName1.Text.Trim <> "" Then comm.Parameters.AddWithValue("@name1", Me.txtName1.Text.Trim)
If Me.txtName2.Text.Trim <> "" Then comm.Parameters.AddWithValue("@name2", Me.txtName2.Text.Trim)
If Me.txtName3.Text.Trim <> "" Then comm.Parameters.AddWithValue("@name3", Me.txtName3.Text.Trim)
MsgBox(sql)
Dim dt As New DataTable
Dim da As New OleDb.OleDbDataAdapter(comm)
If da.Fill(dt) > 0 Then
'
'
'
End If
End Sub
يجب الانتباه عند نسخ الكود قد تجد مسافة داخل أحد أسطر الكود (بسبب خلل في عرض الكود) مما يظهر خطأ فيجب حذف المسافة المدرجة
السلام عليكم ورحمة الله وبركاته