منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
معرفة وجود قاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : معرفة وجود قاعدة البيانات (/showthread.php?tid=24938)

معرفة وجود قاعدة البيانات - المتألق9 - 12-05-18

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

RE: معرفة وجود قاعدة البيانات - elgokr - 12-05-18

الرجاء التوضيح
تقصد كود يقوم باختبار الاتصال قاعدة البيانات والتاكد بوجودها
ولا ايه المقصود بضبط


RE: معرفة وجود قاعدة البيانات - المتألق9 - 12-05-18

(12-05-18, 08:17 PM)elgokr كتب :
الرجاء التوضيح
تقصد كود يقوم باختبار الاتصال قاعدة البيانات والتاكد بوجودها
ولا ايه المقصود بضبط

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

RE: معرفة وجود قاعدة البيانات - سعود - 12-05-18

PHP كود :
Public str As String = "server=.\sqlexpress;initial catalog=pics;integrated security=true;"
    Public con As New SqlConnection(str)

    Function isdbfound(ByVal constr As String, ByVal dbname As String) As Boolean
        Dim mc As New SqlConnection(constr)
        Dim a As New SqlCommand("select count(name) from master.dbo.sysdatabases where name='" & dbname & "'", mc)
        If mc.State = ConnectionState.Closed Then
            mc.Open()
        End If

        If a.ExecuteScalar <= 0 Then
            Return False
        Else
            Return True
        End If
    End Function 


RE: معرفة وجود قاعدة البيانات - elgokr - 12-05-18

الاخ سعود ما قصر

RE: معرفة وجود قاعدة البيانات - المتألق9 - 15-05-18

مشكووور أخي وبارك الله فيك سأجرب الكود وأخبرك