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

فقط استخدم الامر

Select 1 From master..sysdatabases Where Name ='mydatabase'

وبالامكان استخدام ExecuteScalar كما يلي

 
			Dim result As Object
			cmd.CommandText = "Select 1 From master..sysdatabases Where Name ='mydatabase'"
			result = cmd.ExecuteScalar()
			If IsDBNull(result) Then
				'not found 
			End If

لكن تحتاج الى فتح الاتصال على قاعدة البيانات Master

اخي الكريم طارق

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

		Dim result As Object
		Dim sqlstr As String = "Select 1 From master..sysdatabases Where Name ='mydatabase'"

		Dim cmd As New SqlCommand(sqlstr, myConnection1)
		Try
			myConnection1.Open()
			result = cmd.ExecuteScalar()
			If IsDBNull(result) Then
				MsgBox("not found")
			End If

		Catch ex As Exception
			MsgBox(ex.Message)
		Finally
			myConnection1.Close()
			cmd.Cancel()
		End Try

هل هناك خطأ في هذا الكود وكيف افتح الاتصال على قاعدة البيانات Master

انا مبتدأ ولك كل الشكر والتقدير

سبب الفتح على Master لانك تريد فحص القاعدة هل هي موجودة ام لا فاذا لم تكن موجودة سيحدث عندك خطأ (وهذه طريقة لمعرفة انها موجودة ام لا )

ولاستخدام ال Master نضعها بدل اسم القاعدة كما يلي

Dim myConnection1 As New SqlConnection("Data Source=.;Initial Catalog=master;.............

وبدل If IsDBNull(result) Then

َضع

if result is nothing then

اخي العزيز طارق بارك الله فيك ونفع بعلمك

اتبعت الطريقه التي اشرت على بها والحمد لله نجحت

		Dim myConnection As New System.Data.SqlClient.SqlConnection("Data Source=myserver;Initial Catalog=master;User ID=sa;Password=sa")
		Dim result As Object
		Dim sqlstr As String = "Select * From master..sysdatabases Where Name ='mydatabase'"
		Dim cmd As New SqlCommand(sqlstr, myConnection)
		Try
			myConnection.Open()
			result = cmd.ExecuteScalar()
			If result Is Nothing Then
				MsgBox("قاعدة البيانات غير موجوده على السيرفر")
			Else
				MsgBox("قاعدة البيانات موجوده على السيرفر")
			End If
		Catch ex As Exception
			MsgBox(ex.Message)
		Finally
			myConnection.Close()
			cmd.Cancel()
		End Try

ولك مني كل الشكر والتقدير