PDA

View Full Version : احتیاج به کمک فوری دوستان دارم



ali1964
شنبه 28 تیر 1382, 13:01 عصر
سلام دوستان
من به روش 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
دوشنبه 30 تیر 1382, 18:50 عصر
:shock:
بابا این موضوع را یکبار گفتی اگر کسی بلد بود جوابت را میداد نیاز به دوبار نوشتن نبود اگر هم بخاطر آن موضوع که من گفتم دوباره نوشتی نیاز نبود به همان تاپیک میرفتی و با استفاده از کلید ویرایش آن موضوع را اصلاح می کردی
ببخشید من جسارت کردم ها :oops:
کوچیک و دوستدار شما

Abbas Arizi
دوشنبه 30 تیر 1382, 19:17 عصر
خط آخر کدت رو با این عوض کن ببین درست نمیشه؟

RichTextBox2.TextRTF = rec1("Javab")

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