رسالة تظهر لي بعد التنفيذ

#111 أبريل 2005 في 17:46 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

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

المشكلة تظهر حين محاولتي للارتباط بقاعدة البيانات

فحين انفذ تظهر لي بعض الرسائل التي لم اتمكن من معرفة معناها واين يقع الخلل

فارجو منكم مد يد العون لي بتوجيهي نحو الصواب .

قمت بتنفيذ كودين وكل كود يظهر لي منه رسالة :

بعد تنفيذي لهذا الكود :

في الــ General :

Dim db As New ADODB.Connection 

وفي الــLoad :

Private Sub Form_Load()


db.Provider = "Microsoft.JET.OLEDB.4.0º"
db.Open "D:\fahd" & "\fathers.mdb"
MsgBox "تم الاتصال بقاعدة البيانات"

End Sub

تخرج لي الرسالة رقم 1 في المرفقات

**********

وبعد تنفيذي لهذا الكود :

في الــModule:

public db as New ADODB.Connection


وفي الــGeneral:

Dim rscust As New ADODB.Recordset
dim rsitem as New ADODB.Recordset


وفي الــLoad:

dim s as string
S = "provider =microsoft.jet.OLEDB.4.0;” 
s = s & "data source=" & "D:\fahd" & "\fathers.mdb"
db.ConnectionString = s                   
db.Open

تخرج لي الرسالة رقم 2 بالمرفقات.

هذي الرسالة رقم 1:

تم تعديل هذه المشاركة بواسطة فهد علي في 11 أبريل 2005 في 17:47

#211 أبريل 2005 في 17:49

وهذه الرسالة رقم 2:

#311 أبريل 2005 في 18:13

تأكد ان ال Jet 4 موجودة عندك

لا تحزن:

إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.

لا تحزن:

فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.

#411 أبريل 2005 في 20:53

اهلا بك اخي ,, واشكر لك ردك

لكن كيف اتاكد انه موجود عندي؟!

واسف على اسألتي البدائية ,, فهذا هو حال البداية

#511 أبريل 2005 في 21:13

من قائمة project > add reference

ثم إبحث اذا كان لديك Microsoft jet 4 او ما هي النسخة التى لديك

جرب ان تقوم بتنزيل نسخة جديدة من MDAC

لا تحزن:

إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.

لا تحزن:

فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.

#613 أبريل 2005 في 17:04

مشكور اخي محمد ولكن بعد دخولي على هذه الصفحة

http://support.microsoft.com/kb/239114

وجدت عدة نسخ

حملت في البداية للـــSP8

ولكن لم يكن متوافق مع نسخة SP1 الذي في جهازي

بعدها حملت للــwindows2000

ولكن ايضا لم يكن متوافق

والمشكلة انه لا يوجد للــSP1

فأين اجد الـــــــ Jet4 المتوافقة مع نسخة الوندوز لدي ؟؟!!!!

#713 أبريل 2005 في 20:31

ما هي نسخة ويندوز التى لديك؟ وما نسخة SP?

لا تحزن:

إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.

لا تحزن:

فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.

#813 أبريل 2005 في 20:43

الوندوز لدي xp

ٍSP1

اجزل الله المثوبة لاخي محمد ولكل من يحاول المساعدة

#914 أبريل 2005 في 13:34

اتمنى المساعدة واعانتي على تجاوز هذه المشكلة

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

#1014 أبريل 2005 في 15:07

السلام عليكم

أخي فهد، جرب أن تكتب الكود بالطريقة التالية، وأخبرنا هل تصادف نفس الخطأ؟

Dim db As New ADODB.Connection
db.ConnectionString = "provider=Microsoft.JET.OLEDB.4.0;data source = d:\fahd\fathers.mdb"
db.Open

لا تحزن:

إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.

لا تحزن:

فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.

#1114 أبريل 2005 في 16:36

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ...

أخي العزيز :: فهد علي ::

لقد قمت بتجربة هذين الكودين قبل قليل فظهرت لي نفس رسالتي الخطأ السابقتين .

فقمت بقليل من التعديلات عليهما حتى عملا :

1- الكود الأول ، قمت بحذف الكلمة º من الخاصية Provider فعمل الكود بنجاح :

'في الــ General :

Dim db As New ADODB.Connection 

'وفي الــLoad :

Private Sub Form_Load()


db.Provider = "Microsoft.JET.OLEDB.4.0;"
db.Open "D:\fahd\fathers.mdb"
MsgBox "تم الاتصال بقاعدة البيانات"

End Sub

2- الكود الثاني - لا أعلم إن كان هذا هو الخطأ أم لا - قمت باستبدال علامة الاقتباس ” بهذه " فأصبح الكود كالتالي :

'في الــModule:

public db as New ADODB.Connection


'وفي الــGeneral:

Dim rscust As New ADODB.Recordset
dim rsitem as New ADODB.Recordset


'وفي الــLoad:

dim s as string
S = "provider =microsoft.jet.OLEDB.4.0;" 
s = s & "data sourceD:\fahd\fathers.mdb"
db.ConnectionString = s                   
db.Open

هذا والله أعلم وصلى الله وسلم على نبينا محمد وعلى آله وصحبه أجمعين

والسلام عليكم ورحمة الله وبركاته ...

سبحان الله وبحمده ... سبحان الله العظيم

#1214 أبريل 2005 في 17:34

وعليكم السلام ورحمة الله وبركاته

رائع رائع

اخي محمد واحمد

كل الشكر وكلمات الثناء لكم على صنيعكم معي

واجزل الله لكم المثوبة ,, وجازكم على ماصنعتم لي .. بتيسير كل ماهو عسير يواجهكم في هذه الدنيا

الكود الذي وضعه محمد شغال 100%

وايضا الكود الاول الذي وضعه اخي احمد شغال 100% لكن الكود الثاني تظهر رسالة بفشل المصادقة

المهم اني اهتديت الى الطريق وهذا بفضل الله ثم بفضلكم

لا عدمناكم ولا عدمنا اضافاتكم...

#1314 أبريل 2005 في 18:07

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ..

بعد مراجعة الكود الثاني تبين لي أني نسيت وضع علامة = ، والكود الصحيح هو :

'في الــModule:

public db as New ADODB.Connection


'وفي الــGeneral:

Dim rscust As New ADODB.Recordset
dim rsitem as New ADODB.Recordset


'وفي الــLoad:

dim s as string
S = "provider =microsoft.jet.OLEDB.4.0;" 
s = s & "data source=D:\fahd\fathers.mdb"
db.ConnectionString = s                   
db.Open

سبحان الله وبحمده ... سبحان الله العظيم

رسالة تظهر لي بعد التنفيذ

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

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