کمک در ساخت دیکشنری !!!!!!!!!!!!!!!!!
سلام به تمام دوستای گل .
من دارم یک برنامه دیکشنری انگلیسی به فارسی و برعکس مینویسم .
برنامه به درستی لغات رو از انگلیسی به فارسی ترجمه میکنه .
مشکل من اینجاست که نمیتونم کاری کنم که برنامه لغات رو از فارسی به انگلیسی
هم ترجمه کنه .
راستی بانکش اطلاعاتیش هم access است .
لطفا هرکس که میتونه کمکم کنه . این پروژه رو باید تا چند روز دیگه تحویل بدم .
راستی اینم کد دیکشنریه :
کد:
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "SELECT * FROM Farsi"
Adodc1.Refresh
End Sub
Private Sub cmdTranslate_Click()
Dim i As Long
Adodc1.RecordSource = "SELECT * FROM English WHERE English_Word LIKE('" & Text1 & "%')"
Adodc1.Refresh
If Adodc1.Recordset.EOF = False Then
Text1 = Adodc1.Recordset.Fields("English_Word")
i = Adodc1.Recordset.Fields("Word_ID")
Adodc1.RecordSource = "SELECT * FROM Farsi WHERE English_ID=" & i
Adodc1.Refresh
Text2 = ""
While Not Adodc1.Recordset.EOF
Text2 = Text2 & Adodc1.Recordset.Fields("Farsi_Word")
Adodc1.Recordset.MoveNext
Wend
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Else
Text2 = "يافت نشد"
End If
End Sub
:11:
خیلی ممنون از شما دوستای گل
داداش های عزیز و استاد های گل مشکل اینجاست که من نمیتونم جوری کد بنویسم که برنامه درست کار کنه
واسه همین کدش رو گذاشتم تا شما دوستها و اساتید گل مشکلش رو حل کنید .
من میدونم برنامه نویسای بزرگی در این سایت هستند که میتونن مشکل منو تو 3 سوت حل کنن .
کارم خیلی گیره کمکم کنید . :41:
