Invalid use of property in vb6 -
मेरे पास रिकॉर्डस rc1
है जो txt फ़ाइल से मान पढ़ता है। फ़ील्ड rtn
, amt
, नाम
हैं। अब मुझे तालिका t_rec
से डेटा प्राप्त हुआ है और इसे किसी अन्य रिकॉर्डसेट rc2
पर नियत किया गया है। और रिकॉर्डसेट आरसी 1
के साथ तुलना करें। यदि rd1.Fields! [AccountNbr] = rc2.Fields! [RTProvided] फिर आरसी 2 सेट करें .फिल्ड! [दावेस्टैटस] = "सी" आरसी 2 .फिल्ड! [दिनांकक्लाश] = सीकएडेट आरसी 2 फ़ील्ड! [Audit_LastUpdated] = CqDate rc2.Fields! [Audit_UserAdded] = "सिस्टम"
अगर मैं उस प्रोग्राम को संकलित करता हूँ I errr जैसे vb6 में संपत्ति का अमान्य उपयोग क्या आप मेरी सहायता कर सकते हैं।
उप DneFroceClose () CqDate = स्वरूप (दिनांक, "dd / MM / yyyy") सेट करें rcdreclamation = नया ADODB.Recordset rcdreclamation के साथ .activeConnection = objConn। स्रोत = " T_DATA_reclamation से "SELECT * T_DATA_reclamation"। कर्सर टाइप = adOpenDynamic। कर्सर स्थान = adUseClient .LockType = adLockOptimistic। ओपन एंड फ्रेम्डएनएललोड.लिब्लेस्टैट। कैप्शन = "रिकॉर्ड जोड़ना" & amp; LngRecCount & amp; "का" & amp; Rcdreclamation.RecordCount & amp; "डेटाबेस के लिए।" FrmDNELoad.Refresh rcdDNE.Open rcdreclamation.Open rcdDNE.MoveFirst rcdreclamation.MoveFirst जब तक rcdDNE.EOF करो rcdreclamation.EOF जब तक rcdDNE.Fields! [AccountNbr] = rcdreclamation.Fields! [RTProvided] तो rcdreclamation सेट करें। फ़ील्ड! [दावास्टैटस] = "सी" rcdreclamation.fields! [DateClosed] = CqDate rcdreclamation.Fields! [Audit_LastUpdated] = CqDate rcdreclamation.Fields! [Audit_UserAdded] = "सिस्टम" बाहर निकलें अन्य rcdreclamation.MoveNext अंत अगर लूप rcdDNE.MoveNext rcdreclamation.MoveFirst लूप अंत उप कोड को देखकर, मुझे कोड की इस पंक्ति के साथ समस्या दिखाई देती है
आपको सेट
की आवश्यकता नहीं है।
यह rc2.Fields! [ClaimStatus] = "c"
(यदि यह समस्याग्रस्त रेखा है) होनी चाहिए।
संपादित करें: मैंने आपके प्रश्न का उत्तर देखा और वही नियम प्रश्न में लाइन पर लागू होता है।
इसके बजाय की सेट आरसीडीआरक्लेमेशन.फिल्ड! [दावेस्टैट]] = "सी"
यह होना चाहिए
EDIT2: जब आप ऑब्जेक्ट वेरिएबल, एक वस्तु आवृत्ति या कुछ नहीं
निर्दिष्ट कर रहे हैं, तो सेट
की आवश्यकता है। < / P>
EDIT3: इसके अलावा, आप प्रत्येक ऐसी पंक्ति के लिए rcdreclamation! [ClaimStatus]
rcdreclamation.Fields! [ClaimStatus]
के बजाय लिख सकते हैं।
अस्वीकरण : मुझे आशा है कि मैं अपने VB6 वाक्यविन्यास पर सही हूं। इसके कुछ समय हो गए हैं।)
Comments
Post a Comment