منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - قسم مقالات قواعد البيانات تحت بيئة الـ.NET

ياريت مساعدة من الاخوان الاعزاء

Mon, 11 Dec 2023 13:33:28 +0000

السلام عليكم
اخواني الاعزاء حاولت اعمل برنامج لربط البرنامج بقاعدة البيانات sql وحفظ الاعدادات

الكود في بداية تحمل الفورم

الكود في زر الاتصال

هذا هو مسار الاتصال في البرنامج ابي اغير هذه التفاصيل . بعد جلب اسم السيرفر واسم قاعدة البيانات

للمعلومات اني استخدم linq للربط بين قاعدة البيانات والبرنامج db.dbml

المشكلة تظهر معي

ياريت لو في حد يساعدني واكون ممنون لحضراتكم ..... للعلم بحثت في المنتدى وجدت بعض الملفات والكودات لكن لم تنفع معي

مشاركة البرنامج على أكثر من جهاز (قاعدة بيانات اكسيس)

Fri, 06 Jan 2023 01:21:38 +0000

السلام عليكم

طبتم وطابت ايامكم وساعاتكم ولحظاتكم

اسال الله الكريم رب العرش العظيم ان يجعلنا واياكم في خير صحة وعافية وراحة بال

اليوم سأقوم بشرح الطريقة المثلي (التي اراها انا الافضل) لنشر البرنامج الخاص بكم على جهازين او أكثر Server & Clients

واتمني من الله ان يتقبل مني هذا العمل وان يكون بمثابة

كثيرا منا انهي عمل شاق في تصميم برنامج للعمل به بين مجموعة من المتعاملين ولكن واجهته مشكلة في تشغيل البرنامج على جهاز Server وربطه مع مجموعة أجهزة اخري Clients وانا اول هؤلاء وبفضل الله بعد بحث كثير تمكنت من الوصول الى تلك الطريقة فأحببتُ ان يستفيد بها الجميع في منتدانا هذا الذي ما ان واجهتني مشكلة وبحثتُ فيه عن حل لها الا ووجدت طرح وحل وصبر من جميع زملائنا الأعزاء الكرام

الشرح سيكون على قاعدة بيانات الاكسيس (Access Database)

بعد الانتهاء من تصميم البرنامج وتصميم الجداول الخاصة به ونفترض إنك وضعت كل ملفات تشغيل البرنامج الخاص بك في مجلد اسمه skill level وبالطبع ضمن هذه الملفات ملف الاكسيس الذي هو قاعدة البيانات ولنفترض ان اسمه (mosdb.mdb)

سوف اضع نفس المجلد على السيرفر وعلي كل الاجهزة التي ارغب فى مشاركة البرنامج معها
لكني اريد ان يتم حفظ واستدعاء البيانات من ملف قاعدة البيانات التي على الـــ Server
ان حذفت ملف قاعدة البيانات من اجهزة الــ Clients فلن يعمل البرنامج لانه سيبحث عن الملف المصدر لقاعدة البيانات (والذي تم تحديده فى اكواد الاتصال داخل البرنامج وقت كتابة اكواد التصميم) فلن يجده وحينها ستظهر رسالة خطاء ويتم اغلاق البرنامج وهنا تكمن اهمية ما سنفعله سويا

اولاً: على جهاز الــ Server

سوف أقوم بعمل مشاركة لمجلد البرنامج skill level بالطريقة التالية
اقف على الملف ثم كليك يمين واختار Properties

سوف تظهر تلك النافذة اختار تبويب Sharing

سيفتح نافذة جديدة اختار منها share this folder ثم اضغط على زر Permission
ملاحظة: رقم 20 هنا هي عدد الاجهزة التي ارغب في ان تتشارك الملف

سوف تظهر شاشة جديدة اتاكد من اختيار Everyone فى المربع الاعلي واقوم باعطاء كافة الصلاحيات فى المربع الاسفل ثم اضغط OK

سوف اعود مرة اخري الي شاشة الـــ Properties اختار منها Advanced Sharing

من القائمة المنسدلة اختار Everyone ثم اضغط على زر ADD

سوف تظهر كلمة Everyone فى المربع الكبير تحت خيارات Permission Level اختار Read / Write

ثم اضغط على Share

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

هنا نكون قد انهينا العمل على الجهاز الــ Server

على جهاز الــ Client نضع مجلد البرنامج كامل كما هو الحال على الجهاز الــ Server
بهذا يكون الجهازين Server &Client متطابقين تماما فيما بدخل مجلد البرنامج الفارق الوحيد ان المجلد علي جهاز الــ Server قمنا بعمل مشاركة له Share

نبدأ بفتح ملف (mosdb.mdb) على جهاز الــ Client

نحذف كافة الجداول التي بداخله

نضغط نعم

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

من تبويب بيانات خارجية -----> مصدر بيانات جديد -----> من قاعدة بيانات -----> Access

نضغط على زر استعراض ونبحث عن مسار مجلد البرنامج على الجهاز الــ Server على الشبكة ونختار منه ملف قاعدة البيانات (mosdb.mdb) ونضغط فتح

قبل ان تضغط موافق تأكد جيداً ان تختار الخيار الثاني (الارتباط بمصدر البيانات بواسطة انشاء جدول مرتبط) ثم موافق

اعتذر عن هذا السهو نسيت ان التقط Screenshot بعد اختيار الخيار الثاني

سوف تظهر جميع الجداول الموجودة في قاعدة البيانات على الجهاز Server اختارهم جميعاً (تحديد الكل) واضغط موافق

نلاحظ ظهور سهم ازرق بجوار الجداول

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

عند الوقوف على أي جدول والضغط كليك شمال سوف يظهر اختيار ادارة الجداول المرتبطة

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

(اذا تطلب منك الامر ذلك مستقبلاً)

كرر هذا الامر علي جميع الاجهزة الاخري Clients ( ويمكن نسخ قاعدة البيانات من اي جهاز Client ووضعها على جهاز اخر Client )
لكن الاكثر امان ان تقوم بفعلها على كل جهاز على حدي حتي تتاكد من ان الجهاز الــ Client يري الجهاز الــ Server على الشبكة بشكل صحيح
بذلك نكون قد انتهينا من شرحنا ويمكنن التعامل مع قاعدة البيانات على جهاز الــ Server واستدعاء البيانات منها واضافة البيانات لها من اي جهاز من اجهزة الــ Client

لكن تبقت بعض الملاحظات الهامة

1. في حالة إضافة جدول جديد او تغير اسم جدول في ملف قاعدة البيانات على الـــــ Server يجب عمل Link له من جديد في ملف قاعدة البيانات على الـــ Client.

2. لا يسمح بالتعديل في Design من على أجهزة الــ Clients.

3. في حال التعديل في خصائص جدول او إضافة حقول له من على جهاز الـــ [b]Server يظهر بشكل تلقائي في أجهزة الـــ Clients.[/b]

4. لا يمكن تغير مكان مجلد البرنامج او تغير اسمه على الجهاز الـــ Server لان الأجهزة الأخرى الــــ Clients لن تراه ولن تتعرف عليه.

في النهاية اتمني ان اكون قد نجحت فى توصيل المعلومة

وقد قمت بارفاق ملف الشرح [b]مع الموضوع ليسهل طباعته
[/b]

يوجد شرح اخر (بطريقة اخري Split Database ) على منتدانا هذا للأخ الفاضل الجوكر رابط الموضوع هــــــــــــــــــــــــــــــــــــــــــنــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــا

اتمني الا تنسوني من صالح دعائكم
السلام عليكم ورحمة الله وبركاته

طريقة مشاركة قاعدة البيانات.pdf (الحجم : 1.42 م ب / التحميلات : 48)

تحليل نظام محلات الصيانة بشكل عام

Sun, 09 Oct 2022 18:19:15 +0000

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

السلام عليكم ورحمة الله وبركاته
كيف الشباب عساكم بخير
اليوم حبيت أطرح موضوع للنقاش بخصوص منظومة لخدمات الصيانة
والنقاش سيكون في موضوع تحليل قاعدة البيانات وآلية العمل

نبداء بفهم آليات العمل لدى محلات الصيانة

اولا : تحليل آلية العمليات :
العملية الأولى : إستقبال قطعة لصيانتها ( جوال - جهاز إلكتروني )
الأحتمالات المتوقعه
1 : أضافة عملية مشتريات لتنفيذ عملية الصيانه لغياب وجود القطع في مخزن الأصناف
2 : اضافة أصناف تم شرائها مسبقا غلى عملية الصيانة.
3 :  قد لا يكون هناك أي أصناف للصيانه وستكون قيمة الخدمه ضمن ما يسمى إرادات خدمات صيانه ( ستكون متواجده داخل الصندوق عند الأنتهاء من التنفيذ )
4 : الإستعانه بمهندس خارج إطار المقر التابع لأصحاب المحل الذي يقوم بالصيانة بنظام ما يسمى عمله سواء بنسبه محدده متفق عليها أو بمبلغ.

العملية الثانية : بيع بعض القطع أو الاصناف دون خدمة الصيانة

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

العملية الثالثة : إستقبال طلبات صيانة خارجية من إصاحب محلات آخرين بقيمة مخفضه.

حل متوقع   : ربط العملية بحساباتهم كعملاء مثلا وعند تهيئة الحساب او تهيئة العميل يمكن إضافة خيار تمييزه بأنه عميل خاص ووضع عموله متفق عليها قابلة للتعديل
أو قد يكون هذا العميل أحد المهندسين الذين قد نتعامل معهم سابقا ولكن لحدوث سبب ما تم إستقبال المهم من طرفه .

العملية الرابعه : حل فشل عملية الصيانة محاسبيا مثل وقوع أمور متعلقه لاحقا بالتلف سواء لقطع مستخدمه للصيانة أو للجهاز المستقبل

حل متوقع   : ربط العملية بعملية محاسبية تسمى توالف مثلا

العملية الخامسة : مراجعة وترحيل المبالغ للحسابات يوميا المتعلقه بالمهندسين بنظام العمولة خارج المحل ومراجعة صافي أرباح الصيانة
حل متوقع   : إذا كان مبلغ المهمه ( 1000 ) ريال مثلا
وكانت القطع المتداخله في العملية بقيمة 300 ريال
وكانت عمولة المهندس مثلا 300 ريال
أذا أصبح صافي المهم هو 400 ريال

نريد معالجة هذه العملية أيضا بمنضور محاسبي معقول وليس بتعمق كبير قد يجعلنا نفكر للجوء لمى يسمى لشجرة الحسابات لا نريد من هذا القبيل أي شيء ولكن حصر الحسابات التي نحتاجها ومعرفة آلية التنفيذ لاحقا.

من خلال ما تم سرده سابقا
هل يمكننا البدء في تسمية العملية الرئيسية كأساس أنشاء كل مره تحت مسمى ( مهمة جديده ) ؟

المهمه الجديدة ستكون مرتبطة بالعمليات السابقة مثلا بحيث يكون هناك عدة خيارات مثال :
عملية بيع مباشر :

إستدعاء الأصناف - جلب بيانات عميل معين ( آجل ) أو جلب بيانات عميل نقدية ( نقداً )

  عملية صيانة جهاز :

تنفيذ عملية شراء من مورد ( آجل ) أو نقداً - ما تم شرائه سيدخل في الأصناف وسيكون إرتباطه بالمهمه الحالية كونها ستخرج من النظام مباشرة
بعد عملية الصيانة وقد تكون الصيانة لعميل مجهول أو مسجل لدينا ضمن العملاء ولربما يكون كما ذكرنا سابقا من عميل مهندس ( خاص )

   عملية صيانة جهاز خارج أطار المحل :

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

   عمليات آخرى سيتم نقاشها لاحقا من أجل طرح الموضوع بكل ترتيب

----------------------------------------------------------------------------------------------------------------------------------------------------

نأتي إلى عدد او كمية الحسابات المرتبطة تحت مسمى المهمه الجديدة حسب ما فكرت به حالياً :
ملاحظة : ليست كل هذه الحسابات ستكون في ذات المهمه .. ولكن يمكننا إستدعاء تلك الحسابات وهي كالتالي :

حساب العملاء - حساب الموردين - حساب الصندوق - حساب التعامل الخارجي ( المهندسين ) - حساب المشتريات - حساب توالف الصيانة أو الأصناف
( واحد)    ( متعدد )    ( واحد ) ( واحد )    ( متعدد )     ( متعدد )

المهمة ستتوفر على عميل واحد ولربما يتم تنفيذ تلك المهمه بالتعامل مع أكثر من عملية مشتريات من عدة موردين أو نحاول معالجة الأمر بالإستغناء عن الموردين مثلا
ويكون الأمر مرتبط بالمشتريات بمفردتها دون الحاجه إلى الموردين .. بالنسبة للأصناف المدخله في العملية لربما يكون هناك صنف واحد أو أكثر من صنف

الخطوه الأخيرة لنقاش اليوم فقط ::
هو محاولة معرفة وتحديد العمليات الداخلة تحت سقف المهمه
ومعرفة وتحديد العمليات الرئيسية خارج سقف المهمه.
وتحديد الحسابات الرئيسية خارج وداخل المهام بعيدا عن ما يسمى شجرة الحسابات .

الهدف من الموضوع مهنياً ( الوصول لنتائج معرفة دخل وخرج محل صيانه مستقل بذاته ومعرفه صافي أرباحه من كل مهمه وماهي المصروفات او اجمالي الخرج في كل مهمه مع وضع كافة الإلتزامات لكل مهمه )

اتمنى من الله ان يوفقنا وأياكم إلى تنفيذ ما تم طرحه من أجل الفائده تعم الجميع
والمعذره على بدء الأمر دون تخطيط مسبق نظراً للإنشغال.

لاحقاً

سيتم وضع مجمل التحليل الأولي بعد أن يتم مناقشته من الأعضاء كنقطة إتفاق مبدئية للخوض بالنقطة الثانية ألا وهي
مثلا الخوض بنقاش عمليات الزيادة والنقصان في الحسابات المتداخله في المهام.
ولاحقا سيتم أيضا طرح موضوع هيكلة جداول قواعد البيانات إلى ان نصل إلى نهاية الأمر
..
دمتم بكل خير

كيفية عمل backup لقلعدة موجودة علي سرفر له اي بي

Fri, 23 Jul 2021 11:45:59 +0000

السادة
تم وضع القاعدة علي جهاز
تم الاتصال بهذا الجهاز من خلال اي بي
كيفية عمل backup لقلعدة موجودة علي سرفر له اي بي
لم ينفع الطرق العادة مثال مثال الاستاذ الفاضل جميل علي
برجاء حل المشكلة لي
والا
لا توجد فائدة من وضعها علي السرفر طالما لا استطيع عمل باك اب

طريقة العرض و التعديل داخل قاعدة البياناتSQL

Mon, 14 Jun 2021 13:35:41 +0000

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

خطأ في الاتصال بقاعدة البيانات

Sat, 11 Jul 2020 12:21:35 +0000

السلام عليكم ورحمة الله تعالى وبركاته
الأساتذة الكرام و مسيري المنتدى الأفاضل أرجوا أن يكون طرح سؤالي في الفسم الصحيح وإلا فأنا آسف

الأساتذة الكرام
هذه أول مرة أشتغل على قاعدة بيانات gdb
عندي مشروع بلغة الvb.net أردت فيه الإتصال بقاعدة بيانات Firebird-interbase ذات الإمتداد .gdb عند عمل المشروع تظهر لي هذه الرسالة

err.jpg (الحجم : 157.11 ك ب / التحميلات : 63)

علما أنني قمت بتصطيب كل من firebird odbc و firebird

file.jpg (الحجم : 13.86 ك ب / التحميلات : 60)

كما أنني نجحت في فتحها فن طريق dsn من خلال الأكسس لكن عندما أريد فتحها من خلال ال vb.net تظهر الرسالة أعلاه

لقد قمت بإرفاق المشروع لتتمكنوا من القاء نظرة عليه ولكم جزيل الشكر

http://www.mediafire.com/file/vyzh89agdl...n.rar/file

Select qurey

Sun, 17 Nov 2019 21:00:25 +0000

تحياتي _لدي مشكلة عدجم ظهور كل الداتا في column adys عند استخدام جملة SELECT هذه :-

SELECT a.User_ID,GROUP_CONCAT(CASE WHEN a.Check_time IS NULL THEN 'N'ELSE a.Check_time END) AS days FROM(SELECT monthStart + INTERVAL d DAY AS dateCheck FROM days CROSS JOIN(SELECT '2019-10-07' AS monthStart) AS m WHERE MONTH(monthStart + INTERVAL d DAY) = MONTH(monthStart)) AS dates LEFT JOIN integ_users_log3 AS a ON a.check_date = dates.dateCheck GROUP BY a.User_ID

مرفق صورة التنفيذ_وعدم ظهور كل الداتا في الصف الواحد _ ارجو الرد باسرع فرصة بالتعديل علي جملة SELECT _وشكرا.

Screenshot (105).png (الحجم : 198.84 ك ب / التحميلات : 29)

ارخص طرق الدفع الالكتروني في العالم

Tue, 24 Sep 2019 09:29:52 +0000

ظهر الكثير من طرق الدفع الالكتروني في العالم نتيجة للتطور الكبير في مجال التكنولوجيا المالية وذلك على مستوى العالم كله حيث اتجه الناس لاستخدام وسائل الدفع الالكتروني نتيجه لما يقدمه و يوفره من وقت وجهد كبيرين ومن أمثلة أرخص وسائل الدفع الالكتروني في العالم فابيلس حيث أنها لا تفرض اى رسوم اضافية على تحويل واستلام الاموال ، و تتعتبر اول وسيلة دفع الكتروني في العالم لا تفرض اى رسوم ، وتعمل كوسيط بين الشركات حيث تقدم الكثير من المميزات للشركات

طريقة تثبيت قاعدة البيانات sql

Tue, 16 Jul 2019 03:27:14 +0000

السلام عليكم شباب اليوم حبت ارجع مع فيديو شرح طريق تثبيت برنامج قاعدة البيانات سيكوال علشان فى ناس كانت بتسالنى ازاى يتثبت و ده رابط الفيديو
https://www.youtube.com/watch?v=OdDuhej-...AD_NFjX1lV

الفنتك

Wed, 03 Jul 2019 16:49:58 +0000

الفنتك بالشعبي هو كل شيء جديد وغريب يلقى صدى عند الناس، و«الفنتك»، بكسر الفاء هي التكنولوجيا الجديدة التي بدأت تنتشر مؤخراً، وهي اختصار لـ «الفايننشل تكنولوجي» أي التقنية المصرفية. حيث يتجهز العالم إلى انتقال التكنولوجيا إلى التعاملات المصرفية والتي من المتوقع أن تغير جذرياً عمل البنوك وتسحب من تحتها البساط من خلال تحويلها للعديد من الخدمات المحتكرة من قبلها لتكون تحت تصرف الزبون وبأقل الأثمان.

يتوقع المراقبون أن التقنية المصرفية في حال نضوجها ستعطي الزبون خيارات لا يملكها الآن مثل الحصول على خدمات بنكية من خلال استخدامه للهاتف النقال دون الاضطرار إلى زيارة البنك أو أحد فروعه وستتيح له اختيار قروض من باقة من البنوك التي قد لا يكون لها مقراً في البلد الذي يعيش فيه.

تصميم فاتورة مبيعات ومشتريات

Tue, 27 Nov 2018 07:27:52 +0000

السلام عليكم

تعلم كيفية تصميم فاتورة مبيعات ومشتريات

هنــــــــــــــا

طريقة إنشاء قاعدة sql بواسطة script برمجيا وكتابة أسمها بواسطة العميل

Sun, 02 Sep 2018 15:01:03 +0000

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

أقدم لكم مثال على تنصيب قاعدة البيانات sql server
عن طريق الأسكربت
وبالطبع ستكون بجداولها كامله
وببيانات مضافة للجداول إذا أحببت
وجعل العميل يكتب أسم قاعدة البيانات

قبل أن أبدأ أود أن أوضح شئ هام
أنا مبتدأ في مجال البرمجة وينقصني الكثير والكثير من الأساسيات في البرمجة
ولكني أرغب في التعلم
وتكفى أن يكون لديك الرغبة لتحقيق ما تريده
فلا شئ أسمه مستحيل
صعب ممكن
لكن مستحيل لا
فكل شئ وكل مشكلة قد يقع بها الأنسان فيوجد لها حل
ولكن يتطلب الوصول للحل
الرغبة والأرادة والصبر والصبر والصبر
وستصل لهدفك في النهاية
وإن لم تصل ستجد نفسك قد تعلمت دروس تفيدك في مسائل أخرى
ففي كلا الحالات لن تخسر

أسف على الأطالة
ولنبدأ على بركة الله

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

أولا يجب عليك زيارة هذا الموضوع لتتعرف على طريقة أستخراج الأسكربت
وهو موضوع للأخ الفاضل " عبد العزيز البسكري "

الرابط
https://vb4arb.com/vb/showthread.php?tid=24869

وهذا موضوع أخر لطريقة عمل السكربت

وهو موضوع للأخ الفاضل " mero5000 "

الرابط

https://vb4arb.com/vb/showthread.php?tid=25879

ثانيا
قم بإنشاء مشروع جديد في الفيجوال بيسك
وقم بإضافة الأدوات التالية

1- ComboBox وقم يتسميتها Comb_Server_Name
2- ComboBox وقم يتسميتها Comb_Win_Auth
3- ComboBox وقم يتسميتها Comb_Av_Db

4- TextBox وقم بتسميته Txt_Login
5- TextBox وقم بتسميته Txt_Password
6- TextBox وقم بتسميته Txt_NewDataBase

7- Button وقم بتسميته Btn_Test_Con
8- Button وقم بتسميته Btn_Create_DB

وعدد 6 label توضع أمامهم كما في الصورة التالية

ثالثا نأتى لمرحلة الأكواد

الكود الأول
سننشأ موديل ونسميه " Mod_Info "
وسيكون خاص بتعريف أسماء مجلد الأتصال ويحتوي على
ملف أتصال القاعدة وملف أتصال السيرفر
وملف أسكربت القاعدة
وهو كالتالي

كود :
Module Mod_Info

    Public SqlConnStr As String

    Public IsOk_ As Boolean

    Public Txt_Conn_Folder As String = "CONN" ' أكتب أسم الملجد الذي سيكون بجوار ملف تشغيل البرنامج وسيحتوى على ملفات الأتصال وملف أسكربت القاعدة

    Public Txt_CONN As String = "CONN.txt" 'سيحتوى على نص أتصال قاعدة البيانات وستستخدمه عن طريق قراءة الملف

    Public Txt_CONN_SERVER As String = "CONN_SERVER.txt" 'سيحتوى على نص أتصال السيرفر

    Public SqlDB_SCR_DB_Name__ As String = "datascript.sql" ' أكتب أسم أسكربت قاعدة البيانات وضع الأسكربت بجوار ملف التشغيل للبرنامج

    ' سيقوم البرنامج بإنشاء المجلد والملفين السابقين في حالة عدم وجودهم  وسينسخ ملف الأسكربت لداخل المجلد

    ' أما في حالة وجودهم فسيتجاهل أوامر الأنشاء وسيقوم بالأجراءات التي تليه

End Module

الكود الثاني
سننشأ كلاس ونسميه " CLS_Files "
وسيكون خاص بالتأكد من وجود مجلد الملفات الخاصة بالأتصال وملف أسكربت القاعدة
وهو كالتالي

كود :
Public Class CLS_Files

    Public Sub check_Folder__(ByVal Folder_Name__ As String)

        Dim folderExists As Boolean

        folderExists = My.Computer.FileSystem.DirectoryExists(Application.StartupPath & "\" & Folder_Name__ & "")

        If folderExists = False Then

            My.Computer.FileSystem.CreateDirectory(Application.StartupPath & "\" & Folder_Name__ & "")

        Else

        End If

    End Sub

    Public Sub check_file__(ByVal File_Name__ As String)

        Dim fileExists As Boolean

        fileExists = My.Computer.FileSystem.FileExists(Application.StartupPath & "\" & Txt_Conn_Folder & "\" & File_Name__ & "")

        If fileExists = False Then

            My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\" & Txt_Conn_Folder & "\" & File_Name__ & "", String.Empty, False)

        Else

        End If

    End Sub

    Public Sub DBinCONN(ByVal SqlDB_Script_Name__ As String)

        Dim fileExists1 As Boolean

        fileExists1 = My.Computer.FileSystem.FileExists(Application.StartupPath & "\" & Txt_Conn_Folder & "\" & SqlDB_Script_Name__ & "")

        Try

            If fileExists1 = False Then

                My.Computer.FileSystem.CopyFile(Application.StartupPath & "\" & SqlDB_Script_Name__ & "", Application.StartupPath & "\" & Txt_Conn_Folder & "\" & SqlDB_Script_Name__ & "")

            Else

            End If

        Catch ex As Exception

                       Dim msg As String = ""

            msg &= "تأكد من وجود ملف القاعدة في مجلد البرنامج" & vbNewLine

            msg &= "أو قم بنسخة يدويا إلى مجلد Conn" & vbNewLine

            msg &= "من فضلك أعد المحاولة مرة أخرى ..." & vbNewLine

            msg &= "" & vbNewLine

            msg &= (ex.Message)

            MsgBox(msg, CType(vbOKOnly + vbCritical + vbDefaultButton1 + vbMsgBoxRight + vbMsgBoxRtlReading + vbApplicationModal, MsgBoxStyle), "رسالة تنبيه")

            Exit Sub

        End Try

    End Sub

End Class

الكود الثالث
سننشأ كلاس ونسميه " CLS_CONN_SERVER "
وسيكون مسئول عن جلب أسماء السيرفرات المثبته على الجهاز
وإنشاء قاعدة البيانات الخاصة بنا
وهو كالتالي

كود :
Imports Microsoft.Win32

Imports System.Data.SqlClient

Imports Microsoft.VisualBasic

Imports System

Imports System.Data

Public Class CLS_CONN_SERVER

#Region "Load Data"

    'تحميل السيرفرات الموجودة على الجهاز

    Public Sub LoadServer(ByVal Combo As ComboBox)

        Try

            Dim LocalMachine = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64)

            Dim Rk = LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Microsoft SQL Server")

            Dim Instance = CType(Rk.GetValue("InstalledInstances"), String())

            If Instance.Length > 0 Then

                For Each Element As String In Instance

                    If Element = "MSSQLSERVER" Then

                        Combo.Items.Add(System.Environment.MachineName)

                    Else

                        Combo.Items.Add(System.Environment.MachineName + "\" + Element)

                    End If

                Next Element

            End If

        Catch ex As Exception

            Dim msg As String = ""

            msg &= "تأكد من وجود برنامج" & vbNewLine

            msg &= "Microsoft sql sever" & vbNewLine

            msg &= "مثبت على جهازك وأن السيرفر يعمل بالفعل" & vbNewLine

            msg &= "ثم من فضلك أعد المحاولة مرة أخرى ..." & vbNewLine

            msg &= "" & vbNewLine

            msg &= (ex.Message)

            MsgBox(msg, CType(vbOKOnly + vbCritical + vbDefaultButton1 + vbMsgBoxRight + vbMsgBoxRtlReading + vbApplicationModal, MsgBoxStyle), "رسالة تنبيه")

        End Try

    End Sub

#End Region

    Public Sub ADD_Database(ByVal Database_ As String)

        If (CLS_R.Con_SERVER.State = ConnectionState.Open) Then

            CLS_R.Con_SERVER.Close()

        End If

        CLS_R.Con_SERVER.Open()

        Dim cmdd As New SqlCommand(("Create Database " & Strings.Trim(Database_) & ""), CLS_R.Con_SERVER)

        cmdd.ExecuteNonQuery()

        CLS_R.Con_SERVER.Close()

    End Sub

End Class

الكود الرابع
سننشأ كلاس ونسميه " CLS_R "
وسيكون مسئول عن قراءة ملفين الأتصال
وهو كالتالي

كود :
Imports Microsoft.VisualBasic.CompilerServices

Imports System

Imports System.Data.SqlClient

Imports System.IO

Friend NotInheritable Class CLS_R

    Public Shared TXT_CON___ As String = (File.ReadAllText(Application.StartupPath & "\" & Txt_Conn_Folder & "\" & Txt_CONN_SERVER & ""))

    Public Shared Con_SERVER As SqlConnection = New SqlConnection(CLS_R.TXT_CON___)

End Class

الكود الخامس
في الفورم الرئيسي للمثال
سنضع الكود التالي

كود :
Imports System.IO

Imports System.Data.SqlClient

Imports System.Text.RegularExpressions

Public Class FrmMainCRDB

    Private CLS_CONN_SERVER_ As CLS_CONN_SERVER

    Private STR____ As String

    Private CLS_Files__ As CLS_Files

    Public Sub New()

        IsOk_ = False

        CLS_CONN_SERVER_ = New CLS_CONN_SERVER

        CLS_Files__ = New CLS_Files

        Me.InitializeComponent()

    End Sub

    Private Sub FrmMainCRDB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Check_FF__()

        CLS_CONN_SERVER_.LoadServer(Comb_Server_Name)

        With Comb_Win_Auth

            .Items.Add("Windows Authentication")

            .Items.Add("SQL Server Authentication")

        End With

    End Sub

    Private Sub Fill_Combo_Database()

        On Error Resume Next

        Comb_Av_Db.Items.Clear()

        Dim DS As New DataSet

        Dim SqlConnection1 As SqlClient.SqlConnection = New SqlClient.SqlConnection("Data Source=" & Comb_Server_Name.Text & ";Initial Catalog=tempdb;Integrated Security=SSPI;")

        Dim str As String = "Select DISTINCT name from master.dbo.sysdatabases where name not IN('master','msdb','tempdb' ,'model') and has_dbaccess(Name) = 1 order by name "

        Dim ADP As SqlClient.SqlDataAdapter

        ADP = New SqlClient.SqlDataAdapter(str, SqlConnection1)

        DS.Clear()

        ADP.Fill(DS)

        Comb_Av_Db.Items.Clear()

        Dim i As Integer

        For i = 0 To DS.Tables(0).Rows.Count - 1

            Comb_Av_Db.Items.Add(DS.Tables(0).Rows(i).Item(0))

        Next

        ADP.Dispose()

        SqlConnection1.Dispose()

    End Sub

    Private Sub Check_FF__()

        Try

            'دالة إنشاء المجلد

            CLS_Files__.check_Folder__(Txt_Conn_Folder)

            'دالة إنشاء الملفات

            CLS_Files__.check_file__(Txt_CONN)

            CLS_Files__.check_file__(Txt_CONN_SERVER)

            CLS_Files__.DBinCONN(SqlDB_SCR_DB_Name__)

            ' MsgBox("Done")

        Catch ex As Exception

            Dim msg As String = ""

            msg &= "فشل الأتصال بالسيرفر" & vbNewLine

            msg &= "من فضلك أعد المحاولة مرة أخرى" & vbNewLine

            msg &= "" & vbNewLine

            msg &= (ex.Message)

            MsgBox(msg, CType(vbOKOnly + vbCritical + vbDefaultButton1 + vbMsgBoxRight + vbMsgBoxRtlReading + vbApplicationModal, MsgBoxStyle), "رسالة تنبيه")

        End Try

    End Sub

    Private Sub checker__()

        IsOk_ = True

        If Comb_Server_Name.Text = "" Then

            Dim msg As String = ""

            msg &= "يجب إختيار اسم السيرفر" & vbNewLine

            msg &= "من فضلك أعد المحاولة مرة أخرى" & vbNewLine

            MsgBox(msg, CType(vbOKOnly + vbCritical + vbDefaultButton1 + vbMsgBoxRight + vbMsgBoxRtlReading + vbApplicationModal, MsgBoxStyle), "رسالة تنبيه")

            Comb_Server_Name.Focus()

            IsOk_ = False

            Exit Sub

        End If

        If Comb_Win_Auth.SelectedIndex = -1 Then

            Dim msg As String = ""

            msg &= "يجب إختيار طريقة الولوج للسيرفر" & vbNewLine

            msg &= "من فضلك أعد المحاولة مرة أخرى" & vbNewLine

            MsgBox(msg, CType(vbOKOnly + vbCritical + vbDefaultButton1 + vbMsgBoxRight + vbMsgBoxRtlReading + vbApplicationModal, MsgBoxStyle), "رسالة تنبيه")

            Comb_Win_Auth.Focus()

            IsOk_ = False

            Exit Sub

        End If

        If Comb_Win_Auth.SelectedIndex = 1 Then

            If Txt_Login.Text.Length = 0 Then

                Dim msg As String = ""

                msg &= "يجب كتابة اسم المستخدم" & vbNewLine

                msg &= "من فضلك أعد المحاولة مرة أخرى" & vbNewLine

                MsgBox(msg, CType(vbOKOnly + vbCritical + vbDefaultButton1 + vbMsgBoxRight + vbMsgBoxRtlReading + vbApplicationModal, MsgBoxStyle), "رسالة تنبيه")

                Txt_Login.Focus()

                IsOk_ = False

                Exit Sub

            End If

            If Txt_Password.Text.Length = 0 Then

                Dim msg As String = ""

                msg &= "يجب كتابة  كلمة المرور" & vbNewLine

                msg &= "من فضلك أعد المحاولة مرة أخرى" & vbNewLine

                MsgBox(msg, CType(vbOKOnly + vbCritical + vbDefaultButton1 + vbMsgBoxRight + vbMsgBoxRtlReading + vbApplicationModal, MsgBoxStyle), "رسالة تنبيه")

                Txt_Password.Focus()

                IsOk_ = False

                Exit Sub

            End If

        End If

        IsOk_ = True

    End Sub

    Private Sub Btn_Test_Con_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Test_Con.Click

        checker__()

        If IsOk_ = True Then

            Dim SqlConn As New SqlConnection

            If Comb_Win_Auth.SelectedIndex = 0 Then

                SqlConnStr = "Data Source=" & Comb_Server_Name.Text.Trim & ";Initial Catalog=master;Integrated Security=True"

            End If

            If Comb_Win_Auth.SelectedIndex = 1 Then

                SqlConnStr = "Data Source=" & Comb_Server_Name.Text.Trim & ";Initial Catalog=master;User ID=" & Txt_Login.Text.Trim & ";Password=" & Txt_Password.Text & ""

            End If

            If SqlConn.State = ConnectionState.Closed Then

                SqlConn.ConnectionString = SqlConnStr

                Try

                    SqlConn.Open()

                    Dim msg As String = ""

                    msg &= "تم الأتصال بالسيرفر بنجاح" & vbNewLine

                    MsgBox(msg, CType(vbOKOnly + vbInformation + vbDefaultButton1 + vbMsgBoxRight + vbMsgBoxRtlReading + vbApplicationModal, MsgBoxStyle), "رسالة تنبيه")

                Catch ex As Exception

                    Dim msg As String = ""

                    msg &= "فشل الأتصال بالسيرفر" & vbNewLine

                    msg &= "من فضلك أعد المحاولة مرة أخرى" & vbNewLine

                    msg &= "" & vbNewLine

                    msg &= (ex.Message)

                    MsgBox(msg, CType(vbOKOnly + vbCritical + vbDefaultButton1 + vbMsgBoxRight + vbMsgBoxRtlReading + vbApplicationModal, MsgBoxStyle), "رسالة تنبيه")

                End Try

            End If

        Else

            Exit Sub

        End If

    End Sub

    Public Sub CONN_SERVER()

        Dim str As String

        If Comb_Win_Auth.SelectedIndex = 1 Then

            str = String.Concat(New String() {"Data Source=", Strings.Trim(Me.Comb_Server_Name.Text), ";User ID=", Strings.Trim(Me.Txt_Login.Text), ";password=", Strings.Trim(Me.Txt_Password.Text), ";Integrated Security=false"})

        Else

            str = (" Data Source=" & Strings.Trim(Me.Comb_Server_Name.Text) & ";Integrated Security=True")

        End If

        File.WriteAllText(Application.StartupPath & "\" & Txt_Conn_Folder & "\" & Txt_CONN_SERVER & "", str)

    End Sub

    Public Sub CREATE_TB_NEWDATAG()

        Dim str As String

        Me.CLS_CONN_SERVER_.ADD_DATABASE(Me.Txt_NewDataBase.Text)

        If Comb_Win_Auth.SelectedIndex = 0 Then

            str = String.Concat(New String() {" Data Source=", Me.Comb_Server_Name.Text, ";Initial Catalog=", Me.Txt_NewDataBase.Text, ";Integrated Security=True"})

        Else

            str = String.Concat(New String() {"Data Source=", Me.Comb_Server_Name.Text, ";Initial Catalog=", Me.Txt_NewDataBase.Text, ";User ID=", Me.Txt_Login.Text, ";password=", Me.Txt_Password.Text, ";Integrated Security=false"})

        End If

        Me.STR____ = str

        File.WriteAllText(Application.StartupPath & "\" & Txt_Conn_Folder & "\" & Txt_CONN & "", str)

        Dim connection As New SqlConnection(File.ReadAllText(Application.StartupPath & "\" & Txt_Conn_Folder & "\" & Txt_CONN & ""))

        If (connection.State = ConnectionState.Open) Then

            connection.Close()

        End If

        connection.Open()

        Dim enumerable As IEnumerable(Of String) = Regex.Split(File.ReadAllText(Application.StartupPath & "\" & Txt_Conn_Folder & "\" & SqlDB_SCR_DB_Name__ & ""), "^\s*GO\s*$", (RegexOptions.Multiline Or RegexOptions.IgnoreCase))

        Dim str3 As String

        For Each str3 In enumerable

            If (str3.Trim <> "") Then

                Dim cmdd As New SqlCommand(str3, connection)

                cmdd.ExecuteNonQuery()

            End If

        Next

        connection.Close()

    End Sub

    Private Sub Comb_Win_Auth_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Comb_Win_Auth.SelectedIndexChanged

        If Comb_Win_Auth.SelectedIndex = 0 Then

            Txt_Login.ReadOnly = True

            Txt_Password.ReadOnly = True

        Else

            Txt_Login.ReadOnly = False

            Txt_Password.ReadOnly = False

        End If

    End Sub

    Private Sub Comb_Server_Name_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Comb_Server_Name.SelectedIndexChanged

        Fill_Combo_Database()

    End Sub

    Private Sub Btn_Create_DB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Create_DB.Click

        checker__()

        If IsOk_ = False Then

            Exit Sub

        Else

            Try

                If (Me.Txt_NewDataBase.Text = Nothing) Then

                    Dim msg As String = ""

                    msg &= "يجب إدخال أسم قاعدة البيانات الجديدة" & vbNewLine

                    msg &= "" & vbNewLine

                    MsgBox(msg, CType(vbOKOnly + vbCritical + vbDefaultButton1 + vbMsgBoxRight + vbMsgBoxRtlReading + vbApplicationModal, MsgBoxStyle), "رسالة تنبيه")

                    Exit Sub

                ElseIf Comb_Av_Db.Items.Contains(Txt_NewDataBase.Text) = True Then

                    Dim msg As String = ""

                    msg &= "أسم القاعدة الذي أدختله موجود مسبقأ" & vbNewLine

                    msg &= "رجاء إدخال أسم مختلف ." & vbNewLine

                    MsgBox(msg, CType(vbOKOnly + vbCritical + vbDefaultButton1 + vbMsgBoxRight + vbMsgBoxRtlReading + vbApplicationModal, MsgBoxStyle), "رسالة تنبيه")

                    Exit Sub

                Else

                    Me.CONN_SERVER()

                    Me.CREATE_TB_NEWDATAG()

                    Dim msg As String = ""

                    msg &= "تمت عملية إنشاء القاعدة بنجاح" & vbNewLine

                    msg &= "سيتم إعادة تشغيل البرنامج " & vbNewLine

                    msg &= "من فضلك إنتظر لحظات ..." & vbNewLine

                    MsgBox(msg, CType(vbOKOnly + vbCritical + vbDefaultButton1 + vbMsgBoxRight + vbMsgBoxRtlReading + vbApplicationModal, MsgBoxStyle), "رسالة تنبيه")

                    Application.Restart()

                    ' Me.Close()

                End If

            Catch ex As Exception

                Dim msg As String = ""

                msg &= "تأكد من بيانات الأتصال بالسيرفر" & vbNewLine

                msg &= "تأكد من وجود ملف القاعدة في مجلد Conn" & vbNewLine

                msg &= "من فضلك أعد المحاولة مرة أخرى ..." & vbNewLine

                msg &= "" & vbNewLine

                msg &= (ex.Message)

                MsgBox(msg, CType(vbOKOnly + vbCritical + vbDefaultButton1 + vbMsgBoxRight + vbMsgBoxRtlReading + vbApplicationModal, MsgBoxStyle), "رسالة تنبيه")

            End Try

        End If

    End Sub

End Class

وأخيرا مرحلة التطبيق runTime

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

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

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

وبكده أنتهينا من المثال
وأسف على الأطالة
وأتمنى أن ينال إعجابكم أول مثال لي في المنتدى

ولا تنسوني من صالح دعائكم

**************************
مثال جيد أخر على نفس الفكرة ولكن بإستخدام ملفات القاعدة نفسها
وهو من كتابة الأخ الفاضل " mero5000 "
الرابط
https://vb4arb.com/vb/showthread.php?tid=26315
**************************

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

* المثال قابل للتطوير
* أي ملاحظات أو أي توجيه أتقبله بصدر رحب

أقدم جزيل الشكر
للأخ الفاضل يوسف حداد صاحب الفكرة التى رأيتها
وأقتبست منها المثال

وللأخ الكريم والأستاذ الفاضل " eljokr "
وللأخ الكريم والأستاذ الفاضل " mero5000 "
وللأخ الكريم والأستاذ الفاضل " عبد العزيز البسكري "
لما يقدموه من مساعدة ومعلومات تفيدني وتفيد الجميع
ولكل الأخوة الكرام في المنتدى من إدارة وأعضاء
جزيل الشكر والأحترام

أنتهيت بفضل الله
إن كان صواباً فمن الله وحده وإن كان فيه من خطأ فمني ومن الشيطان
والسلام عليكم ورحمة الله وبركاته

عمل اتتاتش للداتا بيز عند فتح البرنامج اول مرة عل جهاز العميل

Fri, 31 Aug 2018 18:01:12 +0000

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

لاحظت اخوانى ان بعض بعض الاعضاء يسئل عن عمل اتتاتش للداتا بيز اما عن طريق التحزيم او بطرق اخرى لكن حبيت اكتب طريقة اعمل بها من سنوات
وهى طريقة مناسبة جدا لانها لا تجعل العميل يقوم باى خطوات لعمل اتتاتش ولا يفعل اى شيئ غير انه يفتح البرنامج

اولا : يجب ارفاق الداتا بيز بمسار المشروع ويفضل ان تكون بمجلد منفصل للترتيب فقط
مثلا المجلد باسم db بجانب الملف التنفيذى
ثانيا : سوف نضيف بالفروم الذى يفتح اولا وليكن فروم login نضيف 2 فانكشن

كود :
Public Shared Function GETATTACHDATABASENAME() As Boolean

        On Error Resume Next

        Dim DS As New DataSet

        Dim SqlConnection1 As SqlClient.SqlConnection = New SqlClient.SqlConnection("Data Source=" + My.Computer.Name & "\SQLEXPRESS" + ";Initial Catalog=tempdb;Integrated Security=SSPI;")

        Dim str As String = "Select DISTINCT name from master.dbo.sysdatabases where name Like 'YourDbName' and has_dbaccess(Name) = 1 "

        Dim ADP As SqlClient.SqlDataAdapter

        ADP = New SqlClient.SqlDataAdapter(str, SqlConnection1)

        DS.Clear()

        ADP.Fill(DS)

        Dim i As Integer

        If DS.Tables(0).Rows.Count = 0 Then

            GETATTACHDATABASENAME = False

            MessageBox.Show(" قاعدة البيانات  'قاعدة بيانات البرنامج'" & "غير متصلة بالسرفر جارى عمل الاتصال", My.Computer.Name, MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)

        Else

            GETATTACHDATABASENAME = True

        End If

        ADP.Dispose()

        SqlConnection1.Dispose()

    End Function

نلاحظ ان المتغير str به اسم قاعدة بياناتك ....

كود :
where name Like 'YourDbName'

نقوم فقط بتغيره لاسم الداتا بيز الخاصة بك كما هو داخل ''

ثم نقوم بإضافة الميثود التالى

كود :
Public Shared Sub ATTACHDATABASENAME(ByVal MYDBNAME As String, ByVal f1lepathprimary As String, ByVal f1lepathlog As String)

        Try

            Dim SqlConnection1 As SqlClient.SqlConnection = New SqlClient.SqlConnection("Data Source=" + My.Computer.Name & "\SQLEXPRESS" + ";Initial Catalog=tempdb;Integrated Security=SSPI;")

            Dim CMD As SqlClient.SqlCommand = New SqlClient.SqlCommand

            CMD.CommandType = CommandType.Text

            CMD.Connection = SqlConnection1

            If SqlConnection1.State = ConnectionState.Open Then SqlConnection1.Close()

            SqlConnection1.Open()

            CMD.CommandText = "sp_attach_db " & MYDBNAME & ",'" & f1lepathprimary & "'" & ",'" & f1lepathlog & "'"

            ' OR CMD.CommandText = "CREATE DATABASE " & MYDBNAME & " ON (FILENAME = '" & f1lepath & "')FOR ATTACH"

            CMD.ExecuteNonQuery()

            SqlConnection1.Dispose()

            MessageBox.Show("تم انشاء اتصال  قاعدة البيانات  بالسرفر ", "ATTCH DATABASE", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button2, MessageBoxOptions.RtlReading)

        Catch ex As Exception

            Dim result As Integer

            result = MessageBox.Show("فشل البرنامج فى انشاء اتصال  بقاعدة البيانات  بالسرفر", "ATTCH DATABASE", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button2, MessageBoxOptions.RtlReading)

        End Try

    End Sub

ولا نغير بها اى شيئ التغير الوحيد فقط فى اسم الداتا بيز بالفنكشن الاولى..

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

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

كود :
If GETATTACHDATABASENAME() = False Then

            ATTACHDATABASENAME("database", Application.StartupPath & "\db\database.MDF", Application.StartupPath & "\db\database_log.LDF")

        End If

فرضا اسم قاعدة البيانات database
يكون اسمها بين علامات "" فى الاول
ثم بمسار البرنامج نكتب اسمها بالمسار + الامنتداد
ثم نكتب اسم ملف اللوج بالامنتداد كما هو موضح سابقا فى الكود

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

ملحوظة : نلاحظ ان الفنكشن من نوع Boolean والسبب هو ان كانت الداتا بيز متصلة لا يقوم بتنفيذ الكود اما ان لم تكن متصلة يقوم بالتنفيذ
: يجب كتابة الكود الخاص باللود فروم اعلى الحدث قبل اى اكواد اخرى خاصة بالداتا بيز او الاستعلامات الاخرى لتجنب اى اكسبشن فى الرن تايم

فى النهاية اسئلكم الدعاء بظهر الغيب
تحياتى لكم جميعا

شرح معني علاقة بين جدولين

Thu, 17 May 2018 09:58:18 +0000

https://youtu.be/Ym9yoGPTNAI

سكريبت إنشاء قاعدة البيانات لل SQL SERVER

Tue, 08 May 2018 21:11:09 +0000

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

إخواني الأكارم ..

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

قمت بالتجربة على سبيل المثال بقاعدة البيانات لدورة إنشاء فاتورة المبيعات لأخي الحبيب الغالي " ملهم الصويعي " بقسم دورات VB NET .. قاعدة البيانات المسماة DB_SALES ..

مسألة السكريبت هذه .. لها ميزاتها مثلا ..

هذه قاعدة البيانات بامتداد Mdf و حجمها 3 ميغابايت

و هذا السكريبت الخاص بنفس قاعدة البيانات هذه و الحجم لا يزيد عن 17 كيلو بايت

من جهة ثانية و هذا الأهم الذي طرحت من أجله المشاركة و هو ..

عند تسليمك المشروع للعميل .. من الناحية الجمالية و من الناحية الإحترافية أن يتم توليد قاعدة بيانات فارغة على جهازه أو توماتيكيا كنوع من " الإيتيكيت البرمجي " .. عن طريق تايمر مثلا و أنتم أدرى منّي بذلك ..

كيف يتم إنشاء السكريبت ..

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

ملف السكريبت سيكون بالمسار الذي قمت باختياره ..

يتم وضعه بمجلد المشروع مثلما تماما بالملف المرفق أدناه

مع مراعاة التسميات داخل الأكواد و نصوص الإتّصال

المكتبات الضرورية تجدونها بمجلد ال DEBUG للملف

مع مراعاة للتأكيد كود App.Config

إخواني قد تكون الفكرة قديمة .. لكن من باب أنّه يوجد من ليس لديه فكرة عنها

و لذلك .. أعذروني فإن أصبت فمن الله و إن أخطأت فمن نفسي ومن الشيطان أعاذنا الله و إياكم

تحياتي

https://up.top4top.net/downloadf-65888gjfx71-rar.html