hi all,
i am creating a VB6.0 application with Ms-Access database. While reading a memo field of my Ms-Access database, the recordset shows some invalid bad charecters like
"(1of 2) Deemed automatically extended unless Tenant notifies Landlord at least 12 months prior their intention to vacate. Landlord must deliver by certified or registered mail an Automatic Renewal Notice at least fifteen (15) and not more than (30) days p IOc??????? ?C 1000 SC??x h Ó? ?? ?? OÐ???$? GiNC RID ?dA??ldA? zC ??????
ZC???a ††††??????????? ??????????????? ???D??
UC I"
Can any one help me to take the exact data from the database?
my code is:
rsOriginalOptio ns.Open strQry, conOriginal, 1, 3
While Not rsOriginalOptio ns.EOF
strOne = Trim(CStr(rsOri ginal("OCCPNAME 1").Value))
strTwo = Trim(CStr(rsOri ginalOptions("B LDGID1").Value) )
strThree = Trim(CStr(rsOri ginalOptions("L EASID1").Value) )
strFour = "2"
strFive = rsOriginalOptio ns("OPTNTYPE1") .Value
strSix = Trim(CStr(rsOri ginalOptions(in tField).Value)) 'OLDVALUE
strSeven = Trim(CStr(rsNew (intField).Valu e)) 'NEWVALUE
rsOriginalOptio ns.MoveNext
Wend
dhana.
i am creating a VB6.0 application with Ms-Access database. While reading a memo field of my Ms-Access database, the recordset shows some invalid bad charecters like
"(1of 2) Deemed automatically extended unless Tenant notifies Landlord at least 12 months prior their intention to vacate. Landlord must deliver by certified or registered mail an Automatic Renewal Notice at least fifteen (15) and not more than (30) days p IOc??????? ?C 1000 SC??x h Ó? ?? ?? OÐ???$? GiNC RID ?dA??ldA? zC ??????
ZC???a ††††??????????? ??????????????? ???D??
UC I"
Can any one help me to take the exact data from the database?
my code is:
rsOriginalOptio ns.Open strQry, conOriginal, 1, 3
While Not rsOriginalOptio ns.EOF
strOne = Trim(CStr(rsOri ginal("OCCPNAME 1").Value))
strTwo = Trim(CStr(rsOri ginalOptions("B LDGID1").Value) )
strThree = Trim(CStr(rsOri ginalOptions("L EASID1").Value) )
strFour = "2"
strFive = rsOriginalOptio ns("OPTNTYPE1") .Value
strSix = Trim(CStr(rsOri ginalOptions(in tField).Value)) 'OLDVALUE
strSeven = Trim(CStr(rsNew (intField).Valu e)) 'NEWVALUE
rsOriginalOptio ns.MoveNext
Wend
dhana.
Comment