[waelalmsry75]

(30-06-17, 01:19 AM)K39 كتب :

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   Dim sql As String = "SELECT * FROM [Table1] WHERE " & RemoveFieldTashkeel("FirstName") & " = @fname"
   Using da As New OleDb.OleDbDataAdapter(sql, conn)
       da.SelectCommand.Parameters.AddWithValue("@fname", "محمد")
       Dim dt As New DataTable

       da.Fill(dt)

       DataGridView1.DataSource = dt
   End Using
End Sub

Public Shared Function RemoveFieldTashkeel(fieldName As String) As String
   fieldName = fieldName.Replace("[", "").Replace("]", "")
   fieldName = String.Concat(Enumerable.Repeat("Replace(", 8)) & "[" & fieldName & "]" & String.Concat(Enumerable.Range(1611, 8).Select(Function(x) ",'" & ChrW(x) & "','')"))
   Return fieldName
End Function

---

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   Dim q = Database1DataSet.Table1.Where(Function(x) RemoveTextTashkeel(x.FirstName).Equals("محمد"))
   If q.Count > 0 Then
       DataGridView1.DataSource = q.CopyToDataTable
   End If
End Sub

Public Shared Function RemoveTextTashkeel(txt As String) As String
   txt = String.Concat(txt.Split(Enumerable.Range(1611, 8).Select(Function(x) ChrW(x)).ToArray))
   Return txt
End Function

شكرا لك على اهتمامك أخي K39
لكني لم أستطع تنفيذ الكود
فأرفقت مثالا للتطبيق عليه إن تيسر لك ذلك
وجزاك الله خيرا