(08-10-16, 03:30 PM)حريف برمجة كتب : ارفق مثال للتعديل عليه .
مرفق مثال أخي
الصق الكود كامل للبوتن 1
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If RadioButton2.Checked = True Then
DataAdapter1 = New OleDbDataAdapter("Select * From table1 Where id Like '%" & Trim$(TextBox1.Text) & "%'", Conn)
ElseIf RadioButton1.Checked = True Then
For Each s As String In TextBox1.Text
s = Regex.Replace(s, "[أإآا]", "[أإآا]")
s = Regex.Replace(s, "[هة]", "[هة]")
s = Regex.Replace(s, "[ىي]", "[ىي]")
s = Regex.Replace(s, "[وؤ]", "[وؤ]")
Dim txt As String = s
DataAdapter1 = New OleDbDataAdapter("Select * From table1 Where name Like '%" & txt & "%'", Conn)
Next
End If
Dim i As Integer
On Error Resume Next
i = DataGridView1.CurrentRow.Index
TextBox_view.Text = DataGridView1.Item(1, i).Value
(08-10-16, 03:30 PM)حريف برمجة كتب : ارفق مثال للتعديل عليه .
مرفق مثال أخي
الصق الكود كامل للبوتن 1
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If RadioButton2.Checked = True Then
DataAdapter1 = New OleDbDataAdapter("Select * From table1 Where id Like '%" & Trim$(TextBox1.Text) & "%'", Conn)
ElseIf RadioButton1.Checked = True Then
For Each s As String In TextBox1.Text
s = Regex.Replace(s, "[أإآا]", "[أإآا]")
s = Regex.Replace(s, "[هة]", "[هة]")
s = Regex.Replace(s, "[ىي]", "[ىي]")
s = Regex.Replace(s, "[وؤ]", "[وؤ]")
Dim txt As String = s
DataAdapter1 = New OleDbDataAdapter("Select * From table1 Where name Like '%" & txt & "%'", Conn)
Next
End If
Dim i As Integer
On Error Resume Next
i = DataGridView1.CurrentRow.Index
TextBox_view.Text = DataGridView1.Item(1, i).Value