घर
Top.Mail.Ru Yandeks.Metrika
फोरम: "मामले";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

नीचे

प्रोग्राम में कनेक्शन स्ट्रिंग TADOConnection कैसे बनाएं? इसी तरह की शाखाएँ खोजें


Aleksandr   (2001-12-05 13:26) [0]

प्रिय साथियों,
विरोधाभास तालिकाओं (बीडीई को त्यागने) के लिए एडीओ घटकों पर स्विच करने की आवश्यकता थी। लेकिन BDE में, तालिका में पथ की समस्या जिसमें वे और प्रोग्राम स्थापित किए गए थे, केवल Table.DataBaseName संपत्ति में पथ सेट करके हल किया गया था।
और ADOConnection कैसे करें?



Eduard   (2001-12-05 13:36) [1]

ADOCONEd का उपयोग करता है; ... ... EditConnectionString



Aleksandr   (2001-12-05 14:04) [2]

2 एडुआर्ड
ऐसा कोई नहीं है ...



olden   (2001-12-05 15:15) [3]

ऑब्जेक्ट इंस्पेक्टर में ADOConnection, अपने डेटाबेस तक पहुंचने के लिए एक स्ट्रिंग बनाएं। एक कनेक्शन परीक्षण करें। यदि सब कुछ ठीक है, तो अब लाइन की संरचना को ध्यान से देखें और लाइन में मापदंडों को बदलने के लिए अपनी प्रक्रियाओं को लिखें।

यहाँ MSSQL के साथ संवाद करने के लिए एक छोटा सा उदाहरण है (हौसले से पके हुए, शायद ग्लिट्स के साथ)

एक स्ट्रिंग है (ConnectionString)
"प्रदाता = SQLOLEDB.1; पासवर्ड = पॉबुट; पर्सिस्टेंट सिक्योरिटी इन्फो = ट्रू; यूजर आईडी = पॉबूटडम; इनिशियल कैटलॉग = पॉबुट; डेटा सोर्स = ओल्डन"

पहले हम इसे टाइप के सार क्षेत्रों से भरते हैं
उदाहरण के लिए%
इसके लिए AbstrADOStr प्रक्रिया है

और फिर सही समय पर सही जगह पर FillADOStr इन क्षेत्रों में आवश्यक डेटा सम्मिलित करता है

प्रक्रिया AbstrADOStr (var AStr: string);
var i, aPos: पूर्णांक;
tmpStr: स्ट्रिंग;
शुरू करना
ऐशट: = लोअरकेस (एश्ट्र);

aPos: = Pos ("पासवर्ड =", AStr) + 9;
यदि APos> 9 है तो शुरू करें
tmpStr: = "पासवर्ड =";
i: = aPos to लंबाई (AStr) शुरू करते हैं
अगर AStr [i] = ";" फिर तोड़ो;
tmpStr: = tmpStr + AStr [i];
अंत;
AStr: = AnsiReplaceStr (AStr, tmpStr, "पासवर्ड =% PASS%");
अंत;

aPos: = Pos ("user id =", AStr) + 8;
यदि APos> 8 है तो शुरू करें
tmpStr: = "यूजर आईडी =";
i: = aPos to लंबाई (AStr) शुरू करते हैं
अगर AStr [i] = ";" फिर तोड़ो;
tmpStr: = tmpStr + AStr [i];
अंत;
AStr: = AnsiReplaceStr (AStr, tmpStr, "user id =% USER%");
अंत;

aPos: = Pos ("प्रारंभिक सूची =", एश्ट्र) + एक्सएनयूएमएक्स;
यदि APos> 16 है तो शुरू करें
tmpStr: = "प्रारंभिक सूची =";
i: = aPos to लंबाई (AStr) शुरू करते हैं
अगर AStr [i] = ";" फिर तोड़ो;
tmpStr: = tmpStr + AStr [i];
अंत;
AStr: = AnsiReplaceStr (AStr, tmpStr, "प्रारंभिक सूची =% आधार%");
अंत;

aPos: = Pos ("डेटा स्रोत =", AStr) + 12;
यदि APos> 12 है तो शुरू करें
tmpStr: = "डेटा स्रोत =";
i: = aPos to लंबाई (AStr) शुरू करते हैं
अगर AStr [i] = ";" फिर तोड़ो;
tmpStr: = tmpStr + AStr [i];
अंत;
AStr: = AnsiReplaceStr (AStr, tmpStr, "डेटा स्रोत =% SERV%");
अंत;

अंत;

प्रक्रिया फिल्डोसट्र (var AStr: string; AServ, ABase, AUser, APass: string);
शुरू करना
AStr: = StringReplace (AStr, "% PASS%", APass, [rfIgnoreCase));
AStr: = StringReplace (AStr, "% USER%", AUser, [rfIgnoreCase));
AStr: = StringReplace (AStr, "% SERV%", AServ, [rfIgnoreCase]);
AStr: = StringReplace (AStr, "% BASE%", ABase, [rfIgnoreCase));
अंत;



Aleksandr   (2001-12-05 17:02) [4]

क्षमा करें, कि शायद सवाल नहीं किया।
खैर, समस्या स्ट्रिंग नहीं है, लेकिन यह तथ्य है कि इसके लिए एक डेटा स्रोत की आवश्यकता होती है, जिसे उपयोगकर्ता, ज़ाहिर है, नहीं करता है और न ही कर सकता है ...



olden   (2001-12-06 12:41) [5]

द किंगडम ऑफ डेल्फी के अभिलेखागार में एडीओ के माध्यम से डेटाबेस DBase और विरोधाभास के साथ काम करने पर एक लेख है



asafr   (2001-12-06 12:46) [6]

था
strs: स्ट्रिंग;
शुरू करना
......
strs: = ADODB.PromptDataSource (0, Form1.ADOConnection1.ConnectionString);
......
अंत;



Axel   (2001-12-06 13:13) [7]

Sdelai knopku dlja zapuska Microsoft डेटा लिंक,
टैम यूजर सम मोज़ेट वाइब्रैट "नुज़नी डेटासोर्स
मैं सोहरंजय जीडी-निब। poluchennye dannye।



Cheburek   (2001-12-06 14:37) [8]

1। एक फ़ाइल बनाएँ Connect.udl।
2। इसे लॉन्च करें।
3। फ़ाइलों का स्थान कॉन्फ़िगर करें
4। ConnectionString में, "फ़ाइल का नाम = Connect.udl" लिखें



पन्ने: 1 पूरी शाखा

फोरम: "मामले";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

ऊपर





मेमोरी: 0.57 एमबी
समय: 0.027 c
1-22253
Yakudza
2001-12-17 14:34
2002.01.08
पास्कल में फैक्टरियल की गणना कैसे करें?


3-21911
जया!
2001-11-11 12:58
2002.01.08
VDE में ग्लिच


7-22448
Stanislaus
2001-09-11 15:24
2002.01.08
डिस्केट पर डेटा


6-22272
छाया
2001-10-06 18:26
2002.01.08
Zakovyrkoy के साथ सवाल!


3-21979
Maxman
2001-12-06 13:21
2002.01.08
DBTreeView





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский