الاتصال بقواعد البيانات وكيفية الاضافة والحذف والت

الجزء الثانى من قاعدة البيانات

اتمنى ان اجد الحل

Northwind.zip

من باب العلم انا استخدم فيجوال بيسك 6

واتعامل بالادو بالكود

اقتباس

كيف يتم الاضافة والحذف والتعديل والتحديث من داخل برنامجى لقد حاولت ولكنى فشلت

تعطينى رسالة بن قاعدة البيانات غير مفتوحة

لابد من أن يكون اتصال قاعدة البيانات مفتوحا قبل القيام بأي تعديل، وشكلك جربت التعديل وقاعدة البيانات مغلقة. مع إني جربت برنامجك ، ونجح في الاتصال بعد تغيير اسم السيرفر ليكون

(local)

، بدلا من الاسم الذي وضعته أنت.

عادة ما يتم فتح الاتصال مع قاعدة البيانات في حدث form_load، بدلا من فتح الاتصال بالضغط على زر مخصص لذلك.

عرض الصور ممتاز ، ولو أن الصورة باهتة قليلا، لكن هذه هي الصورة المخزنة في قاعدة البيانات.

بالنسبة للأكواد ، استخدم للتعديل جملة SQL update، وللحذف جملة delete ، وللإضافة جلمة insert ولتفيذها :

cn.execute sql

بالنسبة لإضافة الصور، انظر

/index.php?showtopic=16121

وبالتوفيق بإذن الله.

الاخ الفاضل walcom

انا شاكر لك لكن لو اطمع فى كرمك وتضع لى مثال عن كيفية الاضافة والحذف

وبالنسبة لاضافة الصور انا قرأت الموضوع بتاعة لكن اظن هذا الكود للــ vb.net

وليس vb6

فأرجو ان تصححة لى لو سمح وقت حضرتك

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

بالنسبة للمثال، امهلني قليلا، بالأمس كتبت مثالا يوضح الإضافة والحذف، وسأرفقه خلال هذا اليوم أو غدا بإذن الله.

لو ركزت في الكود الموضح في المثال وتاريخ كتابته ستجد أنه VB6 وليس VB.Net ، وبالنسبة للمثال المرفق معه ، هو موجود عندي ، أنزلته قبل فترة طويييلة ، منذ أيام الأساتذة خضر و madani وغيرهم :) ، وسأرفقه أيضا لاحقا بإذن الله.

الاخ الفاضل walcom انا شاكر جدا لاهتمامك

ينقصنى فقط كيفية إضافة الصور

انا حاولت اطبق الكود اللى انت قلتلى عليه لكنة يظهر خطأ بالسطر :

Set st = New Stream

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

عموما مرفق المثال الذي تحدثت عنه من قبل.

الملف المضغوط يحتوي على مثال الإضافة والحذف والتعديل باسم prjTryBoolean ، ومعه SQL Schema لقاعدة البيانات التي يستخدمها ، إضافة إلى مثال حفظ الصور باسم sql_image.

tryBoolean.zip

اخى الفاضل walcom

انا شاكر لك جدا لاهتمامك

جارى التحميل

سأجرب وارد عليك

اخى الفاضل walcom

لقد قمت بإضافة الكود لبرنامجى الخاص بإضافة الصور لقاعدة البيانات

لكنة للأسف لا يضيف الصورة لقاعدة البيانات

ارجو الاطلاع على الكود وتعديل ما يلزم

مرفق مع الكود SQL Schema لقاعدة البيانات التى استخدمها

sql.zip

اين انتم اخوانى واين انت اخى walcom

التمس لك العذر

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

اضفت الكود لمشروعى الموجود اعلى هذة المشاركة لا يعمل

فأرجو ان يكون هناك حل ولا ادرى سببها ربما يكون شيء تافه ولكنى لم أأخذ بالى

على العموم راجعولى على الكود والمشروع باكملة لعلكم تجدون الحل

اشكرككم جميعا من كل قلبى

UP

الاخوة الاعزاء ، السلام عليكم ورحمة الله

على ما اعتقد اننى قد توصلت لسبب المشكلة ولكنى لم اتوصل لحلها حتى الان

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

والكود المستخدم لحفظ الصورة فى قاعدة البيانات هو :

Set Rs = New Recordset
Set St = New Stream

    St.Type = adTypeBinary
    St.Open
    St.LoadFromFile (Path)

 ConString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=tries;Data Source=local"
 Rs.Open "select * from Table1", ConString, 3, 3

Rs.AddNew

Rs("name") = "Madani"
'Rs("id") = 1
Rs("Image") = St.Read

Rs.Update
Rs.Close
St.Close

واشكر الاخ الفاضل walcom الذى ساعدنى فى ذلك

وارجو من الجميع محاولة مساعدتى بارك الله فيكم

اطلعوا على المشروع المرفق بمشاركاتى بالاعلى لترو الخطأ بأنفسكم

انتظركم

الحمد لله تعالى ،

قمت بفضل الله تعالى للتوصل للحل

اشكركم جميعا

أخواني الاعزاء هل يمكن استخدام dao في ربط مع sql server واذا كان ممكناً فالرجاء التلطف علينا بذكر طريقة الربط ولكم جزيل الشكر

بالنسبة للبرنامج السابق قد جربته ولكن يعطيني رساله بأن تم رفض الوصول مع اني حاولت بكل الطرق المذكورة في المشاركة السابقة ووضعت اسم السيرفر (127.0.0.1) ولكن دون فائده فما هو السبب

أي برنامج تقصد؟

عموما ضع اسم السيرفر (local)

الطريقة موضحة جيدا في البرنامج tryBoolean.zip المرفق في رد سابق هنا.