التنبيهات التالية ظهرت :
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 864 - File: showthread.php PHP 7.4.33 (Linux)
File Line Function
/showthread.php 864 errorHandler->error



تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] طريقة البحث المتقدم بإنشاء جملة استعلام متقدمة
#1
السلام عليكم ورحمة الله وبركاته


عندي طريقة أستخدمتها قديماً، بحيث يتم البحث على أساس مربعات النص التي ليست فارغة فقط،
ويمكن إضافة خيارات 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


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


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


الردود في هذا الموضوع
طريقة البحث المتقدم بإنشاء جملة استعلام متقدمة - بواسطة @@أبورائد@@ - 02-10-13, 05:40 PM


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم