احتیاج به کمک فوری دوستان دارم

[ali1964]

سلام دوستان
من به روش DAO یک ریچ تکس باکس رو تو دیتا بیس میریزم
ولی از طریق DAO نمی تونم دوباره در ریچ تکس باکس بریزم
وقتی قرار میدم چیزی نشان نمی ده کد برگشت به شکل زیره

Dim filein1, strsql 

   Dim db1 As Database 

   Dim rec1 As Recordset 

    filein1 = "c:\sono\sono.mdb" 

  

   If TypeName(db1) = "Nothing" Then 

     (Set db1 = OpenDatabase(filein1 

   End If 



    Me.RichTextBox2.SelAlignment = rtfRight 

    strsql = "select * from tblmaster where sal='1382' and row=312" 

    Set rec1 = db1.OpenRecordset(strsql, dbOpenDynaset) 

    RichTextBox2.TextRTF = rec1![Javab] 

    rec1.Close 

از دوستانی که بلدن خواهش میکنم کمکم کنن
با تشکر

[morteza_dehghan]

:shock:
بابا این موضوع را یکبار گفتی اگر کسی بلد بود جوابت را میداد نیاز به دوبار نوشتن نبود اگر هم بخاطر آن موضوع که من گفتم دوباره نوشتی نیاز نبود به همان تاپیک میرفتی و با استفاده از کلید ویرایش آن موضوع را اصلاح می کردی
ببخشید من جسارت کردم ها :oops:
کوچیک و دوستدار شما

[Abbas Arizi]

خط آخر کدت رو با این عوض کن ببین درست نمیشه؟

    RichTextBox2.TextRTF = rec1("Javab")

[ali1964]

سلام
از دوستانی که اقدام به کمک کردن تشکر میکنم
مشکل در ذخیره کردن فایل ریچ تکس باکس بود :oops:
من فکر میکردم روش ذخیره ان مثل بقیه هستش
اطاعاتی که ذخیره میکردفقط خصوصیات رنگ و فونت ریچ تکس باکس بود نه اطاعات من دستور برگردان درست بود چون چیزی جز رنگ و فونت ذخیره نمی شد چیزی نشان نمی داد
باز هم :oops: