[محمد العامر]

حاولت أخ عبدالعزيز ولعلي لم أوفق في الطريقة الصحيحة
والكود التالي يشرح تنفيذي للأمر

كود :

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