[Hamoody]

السلام عليكم

محتاج كود اول ما اعمل فتح للبرنامج اول مره يروح يشيك على قاعدة البيانات هل هيا موجوده ام لا فإذا كانت غير موجودة فإنه ينشأها بواسطة اسكربت مخزن في مسار applaction.path 
و شكرا مقدما

[asemshahen5]

طريقة إنشاء قاعدة sql بواسطة script برمجيا وكتابة أسمها بواسطة العميل

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

طريقة أخرى من باب التنويع ..

http://vb4arb.com/vb/showthread.php?tid=24869

[Hamoody]

اولا مشكور على الرد 
ثانيا أنا قصدي اني انا احفظ ملف الإسكريبت في مجلد Debug و أول ما البرنامج يشتغل يروح يشيك على قاعدة البيانات هل فيها الملف لو فيها خلاص و لو ما فيها يبدأ ينفذ الإسكريبت و ينشئ قاعدة البيانات

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

كود :

 Dim conn As String = "Data Source=.\SQLEXPRESS;Integrated Security=True"
                       Dim script As VariantType = File.ReadAllText(Application.StartupPath + "\SQLScript.sql")
                       Dim co As SqlConnection = New SqlConnection(conn)
                       Dim servdddder As Management.Smo.Server = New Management.Smo.Server(New ServerConnection(co))
                       Dim Server_conn As Microsoft.SqlServer.Management.Smo.Server = New Microsoft.SqlServer.Management.Smo.Server(New ServerConnection(co))
                       servdddder.ConnectionContext.ExecuteNonQuery(script)

بس زي ماهو واضح مش بينفذ الإسكربت 
فيه كود معمول بالc# لو احد من يعرف يحوله للفيجوال يبقى فنان

كود :

   Dim script As String = File.ReadAllText(Application.StartupPath + "\SQLScript.sql")
                       Dim sqlqueries As String = script.Split(New[] {"GO"}, StringSplitOptions.RemoveEmptyEntries)
                       Dim conn As String = "Data Source=.\SQLEXPRESS;Integrated Security=True"
                       Dim CMD1 As New SqlClient.SqlCommand("query", connSQLServer)

                       connSQLServer.Open()

                       foreach(var qurey As VariantType)
                       {
                       CMD1.CommandText = qurey
                       CMD1.ExecuteNonQuery()
                       }
                        connSQLServer.Close()

[alfaiz678]

(04-12-19, 06:53 AM)Hamoody كتب : بس زي ماهو واضح مش بينفذ الإسكربت 
فيه كود معمول بالc# لو احد من يعرف يحوله للفيجوال يبقى فنان

كود :

   Dim script As String = File.ReadAllText(Application.StartupPath + "\SQLScript.sql")
                       Dim sqlqueries As String = script.Split(New[] {"GO"}, StringSplitOptions.RemoveEmptyEntries)
                       Dim conn As String = "Data Source=.\SQLEXPRESS;Integrated Security=True"
                       Dim CMD1 As New SqlClient.SqlCommand("query", connSQLServer)

                       connSQLServer.Open()

                       foreach(var qurey As VariantType)
                       {
                       CMD1.CommandText = qurey
                       CMD1.ExecuteNonQuery()
                       }
                        connSQLServer.Close()

الكود بالاعلى ليس بالسي شارب
اين الكود الذي بالسي شارب

[asemshahen5]

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ExecutesqlFile("(local)", "TestTestD", Application.StartupPath & "\SQLScript.sql")
    End Sub
    Public Sub ExecutesqlFile(ByVal SERVAR_NAME_SQL As String, ByVal DATABASE_NAME As String, ByVal sqlFile As String)
        Using connection As New SqlClient.SqlConnection("Server =" & SERVAR_NAME_SQL & ";database=" & DATABASE_NAME & ";integrated security=true")
            If connection.State = ConnectionState.Closed Then connection.Open()
            Dim sql As String = ""
            Using strm As FileStream = File.OpenRead(sqlFile)
                Dim reader As New StreamReader(strm)
                sql = reader.ReadToEnd()
            End Using
            Dim regex As New Regex("^GO", RegexOptions.IgnoreCase Or RegexOptions.Multiline)
            Dim lines As String() = regex.Split(sql)
            Dim transaction As SqlClient.SqlTransaction = connection.BeginTransaction()
            Using cmd As SqlClient.SqlCommand = connection.CreateCommand()
                cmd.Connection = connection
                cmd.Transaction = transaction
                ProgressBar1.Step = 1
                For Each line As String In lines
                    If line.Length > 0 Then
                        ProgressBar1.Maximum = line.Length + 20
                        ProgressBar1.Value = line.Length
                        cmd.CommandText = line
                        cmd.CommandType = CommandType.Text
                        Try
                            cmd.ExecuteNonQuery()
                        Catch generatedExceptionName As SqlClient.SqlException
                            MsgBox(generatedExceptionName.Message, MsgBoxStyle.Critical, "")
                            transaction.Rollback()
                            Throw
                        End Try
                    End If
                Next
                ProgressBar1.Value = ProgressBar1.Maximum
                MsgBox("تمت عملية انشاء الجداول و الاستعلامات بنجاح", MsgBoxStyle.Information, "")
            End Using
            transaction.Commit()
            connection.Close()
        End Using
    End Sub