[Doctor GME]

(16-07-15, 05:31 AM)سعود كتب : اخي الكريم ساجهز باذن الله مثال سريع لتعرف فكرتي بشكل اسرع

---

كود :

Imports System.Data.OleDb

Public Class Form1
   Dim con As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")

   Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles ar.KeyDown
       If e.KeyData = Keys.Enter Then
           Dim cm As New OleDbCommand("", con)
           cm.CommandText = "select * from tb where ar like'%" & ar.Text & "%'"

           If con.State = ConnectionState.Closed Then
               con.Open()
           End If
           Dim dr As OleDbDataReader = cm.ExecuteReader
           If dr.HasRows Then
               If dr.Read Then
                   en.Text = dr.Item("en").ToString
               End If
               dr.Close()
           End If
           If con.State = ConnectionState.Open Then
               con.Close()
           End If
       End If
   End Sub

 
End Class

شكراً لك أخى
ولكنى لم أستطع تطبيقه على Function الخاصه بى
فكما ترى كود زر الترجمة فقط يحتوى على تطبيق ال function
وهذا كى أسهل على نفسى التعديل على كل وظيفة من البرنامج مستقلة
دون أن أضع كل شىء فى مكان واحد
لذا أرجو أن تحاول وضع المثال ليتلاءم مع ال function

---

(16-07-15, 06:27 AM)الطالب كتب : سلام

اأنصحك تنسخ اسم العمود وتلصقه في الكود

كود :

Using adp As New OleDb.OleDbDataAdapter("SELECT [English] FROM [Words] WHERE [Arabic] LIKE @Arabic", connectionString)
adp.SelectCommand.Parameters.AddWithValue("@Arabic", "%" & content & "%")

موفقين

شكراً على اهتمامك
وضعته ولم يعمل علماً بأننى قمت من قبل وأيضاً الآن بنسخ إسم العمود
ووضعه داخل الكود ولكن ظهرت رسالة الخطأ كالمعتاد:
Column Arabic doesn't belong to table