ali1964
شنبه 28 تیر 1382, 14: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
از دوستانی که بلدن خواهش میکنم کمکم کنن
با تشکر
من به روش 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
از دوستانی که بلدن خواهش میکنم کمکم کنن
با تشکر