[aliabdullah]

السلام عليكم هنالك مشكلة في هذين السطرين
 Dim server As New Server(New ServerConnection(Con))
 server.ConnectionContext.ExecuteNonQuery(st)
 السطر الأول يعطي خطأ(()too many arguments to puplic sub new) 
السطر الثاني يعطي خطأ (connection contex is not a member of E_PHARMA.server)

كود :

 Con = New SqlConnection("Data source=" & ComboBox1.Text & ";Initial Catalog=master;Integrated Security=True;MultipleActiveResultSets=True")
               Con.Open()
               Dim cb3 As String = "Create Database drug"
               cmd = New SqlCommand(cb3)
               cmd.Connection = Con
               cmd.ExecuteNonQuery()
               Con.Close()
               Using sr As StreamReader = New StreamReader(Application.StartupPath & "\DATABASESCRIPT.sql")
                   st = sr.ReadToEnd()
                   Dim server As New Server(New ServerConnection(Con))
                   server.ConnectionContext.ExecuteNonQuery(st)

               End Using

[aljzazy]

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

PHP كود :

 Con = New SqlConnection("Data source=" & ComboBox1.Text & ";Initial Catalog=master;Integrated Security=True;MultipleActiveResultSets=True")
            Con.Open()
            Dim cb2 As String = "Select * from sysdatabases where name='drug'"
            Dim cmd As New SqlCommand(cb2)
            cmd.Connection = Con
            Dim rdr As SqlDataReader
            rdr = cmd.ExecuteReader()
            If rdr.Read() Then
                Con = New SqlConnection("Data source=" & ComboBox1.Text & ";Initial Catalog=master;Integrated Security=True;MultipleActiveResultSets=True")
                Con.Open()
                Dim cb1 As String = "Drop Database drug"
                cmd = New SqlCommand(cb1)
                cmd.Connection = Con
                cmd.ExecuteNonQuery()
                Con.Close()
                Con = New SqlConnection("Data source=" & ComboBox1.Text & ";Initial Catalog=master;Integrated Security=True;MultipleActiveResultSets=True")
                Con.Open()
                Dim cb As String = "Create Database drug"
                cmd = New SqlCommand(cb)
                cmd.Connection = Con
                cmd.ExecuteNonQuery()
                Con.Close()
                Using sr As StreamReader = New StreamReader(Application.StartupPath & "\DATABASESCRIPT.sql")
                    st = sr.ReadToEnd()
                    Dim server As New Server(New ServerConnection(Con))
                    server.ConnectionContext.ExecuteNonQuery(st)
                End Using 


[aliabdullah]

شكرا لك أخي الكريم
لكن في الحقيقة مشكلتي ليست في القاعدة بل قبل اجراء عملية Build
يظهر هذا الخطأ عند السطر : {Dim server As New Server(New ServerConnection(Con))}
عنوان الخطأ {()too many arguments to puplic sub new) }
و الخطأ الآحر عند السطر : { server.ConnectionContext.ExecuteNonQuery(st)}
عنوان الخطأ : {connection contex is not a member of E_PHARMA.server}
هل هنالك مكتبة معينة مطلوب تواجدها غير التالي :
Imports Microsoft.Win32
Imports System.Data.SqlClient
Imports Microsoft.SqlServer.Management.Smo
Imports Microsoft.SqlServer.Server
Imports Microsoft.SqlServer.Management.Smo.ServerProxyAccount
Imports Microsoft.SqlServer.Management.Common
Imports System.IO

[Fantastico]

عزيزي aliabdullah
قبل المسارعة في النشر يجب عليك التاكد من بعض الامور
اولا : قم بترجمة الرسالة الى العربية
()too many arguments to puplic sub new
معناها ان هناك بارامترات زائدة
لذا احذف اما الCon او New ServerConnection(Con) بالكامل

ويمكنك معرفة ما تحتاجه من بارامترات بالاستفادة من مساعدة الاستوديو