[عبد العزيز البسكري]

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

و إضافة لم تمّ طرحه من أخي الغالي "princelovelorn" .. جزاه الله خير الجزاء و زاده من عمله و فضله

و من باب الزيادة للإستفادة ..

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

كود :

     Conne_2018.Open()
       'Dim sql As As String = ("SELECT * FROM MASTER.DBO.SYSDATABASES WHERE [name] = 'NAMEYOURDATABASE'")
       Dim sql As String = ("SELECT * FROM SYS.TABLES WHERE name = 'NAMEYOURTABLE'")
       Dim cmd As New SqlCommand(sql, Conne_2018)
       Dim dr As SqlDataReader
       Conne_2018.Close()
       Conne_2018.Open()
       dr = cmd.ExecuteReader
       If dr.Read() = False Then
           MsgBox("تعذر العثور على قاعدة البيانات" & vbCrLf & "ربما تم تغيير مكانها او اسمها", 16 + 524288, " Data  اسم القاعدة")
           End
           Exit Sub
       End If
       Conne_2018.Close()

تحياتي