منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(11-02-23, 11:41 PM)aminesori كتب : [ -> ]

السلام عليكم 

لقد بحثت ووجد هذا يقوم بالبحث في عدة اعمده في قاعدت بياناتsql

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

كود :

 Dim query As String = "SELECT CustomerID, ContactName, Country FROM Customers"
   query &= " WHERE CustomerID LIKE '%' + @SearchTerm + '%'"
   query &= " OR ContactName LIKE '%' + @SearchTerm + '%'"
   query &= " OR Country LIKE '%' + @SearchTerm + '%'"
   query &= " OR @SearchTerm = ''"
   Dim constr As String = "Data Source=.\SQL2017;Initial Catalog=Northwind;Integrated Security=true"
   Using con As SqlConnection = New SqlConnection(constr)
       Using cmd As SqlCommand = New SqlCommand(query, con)
           cmd.Parameters.AddWithValue("@SearchTerm", txtSearchTerm.Text.Trim())
           Using sda As SqlDataAdapter = New SqlDataAdapter(cmd)
               Dim dt As DataTable = New DataTable()
               sda.Fill(dt)
               Return dt
           End Using
       End Using
   End Using