مساعدة فى ال ADO

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

هو انا معلوماتي ضعيفه بس

جرب دي

افتح المشروع تاني ال (source code) واختار من الRefrence الاصدار Microsoft ActiveX Data Objects 2.5 Library

او اي اصدار اقل

وازل الاختيار من علي الاصدار 2.7

احفظ التغيرات

واعد تشغيل المشروع وان شاء الله يشتغل

السلام عليكم

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

db.open "Provider=microsoft.Jet.OLEDB.3.51;Data Source=path of database"

أما بالنسبة للموضوع الثانى فمن الممكن أنك قومت بأضافة أحد الأدوات التى تستخدم هذا الأصدار من adoفهذه الأدوات تقوم بأضافة المكتبة أوتوماتيكيا

اولا الشكر كل الشكر لكل من

abu_eldahab ,yokozuna

على الاهتمام والرد

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

لذلك ارجو من الاخوة الخبراء بال ADO

اعلامى بسبب تلك المشكلة :blink:

وشكرا

اخي العزيز

اعتقد انك تستخدم قاعدة بيانات أكسس 2003 ،،،

واذا كان هذا صحيحا فقم بتغيير الرقم "4.0" الموجود في كود الفتح الى "4.5" وان شاء الله سيعمل ،، أنا اعتقد هذا لانه لم يسبق التعامل مع قاعدة بيانات اكسس 2003 وانما انا اعمل على 2002 ... انته جرب وان شاء الله ستأتي الينا بنتيجه نجاح التجربه ..

تحياتي لك

اخى فنكشن

شكرا لك ولكنى اود اعلامك انى اتعامل مع قاعدة بيانات اكسس الاصدار 2002

و لا اعرف سبب المشكلة

تحياتى

Dim DB as New ADODB.Connection
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\db1.mdb" + ";Persist Security Info=False;"

و الله أجل وأعلم

اعتقد اخي الكريم انه من المفروض ان يكون الاعلان (Dim DB as New ADODB.Connection) في القسم العام General .. ارجوا ان يجدي معك ذلك ،،

بنت اليمن ،،

أخي محمد

معلش لو تضع المثال يكون افضل ولكن خذ بالأمور التالية

1 - تأكد انك تستخدم كائن واحد داخل البرنامج

2 - اكتب الكود التالي

dim db as new adodb.connection
Dim st As String
st = "provider = microsoft.jet.OLEDB.4.0;"
st = st & "data source =" & App.Path & "\db1.mdb"
db.ConnectionString = st
db.CursorLocation = adUseClient
db.Open

جرب وإن لم يفلح ذلك الرجاء وضع المثال

أخوك ناصر

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

قد يكون معني هذا أن المكتبة msado27 أوmsado25 لم تعد موجودة علي الجهاز لسبب أو لآخر..

أو ربما لم تعد مسجلة في الRegistry فحاول أن تسجلها عن طريق إضافة مرجع لها من زر Browse < References < Project

أو تعيد تثبيت الأكسس إن لم تكن موجودة.

:)

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

اولا شكرا لكم جميعا للتفاعل مع مشكلتى

ولكن قد جربت كل الحلول التى طرحتموها ولكنها بائت جميعا بالفشل :wacko:

و لم يبقى امامى الا ان اعيد تثبيت ال Windows :(

او اترك ال ADO وحالها :angry:

وارفق لكم هذا المثال لعل اجد حلا عندكم

وجزاكم الله عنى خيرا

Example.zip

لقد أنزلت المثال وشتغل معايه عادى دون حدوث مشاكل من الواضح أن نسخة vb بعك بها مشاكل

لقد أنزلت المثال وشتغل معايه عادى دون حدوث مشاكل من الواضح أن نسخة vb بعك بها مشاكل

اخي الكريم حملت المثال وعمل معي تمام وقد أضفت إليه قريد وظهرت البيانات بدون مشاكل كما أفاد الأخ yokozuna

Example.rar

اخي العزيز اقترح عليك ان تقوم بحذف فيجوال بيسك وتركيبه من جديد .... وان شاء الله سيعمل كل شيء ...

شكرا لكم جميعا ساعيد تثبيت ال VB

واجرب وساعود اليكم بالنتيجة

انا أواجه نفس المشكله عند استخدام ado