سكريبت إنشاء قاعدة البيانات لل SQL SERVER

كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    Try

        ' التحقق من إدخال اسم السيرفر

        If ComboBox1.Text = "" Then

            DevExpress.XtraEditors.XtraMessageBox.Show("الرجاء إختيار و إدخال اسم السيرفر", "تنبية", MessageBoxButtons.OK, MessageBoxIcon.Information)

            ComboBox1.Focus()

            Exit Sub

        End If



        ' التحقق من إدخال اسم المستخدم وكلمة المرور إذا كانت طريقة المصادقة SQL

        If ComboBox2.SelectedIndex = 1 Then

            If TextBox1.Text.Length = 0 Then

                DevExpress.XtraEditors.XtraMessageBox.Show("الرجاء كتابة اسم المستخدم", "تنبية", MessageBoxButtons.OK, MessageBoxIcon.Information)

                TextBox1.Focus()

                Exit Sub

            End If

            If TextBox2.Text.Length = 0 Then

                DevExpress.XtraEditors.XtraMessageBox.Show("الرجاء كتابة كلمة المرور", "تنبية", MessageBoxButtons.OK, MessageBoxIcon.Information)

                TextBox2.Focus()

                Exit Sub

            End If

        End If



        ' إعداد المؤشر على الانتظار

        Cursor = Cursors.WaitCursor

        Timer1.Enabled = True



        ' إنشاء اتصال SQL بناءً على نوع المصادقة

        If ComboBox2.SelectedIndex = 0 Then

            Con = New SqlConnection("Data source=" & ComboBox1.Text & ";Initial Catalog=master;Integrated Security=True;MultipleActiveResultSets=True")

        ElseIf ComboBox2.SelectedIndex = 1 Then

            Con = New SqlConnection("Data Source=" & ComboBox1.Text.Trim & ";Initial Catalog=master;User ID=" & TextBox1.Text.Trim & ";Password=" & TextBox2.Text & ";MultipleActiveResultSets=True")

        End If



        ' فتح الاتصال

        Con.Open()



        ' التحقق من نجاح الاتصال

        If (Con.State = ConnectionState.Open) Then

            ' التأكيد على إنشاء قاعدة البيانات

            If DevExpress.XtraEditors.XtraMessageBox.Show("هل تريد متابعة عملية إنشاء قاعدة بيانات فارغة و تكوين ملقم", "تنبية", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then

                Using sw As StreamWriter = New StreamWriter(Application.StartupPath & "\SqlConnectionString.dat")

                    ' حفظ الاتصال بناءً على نوع المصادقة

                    If ComboBox2.SelectedIndex = 0 Then

                        sw.WriteLine("Data Source=" & ComboBox1.Text.Trim & ";Initial Catalog=TESTDB;Integrated Security=True;MultipleActiveResultSets=True")

                    ElseIf ComboBox2.SelectedIndex = 1 Then

                        sw.WriteLine("Data Source=" & ComboBox1.Text.Trim & ";Initial Catalog=TESTDB;User ID=" & TextBox1.Text.Trim & ";Password=" & TextBox2.Text & ";MultipleActiveResultSets=True")

                    End If

                    sw.Close()

                End Using



                ' إنشاء قاعدة البيانات الفارغة

                CreateBlankDB()



                ' حفظ المعلومات في إعدادات البرنامج

                My.Settings.ServerName = ComboBox1.Text.Trim

                My.Settings.DatabaseName = "TESTDB"

                My.Settings.IsConnected = True

                If ComboBox2.SelectedIndex = 1 Then

                    My.Settings.UserName = TextBox1.Text.Trim

                    My.Settings.Password = TextBox2.Text

                End If

                My.Settings.AuthMode = ComboBox2.SelectedIndex

                My.Settings.Save()



                ' عرض رسالة النجاح

                DevExpress.XtraEditors.XtraMessageBox.Show("تمت بنجاح عملية إنشاء قاعدة البيانات", "تنبية", MessageBoxButtons.OK, MessageBoxIcon.Information)



                ' إنهاء التطبيق أو الانتقال إلى النموذج الرئيسي

                End

            Else

                ' إنهاء البرنامج إذا اختار المستخدم عدم المتابعة

                End

            End If

        End If



    Catch ex As Exception

        DevExpress.XtraEditors.XtraMessageBox.Show("لم يتم الاتصال بالسيرفر", "تنبية", MessageBoxButtons.OK, MessageBoxIcon.Error)

    Finally

        ' إغلاق الاتصال

        If (Con.State = ConnectionState.Open) Then

            Con.Close()

        End If



        ' إعادة تعيين المؤشر إلى شكله الافتراضي

        Cursor = Cursors.Default

    End Try

End Sub