تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
خلل فى إحضار البيانات من قاعدة أكسس
#1
السلام عليكم ورحمة الله
باختصار أعمل على برنامج قاموس يترجم المصطلحات والجمل

فمثلاً عندما أكتب فى التيكست بوكس الخاص باللغة الإنجليزية هذه الجملة:


يطبق البرنامج الخانة الموجودة فى قاعدة البيانات وهى:


فيظهر النص فى التيكست بوكس الخاص باللغة العربية كالتالى:


ولكنه يظهر كالتالى:


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


ومن الواضح أن كلمة okay كانت فى النص المترجم ولم تكتب فى تيكست بوكس اللغة الإنجليزية
ورغم ذلك ترجمها البرنامج أيضاً عندما وجدها فى قاعدة البيانات
وهذا هو الكود الخاص بالـ function التى تتحكم بالأمر:

كود :
Function getidom(ByVal content As String) As String
        Try
            Dim count As Integer = 0
            Using adp As New OleDb.OleDbDataAdapter("SELECT * FROM [Idoms]", connectionString)
                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").Replace("?", "\?")
                            Dim ar As String = row.Item("Arabic")
                            count += Regex.Matches(content, en, RegexOptions.IgnoreCase).Count
                            content = Regex.Replace(content, en, ar, RegexOptions.IgnoreCase)
                        Next
                    End If
                End Using
            End Using
            Return content
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        getidom = ""
    End Function

وعند الضغط على زر الترجمة تطبق الـ function كالتالى:
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = getidom(TextBox1.Text)

أرجو أن أكون قد أوضحت فكرتى وأنا موجود لأى استفسار
الرد
تم الشكر بواسطة:
#2
up
-----------------------------------------
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] قاعده البيانات لاتقوم بالحفظ من اول امر jassim316 4 77 أمس, 08:01 PM
آخر رد: elgokr
  [VB.NET] طريقة الاتصال واغلاق الاتصال بقاعدة البيانات dubai.eig 8 119 أمس, 07:53 PM
آخر رد: elgokr
  [كود] طريقة البحث عن صورة في قاعدة البيانات access باستعمال صورة أخرى technomedia 6 99 20-02-19, 04:01 PM
آخر رد: elgokr
  [VB.NET] فتح ارتباط تشعبي موجود ضمن قاعدة البيانات اكسس EMADSSS 2 75 17-02-19, 09:32 PM
آخر رد: EMADSSS
  [VB.NET] رفع قاعدة بيانات علي جوجل دريف والاتصال بها من أكثر من جهاز محمد صلاح ابراهيم 4 369 17-02-19, 02:31 PM
آخر رد: sendbad100
  برجاء تجربة المثال المرفق لتصدير البيانات الى اكسيل new_programer 7 159 15-02-19, 08:09 PM
آخر رد: new_programer
  [سؤال] عرض الصورة من قاعدة البيانات محمد اسماعيل 3 95 15-02-19, 06:28 AM
آخر رد: princelovelorn
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 4 130 14-02-19, 06:46 PM
آخر رد: عبد العزيز البسكري
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 3 104 11-02-19, 11:39 PM
آخر رد: princelovelorn
  عدم الحفظ في قاعدة البيانات في الوندوز 64 بايت raaddawood 9 180 06-02-19, 01:16 PM
آخر رد: sendbad100

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


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