الإتصال بقاعدة البيانات محمية برقم سري

بدأه visual 2007 في 8 يونيو 2008 · 3 رد · 780 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#18 يونيو 2008 في 23:55 صاحب الموضوع

الرجاء النظر في هذا الكود و العمل على تصحيحه

Private Sub Form_Load()
Dim sConnect As String
Dim FileSource As String
FileSource = App.Path & "\base1.dll" & ";Persist Security Info=False;Jet OLEDB:Database Password=visual2007"
sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
		"Data Source= " & FileSource & ""
Adodc1.ConnectionString = sConnect Adodc1.RecordSource = "Renseignement"
 End Sub

بحيث لما يتم الإتصال بقاعدة البيانات تظهر رسالة خطاء مفادها عدم وجود قاعدة البيانات

تم تعديل هذه المشاركة بواسطة visual 2007 في 8 يونيو 2008 في 23:57

#29 يونيو 2008 في 17:06

السلام عليكم...

السؤال غير واضح! هل المطلوب التأكد من وجود الملف base1.dll قبل فتحه أم ماذا؟ (المفترض أنه ملف قاعدة بيانات تم تغيير امتداده من MDB إلى DLL).

نرجو التوضيح أكثر.

وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ

صدق الله العظيم

#310 يونيو 2008 في 00:35

تشكر أخي الكريم على سرعة الرد

بالنسبة للإمتداد أنا تعمد ذلك MDB إلى DLL

لدي برنامج لتسيير الموظفين قاعدة البيانات محمية برقم سري

كود الربط هو المذكور أعلاه

عند إضافة صورة للموظف من الجهاز يقوم بإضافتها إلى قاعدة البيانات

لكن عند محاولة التنقل ين إعدادات البرنامج تظهر رسالة مفادها أن قاعدة البيانات غير موجودة و يشير في الرسالة إلى المكان الذي قمت ىبتحميل صورة الموظف منها

كما هو موضح في الصورة المرفقة

base1.bmp

#410 يونيو 2008 في 01:28

السلام عليكم...

أعتقد أنه من الصعب معرفة السبب دون النظر إلى البرنامج أثناء تنفيذه. لكن ربما يساعدك أن تضع نقاط قطع (Break Points) في الكود الذي تعتقد أنه يصدر الرسالة، ثم تقوم بتتبعه خطوة خطوة (F8).

والسلام.