[essawq]

(20-09-18, 09:41 PM)ibraheam كتب : السلام عليكم
بالحقيقة مداخلتي ليست لتقييم عملك ولكن للاستفسار منك حول الجملة التالية

PHP كود :

Dim server As Server = New Server(New ServerConnection(conn)) 


الخطا الي يظهرلي هو 
Type 'server' is not defined
يا ريت لو ترفع مشروع الي عملته واكون لك من الشاكرين

تحياتي

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

حياك الله اخي الكريم

بالنسبة لاستفسارك اخي

ان لم تظف المكتبات سيظهر خطا ساشرح لك الطريقة

ومعني هذا الخطا

Type 'server' is not defined

انة لم يتم تعريف السيرفر

بالنسبة لهذا الكود 

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

كود :

Public Sub createDatabase()
       If check() = False Then
           Try
               Dim sqlConnectionString As String = "Data Source=.\SQLExpress;Integrated Security=True"
               Dim script As String = File.ReadAllText(Application.StartupPath & "\CompanyWork2.sql")
               Dim conn As SqlConnection = New SqlConnection(sqlConnectionString)
               Dim server As Server = New Server(New ServerConnection(conn))
               server.ConnectionContext.ExecuteNonQuery(script)
           Catch ex As Exception
               MessageBox.Show(ex.Message)
           End Try
       End If
   End Sub

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

يعني عند تشغيل البرنامج لاول مرة او في اي مرة يتم تشغيل البرنامج ان كانت موجود خلاص وان كانت غير موجودة يتم انشائها

كود :

Private Function check() As Boolean
       Dim exist As Boolean = False
       Try
           Dim conn As SqlConnection = New SqlConnection("Data Source=.\SQLExpress;Integrated Security=True")
           Dim cmd As SqlCommand = New SqlCommand("", conn)
           Dim rdr As SqlDataReader
           cmd.CommandText = "exec sys.sp_databases"
           conn.Open()
           rdr = cmd.ExecuteReader()
           While rdr.Read()
               If rdr.GetString(0) = "Company_2018" Then
                   exist = True
                   Exit While
               End If
           End While
           conn.Close()
           rdr.Dispose()
           cmd.Dispose()
           conn.Dispose()
       Catch ex As Exception
           MessageBox.Show(ex.Message.ToString())
           Return False
       End Try
       Return exist
   End Function

طبعا لكي لا يظهر خطا يجب اضافة المكتبات كالتالي

كود :

Imports Microsoft.SqlServer.Management.Smo
Imports Microsoft.SqlServer.Management.Common

سيطهر خطا بالنسبة للسيرفرر نقوم باضافة المكتبات كالتالي الصور توضح

هكذا اضفنا المكتبات 

تخياتي لك