16-07-15, 08:09 AM
(16-07-15, 07:46 AM)الطالب كتب : سلام
هل جربت الكود - لاني جربته قبل وضعه في المشاركه وشغال تمام - اذا ظلت المشكله ضع الكود كامل لنشوف
موفقين
البرنامج يقبله بلا مشاكل
ولكن عند استخدام البرنامج تظهر رسالة الخطأ
وها هو الكود بالكامل:
Function argetword(ByVal content As String) As String
Try
Using adp As New OleDb.OleDbDataAdapter("SELECT [English] FROM [Words] WHERE [Arabic] LIKE @Arabic", connectionString)
adp.SelectCommand.Parameters.AddWithValue("@Arabic", "%" & content & "%")
Using tbl As New DataTable
If adp.Fill(tbl) > 0 Then
For Each row As DataRow In tbl.Rows
Dim en As String = row.Item("English")
Dim ar As String = row.Item("Arabic")
content = System.Text.RegularExpressions.Regex.Replace(content, ar, en, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
Next
End If
End Using
End Using
Return content
Catch ex As Exception
MsgBox(ex.Message)
Return String.Empty
End Try
End Function
وها هى صورة قاعدة البيانات:
وأيضاً صورة رسالة الخطأ:
