[princelovelorn]

(18-02-19, 09:23 PM)محمد خيري كتب : الله يبارك فيك يارب اخي priceoflorn موش عارف كيف اشكرك فعلا هذا ما اريد ضبطة كثر الف خيرك .بقيت لي نقطة اخيرة بهذا الملف و عشمي فيك كبير بعد الله
هذا الجزء باول الفورم2

كود :

   If Not IO.File.Exists(Application.StartupPath & "\Data.mdb") Then
           MsgBox("تعذر العثور على قاعدة البيانات" & vbCrLf & "ربما تم تغيير مكانها او اسمها", 16 + 524288, " Data  اسم القاعدة")
           End
           Exit Sub
       End If

فقط كيف يكون شكله لو كانت قاعدة بيانات  sqlserver كيف يتم التاكد من وجود ها

الحمد لله والشكر لله

اللهم أمين وإياك أخي

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

بالنسبة للتعامل مع ال Sqlserver  فسيتم عن طريق أختبار الاتصال بالقاعدة والسيرفر باستخدام الكود التالي

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

كود :

   '================ جملة التاكد من القاعدة متصلة أم لا   ================
   Public Sub openconnection()
       If sqlconn.State = 1 Then sqlconn.Close()
       Try
           sqlconn.ConnectionString = "Data Source=.\sqlexpress;Initial Catalog=databasename;Integrated Security=True"
           sqlconn.Open()

       Catch ex As Exception
           MsgBox("يرجى التأكد من إجراءات الأتصال بقاعدة البيانات الخاصة بالبرنامج", vbOKOnly + vbCritical + vbDefaultButton1 + vbApplicationModal + vbMsgBoxRight + vbMsgBoxRtlReading, "فشل بالأتصال بقاعدة البيانات")

           sqlconn.Close()
           End
       End Try
   End Sub

وبيتم وضع الكود السابق في 

وبيتم استخدامه عن طريق استدعائه في حدث formload  في اول فورم بيتم فتحها في المشروع  الرئيسية

كود :

   openconnection()

لو الاتصال ناجح البرنامج بيشتغل عادي  لو الاتصال خطا بيتم الخروج من البرنامج نهائيا

تمنياتي لك بالتوفيق والنجاح