الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يمكن التعامل مع كلمة المرور من هذا الكود؟

مغلق
بدأه abduljawaad saad في 21 يوليو 2003 · 12 رد · 963 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أستخدم فى مشروعى طريقة ADO للربط مع قاعدة البيانات

وضعت كلمة مرور لقاعدة البيانات

كيف يمكن التعامل مع كلمة المرور من خلال صيغة هذا الكود

 (Set database = OpenDatabase (dbname, options, read-only, connect

وللجميع التحية

mytrial_a.gif

نحن بحاجة لتدوين تجاربنا , نحن بحاجة إلى اكتشاف قيمة التجربة, هذه تجربتى مثيرة ومفيدة ...,

هنا
#2

السلام عليكم

أخي العزيز الكود الذي في الإعلى فهو خاص بالإداة الأخرى وهي DAO .

إما كود الربط مع قاعدة البيانات بواسطة ADO مع استخدام كلمة مرور لقاعدة البيانات فهو /

        db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & dbName & _

                 ";Jet OLEDB:Database Password=YOURPASSWORD;adAsyncConnect"

بالتوفيق

#3

أخى الفاضل 00 شكرا لك

أتأسف 00فلقد كتبت مسمى الأداة خطأ 00 أنا أقصد أداة الربط DAO وليس ADO

فهل سيختلف الكود الذى وضعته هنا فى حالة

(Set database = OpenDatabase (dbname, options, read-only, connect

mytrial_a.gif

نحن بحاجة لتدوين تجاربنا , نحن بحاجة إلى اكتشاف قيمة التجربة, هذه تجربتى مثيرة ومفيدة ...,

هنا
#4

أخى الفاضل 00 شكرا لك

أتأسف 00فلقد كتبت مسمى الأداة خطأ 00

أنا أستخدم أداة الربط ( DAO ) وليس ADO

فهل سيختلف الكود الذى وضعته هنا فى حالة

(Set database = OpenDatabase (dbname, options, read-only, connect

mytrial_a.gif

نحن بحاجة لتدوين تجاربنا , نحن بحاجة إلى اكتشاف قيمة التجربة, هذه تجربتى مثيرة ومفيدة ...,

هنا
#5

نعم اخي ويوجد إختلاف بسيط ولكن بالنسبة لإستخدام كامة المرور فسيكون الكود بهذا الشكل /

(Set database = OpenDatabase (dbname, options, read-only, ";pwd=YOURPASSWORD"
#6

أخى الفاضل

جربت الكود كما أشرت إليه كالآتى:

Set database = OpenDatabase(PathDataBase, , , ";PWD=ddd")

حيث ddd كلمة المرور إلى قاعدة البيانات

ولكن عند تشغيل البرنامج أحصل على رسالة الخطآ التالى:

Run-time error '3031':

Not avalid password

مع العلم انى متأكد من وضع كلمة المرور وبحالة حروفها الصحيحة فى الكود

وقبل ذلك قمت باختبارها بنجاح وبشكل منفصل للدخول على قاعدة البيانات من خلال برنامج أكسس وكذلك عن طريق visdata Manager

فأين إذن الخطأ فى الكود؟

mytrial_a.gif

نحن بحاجة لتدوين تجاربنا , نحن بحاجة إلى اكتشاف قيمة التجربة, هذه تجربتى مثيرة ومفيدة ...,

هنا
#7

بعد التحية ،،

اخي جرب هذا /

Public ws As Workspace 
Public db As Database
 Set ws = DBEngine.Workspaces(0)
 Set db = ws.OpenDatabase(PathDataBase, True, False, ;pwd="ddd")

بالتوفيق .

#8

أخى العزيز

بعد إقتراحك الأخير تمكنت من الوصول لقاعدة البيانات

شكرا لك 00 وجزاك الله عنا كل خير

mytrial_a.gif

نحن بحاجة لتدوين تجاربنا , نحن بحاجة إلى اكتشاف قيمة التجربة, هذه تجربتى مثيرة ومفيدة ...,

هنا
#9

العفوا اخي وهذا واجبنا ،،،،

وتقبل تحياتي .

#10

أخى الكريم

أعود إليك مره أخرى فلا تمل منى

عند طباعة تقرير مصمم بالكريستال 7 , يلزم أن يتعرف الكريستال على كلمة المرور لجلب بيانات التقرير فى حالة إذا كانت قاعدة البيانات محميه بكلمة مرور

كيف يتعرف الكريستال على كلمة المرور عن طريق الكود؟

mytrial_a.gif

نحن بحاجة لتدوين تجاربنا , نحن بحاجة إلى اكتشاف قيمة التجربة, هذه تجربتى مثيرة ومفيدة ...,

هنا
#11

أخى الكريم

أعود إليك مره أخرى فلا تمل منى

عند طباعة تقرير مصمم بالكريستال 7 , يلزم أن يتعرف الكريستال على كلمة المرور لجلب بيانات التقرير فى حالة إذا كانت قاعدة البيانات محميه بكلمة مرور

كيف يتعرف الكريستال على كلمة المرور عن طريق الكود؟

mytrial_a.gif

نحن بحاجة لتدوين تجاربنا , نحن بحاجة إلى اكتشاف قيمة التجربة, هذه تجربتى مثيرة ومفيدة ...,

هنا
#12

على الرحب والسعة اخي في اي وقت ،،، ولكن في حقيقة الأمر إنا ما استخدم الكريستال او بالأحرى لا املك هذه الإداة لإني دائما استخدم DataReport .

ارجوا المعذرة ،،

#13

عزيزى شكرا لك

سزف أطرح الموضوع على المنتدى

mytrial_a.gif

نحن بحاجة لتدوين تجاربنا , نحن بحاجة إلى اكتشاف قيمة التجربة, هذه تجربتى مثيرة ومفيدة ...,

هنا

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…